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

金光 · 发表于 2004 年 1 月 5 日 00:00:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

×

<TABLE cellSpacing=0 cellPadding=0 width="100%" bgColor=#3060a0 border=0>
<TBODY>
<TR>
<TD vAlign=center align=middle width=589 bgColor=#4e4e4e height=25>在线实时开通WEB及FTP源程序</TD></TR>
<TR>
<TD vAlign=center align=middle height=38>作者：骆驼王子(转) 来源：开发者俱乐部加入时间：2002-12-12　蓝宝石软件站 </TD></TR>
<TR>
<TD vAlign=top height=48>程序利用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%>已被他人所用，请您换一个用户名申请&lt

><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 <IMG height=1 src="http://soft.bluejewel.net/down_info.asp?id=41" width=1 border=0> </TD></TR></TBODY></TABLE>

indj · 发表于 2004 年 1 月 7 日 00:00:00

不错

呵呵　以后有自己服务器也来玩一下

hotboy · 发表于 2004 年 1 月 11 日 00:00:00

好啊，等我有主机的时候玩玩！

angelook · 发表于 2004 年 1 月 13 日 00:00:00

这个哪里有下啊？上面的下不了

过客 · 发表于 2004 年 1 月 17 日 00:00:00

<DIV class=quote>以下是引用angelook在2004-1-13 1:10:59的发言： 这个哪里有下啊？上面的下不了</DIV>

comicsky · 发表于 2004 年 1 月 22 日 00:00:00

支持阿，很不错的阿。

账号		自动登录	找回密码
密码			注册