在线实时开通FTP&WEB
程序员文章站
2022-08-06 10:46:12
程序利用fso+serv-u（2.x版本）实现：
1、index.htm
宁波科宇网—...</div>
<div class="content">
程序利用fso+serv-u（2.x版本）实现：
<br><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="javascript">
<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>}
<br><br>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>}
<br><br>if (!checkifenglish(document.form.name.value )) {
<br>alert("用户名不能输入中文及非法字符！");
<br>document.form.name.focus();
<br>return false;
<br>}
<br><br>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>}
<br><br>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>}
<br><br>if (document.form.email.value == "") {
<br>alert("请输入您的email！");
<br>document.form.email.focus();
<br>return false;
<br>}
<br><br>if ((!emailreg.test(document.form.email.value))&&(document.form.email.value!='''''''')) {
<br>alert (''''email的格式不正确！'''');
<br>document.form.email.focus();
<br>return false;
<br>}
<br><br>return true;
<br>}
<br></script>
<br><br><script language="javascript">
<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.asp">
<br><p><b>用户名称：</b>
<br><input type="text" name="name" size="10" class="form">
<br>*
<br><br>注意：用户名只能由英文字母（a-z、a-z），数字（0-9）构成，不能有空格。
<br><br><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="重写">
<br><br><br>其中*号项目为必填项目！</p>
<br></form>
<br></td>
<br></tr>
<br></table>
<br><p align="center"><font color="#ff0000">注意：本空间可以安装bbs论坛，严格禁止江湖、聊天室等严重占用资源的程序运行。
<br><br>一经发现，删除全部程序及ftp帐号，并不于通知！</font></p>
<br><p align="center"> </p>
<br><p align="center">－＝＝<a href="mailto:support@4email.vicp.net">宁波科宇网</a>＝＝－
<br><br>copyright by keyu computer workroom 2001-2002</p>
<br></body>
<br></html>
<br><br>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
<br><br>set myfileobject=server.createobject("scripting.filesystemobject")
<br>myfileobject.createfolder("e:\club\"&vname)
<br>set afile=myfileobject.getfile("e:\club\person.htm")
<br>afile.copy "e:\club\"&vname&"\index.htm"
<br><br>set afile=myfileobject.getfile("e:\club\line113.gif")
<br>afile.copy "e:\club\"&vname&"\line113.gif"
<br><br>set afile=myfileobject.getfile("e:\club\bg11.gif")
<br>afile.copy "e:\club\"&vname&"\bg11.gif"
<br><br>set afile=myfileobject.getfile("e:\club\c24.gif")
<br>afile.copy "e:\club\"&vname&"\c24.gif"
<br><br>set mytextfile=myfileobject.opentextfile("c:\program files\serv-u\serv-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>
<br><br>3、注册成功页面welcome.htm
<br><html>
<br><head>
<br><title>ok</title>
<br><meta http-equiv="content-type" content="text/html; charset=gb2312">
<br></head>
<br><br><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>请您阅读以下注意事项：</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工具来上传您的文件。</td>
<br></tr>
<br><tr>
<br><td width="443">3、本站个人主页的ftp地址为<b><font color="#ff0000">cn4e.vicp.net</font></b></td>
<br></tr>
<br><tr>
<br><td width="443">4、访问路径是<b><font color="#ff0000">http://cn4e.vicp.net/您的用户名</font></b></td>
<br></tr>
<br><tr>
<br><td width="443">5、如有任何疑问，请致信<a href="mailto:support@4email.vicp.net">support@4email.vicp.net</a></td>
<br></tr>
<br></table>
<br><p align="center"><a href="http://www.kydn.com">宁波科宇网</a>
<br><br><p align="center"><a href="/">返回首页</a></p>
<br><p align="center"><img src="line738.gif" width="500" height="24"></p>
<br><p align="center"></p>
<br></body>
<br></html>
<br><br>4、默认首页文件person.htm
<br><html>
<br><head>
<br><title>个人网站</title>
<br><meta http-equiv="content-type" content="text/html; charset=gb2312">
<br></head>
<br><br><body bgcolor="#ffffff" text="#000000" background="bg11.gif">
<br><p align="center"> </p>
<br><p align="center"><b><font size="6">个人网页</font></b></p>
<br><p align="center"><img border="0" src="c24.gif" width="96" height="66"></p>
<br><p align="center">正在施工中。。。。。</p>
<br><p align="center"><img border="0" src="line113.gif" width="420" height="11"></p>
<br><p align="center">－＝＝<a href="http://www.kydn.com">宁波科宇网</a>＝＝－
<br><br>copyright by keyu computer workroom 2001-2002</p>
<br></body>
<br></html>
<br><p>
</p> </div>
<div class="info-pre-next">
<p>
上一篇： <a href="/article/1792593.html">
硬盘文件搜索代码（ASP类） </a>
</p>
<p>
下一篇： <a href="/article/1792595.html">
区块链没那么神秘，课工场区块链学院领你轻松入门 </a>
</p>
</div>
<div class="wz_tuijian">
<p>
推荐阅读 </p>
<ul>
<li>
<a href="/article/2140073.html" target="_blank" title="Ajax在线提交留言并实时显示的js代码[修正版]">
<h2>
Ajax在线提交留言并实时显示的js代码[修正版] </h2>
</a>
</li>
<li>
<a href="/article/2007875.html" target="_blank" title="PHP+jquery实时显示网站在线人数的方法">
<h2>
PHP+jquery实时显示网站在线人数的方法 </h2>
</a>
</li>
<li>
<a href="/article/2005439.html" target="_blank" title="实时在线评论如何帮助网站提高SEO优化排名">
<h2>
实时在线评论如何帮助网站提高SEO优化排名 </h2>
</a>
</li>
<li>
<a href="/article/1995574.html" target="_blank" title="全国首例：深圳市儿童医院开通支付宝在线刷医保">
<h2>
全国首例：深圳市儿童医院开通支付宝在线刷医保 </h2>
</a>
</li>
<li>
<a href="/article/1847207.html" target="_blank" title="一个实用的FSO-实时统计在线人数">
<h2>
一个实用的FSO-实时统计在线人数 </h2>
</a>
</li>
<li>
<a href="/article/1817768.html" target="_blank" title="蜀山战纪怎么免费在线观看?免费开通爱奇艺会员方法介绍">
<h2>
蜀山战纪怎么免费在线观看?免费开通爱奇艺会员方法介绍 </h2>
</a>
</li>
<li>
<a href="/article/1792594.html" target="_blank" title="在线实时开通FTP&WEB">
<h2>
在线实时开通FTP&WEB </h2>
</a>
</li>
<li>
<a href="/article/1792582.html" target="_blank" title="一个实用的FSO－实时统计在线人数">
<h2>
一个实用的FSO－实时统计在线人数 </h2>
</a>
</li>
<li>
<a href="/article/1792557.html" target="_blank" title="一个实用的FSO－实时统计在线人数">
<h2>
一个实用的FSO－实时统计在线人数 </h2>
</a>
</li>
<li>
<a href="/article/1656790.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>