极乐门资源网 Design By www.ioogu.com
程序利用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">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" background="crystal.jpg">
<p align="center"> </p>
<p align="center"><b><font size="6" color="#333333">宁波科宇网——个人网页申请</font></b></p>
<p align="center"></p>
<table width="65%" border="0" align="center">
<tr>
<td>
<form name="form" method="post" action="page.asp">
<p><b>用户名称:</b>
<input type="text" name="name" size="10" class="form">
*
注意:用户名只能由英文字母(a-z、A-Z),数字(0-9)构成,不能有空格。
<b>密 码:</b>
<input type="password" name="pass" size="10" class="form">
*</p>
<p><b>确认密码:</b>
<input type="password" name="rpass" size="10" class="form">
*(确认上面的密码)</p>
<p><b>您的MAIL:</b>
<input type="text" name="email" size="20" class="form">*(请正确填写)
</p>
<p>
<input type="submit" name="Submit" value="提交" onClick ="java script:return checkSubmit()">
<input type="reset" name="Submit2" value="重写">
其中*号项目为必填项目!</p>
</form>
</td>
</tr>
</table>
<p align="center"><font color="#FF0000">注意:本空间可以安装BBS论坛,严格禁止江湖、聊天室等严重占用资源的程序运行。
一经发现,删除全部程序及FTP帐号,并不于通知!</font></p>
<p align="center"> </p>
<p align="center">-==<a href="mailto:support@4email.vicp.net">宁波科宇网</a>==-
CopyRight By KeYu Computer WorkRoom 2001-2002</p>
</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%>已被他人所用,请您换一个用户名申请<P><a href="./">返回申请页面</a></p></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">
<p align="center"><b><font color="#FF0000" size="7">恭喜您</font></b></p>
<p align="center"><img border="0" src="line761.gif" width="560" height="18"></p>
<p align="center"></p>
<p align="center">您已成功地申请了自己的个人主页</p>
<p></p><table width="451" border="0" align="center">
<tr>
<td width="443"><b>请您阅读以下注意事项:</b></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地址为<b><font color="#FF0000">cn4e.vicp.net</font></b></td>
</tr>
<tr>
<td width="443">4、访问路径是<b><font color="#FF0000">http://cn4e.vicp.net/您的用户名</font></b></td>
</tr>
<tr>
<td width="443">5、如有任何疑问,请致信<a href="mailto:support@4email.vicp.net">support@4email.vicp.net</a></td>
</tr>
</table>
<p align="center"><a href="http://www.kydn.com">宁波科宇网</a>
<p align="center"><a href="/">返回首页</a></p>
<p align="center"><img src="line738.gif" width="500" height="24"></p>
<p align="center"></p>
</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">
<p align="center"> </p>
<p align="center"><b><font size="6">个人网页</font></b></p>
<p align="center"><img border="0" src="c24.gif" width="96" height="66"></p>
<p align="center">正在施工中。。。。。</p>
<p align="center"><img border="0" src="line113.gif" width="420" height="11"></p>
<p align="center">-==<a href="http://www.kydn.com">宁波科宇网</a>==-
CopyRight By KeYu Computer WorkRoom 2001-2002</p>
</body>
</html>
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">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" background="crystal.jpg">
<p align="center"> </p>
<p align="center"><b><font size="6" color="#333333">宁波科宇网——个人网页申请</font></b></p>
<p align="center"></p>
<table width="65%" border="0" align="center">
<tr>
<td>
<form name="form" method="post" action="page.asp">
<p><b>用户名称:</b>
<input type="text" name="name" size="10" class="form">
*
注意:用户名只能由英文字母(a-z、A-Z),数字(0-9)构成,不能有空格。
<b>密 码:</b>
<input type="password" name="pass" size="10" class="form">
*</p>
<p><b>确认密码:</b>
<input type="password" name="rpass" size="10" class="form">
*(确认上面的密码)</p>
<p><b>您的MAIL:</b>
<input type="text" name="email" size="20" class="form">*(请正确填写)
</p>
<p>
<input type="submit" name="Submit" value="提交" onClick ="java script:return checkSubmit()">
<input type="reset" name="Submit2" value="重写">
其中*号项目为必填项目!</p>
</form>
</td>
</tr>
</table>
<p align="center"><font color="#FF0000">注意:本空间可以安装BBS论坛,严格禁止江湖、聊天室等严重占用资源的程序运行。
一经发现,删除全部程序及FTP帐号,并不于通知!</font></p>
<p align="center"> </p>
<p align="center">-==<a href="mailto:support@4email.vicp.net">宁波科宇网</a>==-
CopyRight By KeYu Computer WorkRoom 2001-2002</p>
</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%>已被他人所用,请您换一个用户名申请<P><a href="./">返回申请页面</a></p></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">
<p align="center"><b><font color="#FF0000" size="7">恭喜您</font></b></p>
<p align="center"><img border="0" src="line761.gif" width="560" height="18"></p>
<p align="center"></p>
<p align="center">您已成功地申请了自己的个人主页</p>
<p></p><table width="451" border="0" align="center">
<tr>
<td width="443"><b>请您阅读以下注意事项:</b></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地址为<b><font color="#FF0000">cn4e.vicp.net</font></b></td>
</tr>
<tr>
<td width="443">4、访问路径是<b><font color="#FF0000">http://cn4e.vicp.net/您的用户名</font></b></td>
</tr>
<tr>
<td width="443">5、如有任何疑问,请致信<a href="mailto:support@4email.vicp.net">support@4email.vicp.net</a></td>
</tr>
</table>
<p align="center"><a href="http://www.kydn.com">宁波科宇网</a>
<p align="center"><a href="/">返回首页</a></p>
<p align="center"><img src="line738.gif" width="500" height="24"></p>
<p align="center"></p>
</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">
<p align="center"> </p>
<p align="center"><b><font size="6">个人网页</font></b></p>
<p align="center"><img border="0" src="c24.gif" width="96" height="66"></p>
<p align="center">正在施工中。。。。。</p>
<p align="center"><img border="0" src="line113.gif" width="420" height="11"></p>
<p align="center">-==<a href="http://www.kydn.com">宁波科宇网</a>==-
CopyRight By KeYu Computer WorkRoom 2001-2002</p>
</body>
</html>
极乐门资源网 Design By www.ioogu.com
极乐门资源网
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
极乐门资源网 Design By www.ioogu.com
暂无在线实时开通FTP&WEB的评论...
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新日志
2024年12月24日
2024年12月24日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]