在线实时开通WEB及FTP源程序

程序利用FSO+SERV-U（2.x版本）实现：
1、注册文件index.htm

  1<html>
  2<head>
  3<title>宁波科宇网——个人网页申请</title>
  4<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
  5<script language="Javascript">   
  6function CheckIfEnglish( String )   
  7{   
  8var Letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-";   
  9var i;   
 10var c;   
 11if(String.charAt( 0 )==''-'')   
 12return false;   
 13if( String.charAt( String.length - 1 ) == ''-'' )   
 14return false;   
 15for( i = 0; i < String.length; i ++ )   
 16{   
 17c = String.charAt( i );   
 18if (Letters.indexOf( c ) < 0)   
 19return false;   
 20}   
 21return true;   
 22}   
 23  
 24function checkSubmit() {   
 25var EmailReg = /^[_a-z0-9]+@([_a-z0-9]+\\.)+[a-z0-9]{2,3}$/;   
 26if (document.form.name.value == "") {   
 27alert("请输入您要注册的用户名！");   
 28document.form.name.focus();   
 29return false;   
 30}   
 31  
 32if (!CheckIfEnglish(document.form.name.value )) {   
 33alert("用户名不能输入中文及非法字符！");   
 34document.form.name.focus();   
 35return false;   
 36}   
 37  
 38if ((document.form.pass.value == "")&&(document.form.rpass.value == "")) {   
 39alert("密码不能为空！");   
 40document.form.pass.focus();   
 41document.form.rpass.focus();   
 42return false;   
 43}   
 44  
 45if ((document.form.pass.value)!=(document.form.rpass.value)) {   
 46alert (''二次密码输入不一样！'');   
 47document.form.pass.focus();   
 48document.form.rpass.focus();   
 49return false;   
 50}   
 51  
 52if (document.form.email.value == "") {   
 53alert("请输入您的Email！");   
 54document.form.email.focus();   
 55return false;   
 56}   
 57  
 58if ((!EmailReg.test(document.form.email.value))&&(document.form.email.value!='''')) {   
 59alert (''Email的格式不正确！'');   
 60document.form.email.focus();   
 61return false;   
 62}   
 63  
 64return true;   
 65}   
 66</script>
 67<script language="JavaScript">   
 68<!--   
 69function MM_reloadPage(init) { //reloads the window if Nav4 resized   
 70if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {   
 71document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}   
 72else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();   
 73}   
 74MM_reloadPage(true);   
 75// -->   
 76</script>
 77</head>
 78<body background="crystal.jpg" bgcolor="#FFFFFF" text="#000000">
 79<p align="center"> </p>
 80<p align="center"><b><font color="#333333" size="6">宁波科宇网——个人网页申请</font></b></p>
 81<p align="center"></p>
 82<table align="center" border="0" width="65%">
 83<tr>
 84<td>
 85<form action="page.asp" method="post" name="form">
 86<p><b>用户名称：</b>
 87<input class="form" name="name" size="10" type="text"/>   
 88*   
 89  
 90注意：用户名只能由英文字母（a-z、A-Z），数字（0-9）构成，不能有空格。   
 91  
 92<b>密 码：</b>
 93<input class="form" name="pass" size="10" type="password"/>   
 94*</p>
 95<p><b>确认密码：</b>
 96<input class="form" name="rpass" size="10" type="password"/>   
 97*（确认上面的密码）</p>
 98<p><b>您的MAIL：</b>
 99<input class="form" name="email" size="20" type="text"/>*(请正确填写)   
100</p>
101<p>
102<input name="Submit" onclick="java script:return checkSubmit()" type="submit" value="提交"/>
103<input name="Submit2" type="reset" value="重写"/>   
104  
105  
106其中*号项目为必填项目！</p>
107</form>
108</td>
109</tr>
110</table>
111<p align="center"><font color="#FF0000">注意：本空间可以安装BBS论坛，严格禁止江湖、聊天室等严重占用资源的程序运行。   
112  
113一经发现，删除全部程序及FTP帐号，并不于通知！</font></p>
114<p align="center"> </p>
115<p align="center">－＝＝<a href="mailto:[email protected]">宁波科宇网</a>＝＝－   
116  
117CopyRight By KeYu Computer WorkRoom 2001-2002</p>
118</body>
119</html>

2、后台控制文件page.asp

1<html>
2<head>
3<title>Untitled Document</title>
4<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
5</head>
6<body bgcolor="#FFFFFF" text="#000000">

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")&lt;&gt;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="&amp;dbpath
SQL="select * from hostname where 用户名=''"&amp;vname&amp;"''"
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"&amp;vname)
set afile=myfileobject.getfile("e:\club\person.htm")
afile.copy "e:\club"&amp;vname&amp;"\index.htm"

set afile=myfileobject.getfile("e:\club\line113.gif")
afile.copy "e:\club"&amp;vname&amp;"\line113.gif"

set afile=myfileobject.getfile("e:\club\bg11.gif")
afile.copy "e:\club"&amp;vname&amp;"\bg11.gif"

set afile=myfileobject.getfile("e:\club\c24.gif")
afile.copy "e:\club"&amp;vname&amp;"\c24.gif"

set mytextfile=myfileobject.opentextfile("C:\Program Files\serv-u\Serv-u.ini",8)
mytextfile.writeline("[USER="&amp;vname&amp;"]")
mytextfile.writeline("password="&amp;vpass)
mytextfile.writeline("HomeDir=e:\club"&amp;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"&amp;vname&amp;",RWAMCDLP")
Response.Redirect "welcome.htm"
response.end

else

1<center>对不起，您的用户名```
2=vname
3```已被他人所用，请您换一个用户名申请<p><a href="./">返回申请页面</a></p></center>

end if

1</body>
2</html>

3、注册成功页面welcome.htm

 1<html>
 2<head>
 3<title>OK</title>
 4<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
 5</head>
 6<body background="bg14.jpg" bgcolor="#FFFFFF" text="#000000">
 7<p align="center"><b><font color="#FF0000" size="7">恭喜您</font></b></p>
 8<p align="center"><img border="0" height="18" src="line761.gif" width="560"/></p>
 9<p align="center"></p>
10<p align="center">您已成功地申请了自己的个人主页</p>
11<p></p><table align="center" border="0" width="451">
12<tr>
13<td width="443"><b>请您阅读以下注意事项：</b></td>
14</tr>
15<tr>
16<td width="443">1、您的主页空间是20M，支持ASP，暂不支持CGI，请您及时上传您的主页，超过三周不上传者，我们将删除您的帐号！</td>
17</tr>
18<tr>
19<td width="443">2、本站支持FTP登录、支持断点续传，可以用各种FTP工具来上传您的文件。</td>
20</tr>
21<tr>
22<td width="443">3、本站个人主页的FTP地址为<b><font color="#FF0000">cn4e.vicp.net</font></b></td>
23</tr>
24<tr>
25<td width="443">4、访问路径是<b><font color="#FF0000">http://cn4e.vicp.net/您的用户名</font></b></td>
26</tr>
27<tr>
28<td width="443">5、如有任何疑问，请致信<a href="mailto:[email protected]">[email protected]</a></td>
29</tr>
30</table>
31<p align="center"><a href="http://www.kydn.com">宁波科宇网</a>
32<p align="center"><a href="/">返回首页</a></p>
33<p align="center"><img height="24" src="line738.gif" width="500"/></p>
34<p align="center"></p>
35</p></body>
36</html>

4、默认首页文件person.htm

 1<html>
 2<head>
 3<title>个人网站</title>
 4<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
 5</head>
 6<body background="bg11.gif" bgcolor="#FFFFFF" text="#000000">
 7<p align="center"> </p>
 8<p align="center"><b><font size="6">个人网页</font></b></p>
 9<p align="center"><img border="0" height="66" src="c24.gif" width="96"/></p>
10<p align="center">正在施工中。。。。。</p>
11<p align="center"><img border="0" height="11" src="line113.gif" width="420"/></p>
12<p align="center">－＝＝<a href="http://www.kydn.com">宁波科宇网</a>＝＝－   
13  
14CopyRight By KeYu Computer WorkRoom 2001-2002</p>
15</body>
16</html>

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

Published At
Categories with Web编程
Tagged with
comments powered by Disqus