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

作者:admin 日期:2009-05-15

字体大小: 小中大

程序利用FSO+SERV-U（2.x版本）实现：
 1、注册文件index.htm
 <html>
 <head>
 <title>宁波科宇网——个人网页申请</title>
 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 <script language="javascript">
 function CheckIfEnglish( String )
 {
 var Letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-";
 var i;
 var c;
 if(String.charAt( 0 )==''-'')
 return false;
 if( String.charAt( String.length - 1 ) == ''-'' )
 return false;
 for( i = 0; i < String.length; i ++ )
 {
 c = String.charAt( i );
 if (Letters.indexOf( c ) < 0)
 return false;
 }
 return true;
 }

 function checkSubmit() {
 var EmailReg = /^[_a-z0-9]+@([_a-z0-9]+\.)+[a-z0-9]{2,3}$/;
 if (document.form.name.value == "") {
 alert("请输入您要注册的用户名！");
 document.form.name.focus();
 return false;
 }

 if (!CheckIfEnglish(document.form.name.value )) {
 alert("用户名不能输入中文及非法字符！");
 document.form.name.focus();
 return false;
 }

 if ((document.form.pass.value == "")&&(document.form.rpass.value == "")) {
 alert("密码不能为空！");
 document.form.pass.focus();
 document.form.rpass.focus();
 return false;
 }

 if ((document.form.pass.value)!=(document.form.rpass.value)) {
 alert (''二次密码输入不一样！'');
 document.form.pass.focus();
 document.form.rpass.focus();
 return false;
 }

 if (document.form.email.value == "") {
 alert("请输入您的Email！");
 document.form.email.focus();
 return false;
 }

 if ((!EmailReg.test(document.form.email.value))&&(document.form.email.value!='''')) {
 alert (''Email的格式不正确！'');
 document.form.email.focus();
 return false;
 }

 return true;
 }
 </script>

 <script language="javascript">
 
 </script>
 </head>
 <body bgcolor="#FFFFFF" text="#000000" background="crystal.jpg">
 　
 宁波科宇网——个人网页申请
 
 <table width="65%" border="0" align="center">
 <tr>
 <td>
 <form name="form" method="post" action="page.asp">
 用户名称：
 <input type="text" name="name" size="10" class="form">
 *

 注意：用户名只能由英文字母（a-z、A-Z），数字（0-9）构成，不能有空格。

 密　　码：
 <input type="password" name="pass" size="10" class="form">
 *
 确认密码：
 <input type="password" name="rpass" size="10" class="form">
 *（确认上面的密码）
 您的MAIL：
 <input type="text" name="email" size="20" class="form">*(请正确填写)
 
 
 <input type="submit" name="Submit" value="提交" onClick ="java script:return checkSubmit()">
 <input type="reset" name="Submit2" value="重写">


 其中*号项目为必填项目！
 </form>
 </td>
 </tr>
 </table>
 注意：本空间可以安装BBS论坛，严格禁止江湖、聊天室等严重占用资源的程序运行。

 一经发现，删除全部程序及FTP帐号，并不于通知！
 　
 －＝＝<a href="mailto:support@4email.vicp.net">宁波科宇网</a>＝＝－

 CopyRight By KeYu Computer WorkRoom 2001-2002
 </body>
 </html>

 2、后台控制文件page.asp
 <html>
 <head>
 <title>Untitled Document</title>
 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 </head>
 <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")<>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%>
 <center>对不起，您的用户名<%=vname%>已被他人所用，请您换一个用户名申请<a href="./">返回申请页面</a></center>
 <%end if%>
 </body>
 </html>

 3、注册成功页面welcome.htm
 <html>
 <head>
 <title>OK</title>
 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 </head>

 <body bgcolor="#FFFFFF" text="#000000" background="bg14.jpg">
 恭喜您
 <img border="0" src="line761.gif" width="560" height="18">
 
 您已成功地申请了自己的个人主页
 <table width="451" border="0" align="center">
 <tr>
 <td width="443">请您阅读以下注意事项：</td>
 </tr>
 <tr>
 <td width="443">1、您的主页空间是20M，支持ASP，暂不支持CGI，请您及时上传您的主页，超过三周不上传者，我们将删除您的帐号！</td>
 </tr>
 <tr>
 <td width="443">2、本站支持FTP登录、支持断点续传，可以用各种FTP工具来上传您的文件。</td>
 </tr>
 <tr>
 <td width="443">3、本站个人主页的FTP地址为cn4e.vicp.net</td>
 </tr>
 <tr>
 <td width="443">4、访问路径是http://cn4e.vicp.net/您的用户名</td>
 </tr>
 <tr>
 <td width="443">5、如有任何疑问，请致信<a href="mailto:support@4email.vicp.net">support@4email.vicp.net</a></td>
 </tr>
 </table>
 <a href="http://www.kydn.com">宁波科宇网</a>

 <a href="/">返回首页</a>
 <img src="line738.gif" width="500" height="24">
 
 </body>
 </html>

 4、默认首页文件person.htm
 <html>
 <head>
 <title>个人网站</title>
 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 </head>

 <body bgcolor="#FFFFFF" text="#000000" background="bg11.gif">
 　
 个人网页
 <img border="0" src="c24.gif" width="96" height="66">
 正在施工中。。。。。
 <img border="0" src="line113.gif" width="420" height="11">
 －＝＝<a href="http://www.kydn.com">宁波科宇网</a>＝＝－

 CopyRight By KeYu Computer WorkRoom 2001-2002
 </body>
 </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

'引用自http://www.jscode.cn/arthtml/art4441.htm