- 注册时间
- 2006-6-3
- 最后登录
- 2007-12-11
- 阅读权限
- 20
- 积分
- 59
- 精华
- 0
- 帖子
- 59
- 性别
- 保密
- 听众数
- 0
- 买家信用
 - 卖家信用
- 在线时间
- 0 小时
- 相册
- 0
|
|
[vscript]<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=20 |
|
/1 
窥视卡
雷达卡
发表于 2006-8-8 14:13:00
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
