在线实时开通WEB及FTP源程序 -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 在线实时开通WEB及FTP源程序

在线实时开通WEB及FTP源程序 时间：2004/11/7 3:02:00来源：本站整理作者：蓝点我要评论(0)

程序利用FSO+SERV-U（2.x版本）实现：

1、注册文件index.htm

宁波科宇网——个人网页申请

宁波科宇网——个人网页申请

注意：本空间可以安装BBS论坛，严格禁止江湖、聊天室等严重占用资源的程序运行。

一经发现，删除全部程序及FTP帐号，并不于通知！

－＝＝宁波科宇网＝＝－

CopyRight By KeYu Computer WorkRoom 2001-2002

2、后台控制文件page.asp

Untitled Document

<%vname=request("name")

vpass=request("pass")

vrpass=request("rpass")

vemail=request("email")

%>

<%

if request.form("name")="" then

response.write "错误提示:请输入用户名!"

response.end

end if

if request.form("pass")="" then

response.write "错误提示:请输入口令!"

response.end

end if

if request.form("pass")<>request.form("rpass") then

response.write "错误提示:两次口令不相符!"

response.end

end if

if request.form("email")="" then

response.write "错误提示:必须输入你的正确EMAIL!"

response.end

end if

%>

<%set myconn=server.createobject("ADODB.CONNECTION")

dbpath=server.mappath("db.mdb")

myconn.open "driver={Microsoft access driver (*.mdb)};dbq="&dbpath

SQL="select * from hostname where 用户名=''"&vname&"''"

set list=myconn.execute(sql)

%>

<% if list.eof then%>

<%

set rs=server.createobject("ADODB.RecordSet")

rs.Open "hostname", myconn, adOpenDynamic, 3

rs.addnew

rs("用户名")=vname

rs("密码")=vpass

rs("邮箱")=vemail

rs.update

rs.close

Set myfileobject=server.createobject("scripting.filesystemobject")

myfileobject.createfolder("e:\club\"&vname)

set afile=myfileobject.getfile("e:\club\person.htm")

afile.copy "e:\club\"&vname&"\index.htm"

set afile=myfileobject.getfile("e:\club\line113.gif")

afile.copy "e:\club\"&vname&"\line113.gif"

set afile=myfileobject.getfile("e:\club\bg11.gif")

afile.copy "e:\club\"&vname&"\bg11.gif"

set afile=myfileobject.getfile("e:\club\c24.gif")

afile.copy "e:\club\"&vname&"\c24.gif"

set mytextfile=myfileobject.opentextfile("C:\Program Files\serv-u\Serv-u.ini",8)

mytextfile.writeline("[USER="&vname&"]")

mytextfile.writeline("password="&vpass)

mytextfile.writeline("HomeDir=e:\club\"&vname)

mytextfile.writeline("RelPaths=YES")

mytextfile.writeline("ChangePassword=YES")

mytextfile.writeline("SpeedLimit=20480")

mytextfile.writeline("QuotaEnable=YES")

mytextfile.writeline("QuotaMaxCurrent=20971520,0")

mytextfile.writeline("TimeOut=600")

mytextfile.writeline("Access1=e:\club\"&vname&",RWAMCDLP")

Response.Redirect "welcome.htm"

response.end

%>

<%else%>

对不起，您的用户名<%=vname%>已被他人所用，请您换一个用户名申请

返回申请页面

<%end if%>

3、注册成功页面welcome.htm

OK

恭喜您

您已成功地申请了自己的个人主页

请您阅读以下注意事项：

1、您的主页空间是20M，支持ASP，暂不支持CGI，请您及时上传您的主页，超过三周不上传者，我们将删除您的帐号！

2、本站支持FTP登录、支持断点续传，可以用各种FTP工具来上传您的文件。

3、本站个人主页的FTP地址为cn4e.vicp.net

4、访问路径是http://cn4e.vicp.net/您的用户名

5、如有任何疑问，请致信support@4email.vicp.net

宁波科宇网

返回首页

4、默认首页文件person.htm

个人网站

个人网页

正在施工中。。。。。

5、完整图片、数据库、ASP、HTM文件包下载：

http://cn4e.vicp.net/bbs/uploadImag...12195174006.zip

6、serv-u 2.5k 免安装已注册版下载：

http://club.yydns.com/soft/ServU25k.zip

7、注意：serv-u默认安装位置为C:\Program Files\serv-u，虚拟站点目录位置为：e:/club，请根据各自情况进行修改。

8、演示：http://cn4e.vicp.net/host

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。