在线实时开通WEB及FTP源程序
程序员文章站
2022-04-12 20:38:14
程序利用FSO+SERV-U（2.x版本）实现：1、注册文件index.htm宁波科宇网——个人网页申请&...</div>
<div class="content">
程序利用FSO+SERV-U（2.x版本）实现：<br>1、注册文件index.htm<br><html><br><head><br><title>宁波科宇网——个人网页申请</title><br><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><br><script language="<a href="https://www.2cto.com/kf/ware/Java/" target="_blank" class="keylink" rel="nofollow">Java</a>script"><br>function CheckIfEnglish( String )<br>{ <br>var Letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-";<br>var i;<br>var c;<br>if(String.charAt( 0 )==-)<br>return false;<br>if( String.charAt( String.length - 1 ) == - )<br>return false;<br>for( i = 0; i < String.length; i ++ )<br>{<br>c = String.charAt( i );<br>if (Letters.indexOf( c ) < 0)<br>return false;<br>}<br>return true;<br>}
<p>
</p>
<p>function checkSubmit() {<br>var EmailReg = /^[_a-z0-9]+@([_a-z0-9]+.)+[a-z0-9]{2,3}$/;<br>if (document.form.name.value == "") {<br>alert("请输入您要注册的用户名！");<br>document.form.name.focus();<br>return false;<br>}</p>
<p>if (!CheckIfEnglish(document.form.name.value )) {<br>alert("用户名不能输入中文及非法字符！");<br>document.form.name.focus();<br>return false;<br>}</p>
<p>if ((document.form.pass.value == "")&&(document.form.rpass.value == "")) {<br>alert("密码不能为空！");<br>document.form.pass.focus();<br>document.form.rpass.focus();<br>return false;<br>}</p>
<p>if ((document.form.pass.value)!=(document.form.rpass.value)) {<br>alert (二次密码输入不一样！);<br>document.form.pass.focus();<br>document.form.rpass.focus();<br>return false;<br>}</p>
<p>if (document.form.email.value == "") {<br>alert("请输入您的Email！");<br>document.form.email.focus();<br>return false;<br>}</p>
<p>if ((!EmailReg.test(document.form.email.value))&&(document.form.email.value!=)) {<br>alert (Email的格式不正确！);<br>document.form.email.focus();<br>return false;<br>}</p>
<p>return true;<br>}<br></script></p>
<p><script language="<a href="https://www.2cto.com/kf/qianduan/JS/" target="_blank" class="keylink" rel="nofollow">JavaScript</a>"><br><!--<br>function MM_reloadPage(init) { //reloads the window if Nav4 resized<br>if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {<br>document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}<br>else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();<br>}<br>MM_reloadPage(true);<br>// --><br></script><br></head><br><body bgcolor="#FFFFFF" text="#000000" background="crystal.jpg"><br><p align="center"> </p><br><p align="center"><b><font size="6" color="#333333">宁波科宇网——个人网页申请</font></b></p><br><p align="center"></p><br><table width="65%" border="0" align="center"><br><tr><br><td><br><form name="form" method="post" action="page.<a href="https://www.2cto.com/kf/web/asp/" target="_blank" class="keylink" rel="nofollow">asp</a>"><br><p><b>用户名称：</b> <br><input type="text" name="name" size="10" class="form"> <br>* </p>
<p>注意：用户名只能由英文字母（a-z、A-Z），数字（0-9）构成，不能有空格。</p>
<p><b>密 码：</b> <br><input type="password" name="pass" size="10" class="form"> <br>*</p> <br><p><b>确认密码：</b> <br><input type="password" name="rpass" size="10" class="form"> <br>*（确认上面的密码）</p> <br><p><b>您的MAIL：</b> <br><input type="text" name="email" size="20" class="form">*(请正确填写) <br></p> <br><p> <br><input type="submit" name="Submit" value="提交" onClick ="java script:return checkSubmit()"> <br><input type="reset" name="Submit2" value="重写"> </p>
<p><br>其中*号项目为必填项目！</p> <br></form> <br></td> <br></tr> <br></table> <br><p align="center"><font color="#FF0000">注意：本空间可以安装BBS<a href="http://bbs.2cto.com" target="_blank" class="keylink" rel="nofollow">论坛</a>，严格禁止江湖、聊天室等严重占用资源的程序运行。</p>
<p>一经发现，删除全部程序及FTP帐号，并不于通知！</font></p> <br><p align="center"> </p> <br><p align="center">－＝＝<a href="mailto:support@4email.vicp.net">宁波科宇网</a>＝＝－</p>
<p>CopyRight By KeYu Computer WorkRoom 2001-2002</p><br></body> <br></html> </p>
<p>2、后台控制文件page.asp<br><html><br><head><br><title>Untitled Document</title><br><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><br></head><br><body bgcolor="#FFFFFF" text="#000000"><br><%vname=request("name")<br>vpass=request("pass")<br>vrpass=request("rpass")<br>vemail=request("email")<br>%><br><%<br>if request.form("name")="" then <br>response.write "错误提示:请输入用户名!"<br>response.end<br>end if<br>if request.form("pass")="" then <br>response.write "错误提示:请输入口令!"<br>response.end<br>end if<br>if request.form("pass")<>request.form("rpass") then <br>response.write "错误提示:两次口令不相符!"<br>response.end<br>end if<br>if request.form("email")="" then <br>response.write "错误提示:必须输入你的正确EMAIL!"<br>response.end<br>end if<br>%><br><%set myconn=server.createobject("ADODB.CONNECTION")<br>dbpath=server.mappath("db.mdb")<br>myconn.open "driver={Microsoft access driver (*.mdb)};dbq="&dbpath<br>SQL="select * from hostname where 用户名="&vname&""<br>set list=myconn.execute(sql)<br>%><br><% if list.eof then%><br><%<br>set rs=server.createobject("ADODB.RecordSet")<br>rs.Open "hostname", myconn, adOpenDynamic, 3<br>rs.addnew<br>rs("用户名")=vname<br>rs("密码")=vpass<br>rs("邮箱")=vemail<br>rs.update<br>rs.close</p>
<p>Set myfileobject=server.createobject("scripting.filesystemobject")<br>myfileobject.createfolder("e:club"&vname)<br>set afile=myfileobject.getfile("e:clubperson.htm")<br>afile.copy "e:club"&vname&"index.htm"</p>
<p>set afile=myfileobject.getfile("e:clubline113.gif")<br>afile.copy "e:club"&vname&"line113.gif"</p>
<p>set afile=myfileobject.getfile("e:clubg11.gif")<br>afile.copy "e:club"&vname&"g11.gif"</p>
<p>set afile=myfileobject.getfile("e:clubc24.gif")<br>afile.copy "e:club"&vname&"c24.gif"</p>
<p>set mytextfile=myfileobject.opentextfile("C:Program Filesserv-uServ-u.ini",8)<br>mytextfile.writeline("[USER="&vname&"]")<br>mytextfile.writeline("password="&vpass)<br>mytextfile.writeline("HomeDir=e:club"&vname)<br>mytextfile.writeline("RelPaths=YES")<br>mytextfile.writeline("ChangePassword=YES")<br>mytextfile.writeline("SpeedLimit=20480")<br>mytextfile.writeline("QuotaEnable=YES")<br>mytextfile.writeline("QuotaMaxCurrent=20971520,0")<br>mytextfile.writeline("TimeOut=600")<br>mytextfile.writeline("Access1=e:club"&vname&",RWAMCDLP")<br>Response.Redirect "welcome.htm"<br>response.end<br>%><br><%else%> <br><center>对不起，您的用户名<%=vname%>已被他人所用，请您换一个用户名申请<P><a href="./">返回申请页面</a></p></center> <br><%end if%><br></body><br></html></p>
<p>3、注册成功页面welcome.htm<br><html><br><head><br><title>OK</title><br><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><br></head></p>
<p><body bgcolor="#FFFFFF" text="#000000" background="bg14.jpg"><br><p align="center"><b><font color="#FF0000" size="7">恭喜您</font></b></p><br><p align="center"><img border="0" src="line761.gif" width="560" height="18"></p><br><p align="center"></p><br><p align="center">您已成功地申请了自己的个人主页</p><br><p></p><table width="451" border="0" align="center"><br><tr> <br><td width="443"><b>请您<a href="http://book.2cto.com" target="_blank" class="keylink" rel="nofollow">阅读</a>以下注意事项：</b></td><br></tr><br><tr> <br><td width="443">1、您的主页空间是20M，支持ASP，暂不支持CGI，请您及时上传您的主页，超过三周不上传者，我们将删除您的帐号！</td><br></tr><br><tr> <br><td width="443">2、本站支持FTP登录、支持断点续传，可以用各种FTP工具来上传您的
</p> </div>
<div class="info-pre-next">
<p>
上一篇： <a href="/article/567900.html">
使用SQL语句查询MySQL,SQLServer,Oracle所有数据库名和表名,字段名 </a>
</p>
<p>
下一篇： <a href="/article/567902.html">
ObjectiveC开发教程--字符串的基本操作处理方法 </a>
</p>
</div>
<div class="wz_tuijian">
<p>
推荐阅读 </p>
<ul>
<li>
<a href="/article/1792594.html" target="_blank" title="在线实时开通FTP&WEB">
<h2>
在线实时开通FTP&WEB </h2>
</a>
</li>
<li>
<a href="/article/1656790.html" target="_blank" title="在线实时开通WEB及FTP源程序">
<h2>
在线实时开通WEB及FTP源程序 </h2>
</a>
</li>
<li>
<a href="/article/1036697.html" target="_blank" title="在线实时开通FTP&WEB">
<h2>
在线实时开通FTP&WEB </h2>
</a>
</li>
<li>
<a href="/article/567901.html" target="_blank" title="在线实时开通WEB及FTP源程序">
<h2>
在线实时开通WEB及FTP源程序 </h2>
</a>
</li>
</ul>
</div>
</article>
</div>
</main>
<footer><div class="box"><div class="ft_nav"><div class="ft_about"><p>关于网站</p><ul><li><a href="/sitemap.xml" target="_blank" title="网站地图">网站地图</a></li><li><a href="/list/2/" title="最新程序员文章站">最新程序员文章站</a></li></ul></div><div class="ft_contact"><ul><li>本站所有数据收集于网络如有侵犯到您的权益，请联系我们进行下架处理。</li><li class="email_show"></li></ul></div></div><div class="copyright"><div class="cr_left"><p> 备案号：<a href="https://beian.miit.gov.cn/#/Integrated/index" target="_blank">粤ICP备20058927号</a></p><p>© Copyright © 2020-2022 www.superweb999.com 程序员文章站. </p></div></div></div></footer> </body>
</html>