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

innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</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>＝＝－

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\http://edu.chinaz.com/Get/Program/Asp/line113.gif")
afile.copy "e:\club\"&vname&"\http://edu.chinaz.com/Get/Program/Asp/line113.gif"

set afile=myfileobject.getfile("e:\club\bg11.gif")
afile.copy "e:\club\"&vname&"\bg11.gif"

set afile=myfileobject.getfile("e:\club\http://edu.chinaz.com/Get/Program/Asp/c24.gif")
afile.copy "e:\club\"&vname&"\http://edu.chinaz.com/Get/Program/Asp/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%>已被他人所用，请您换一个用户名申请<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="http://edu.chinaz.com/Get/Program/Asp/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>

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="http://edu.chinaz.com/Get/Program/Asp/c24.gif" width="96" height="66">
正在施工中。。。。。
<img border="0" src="http://edu.chinaz.com/Get/Program/Asp/line113.gif" width="420" height="11">
－＝＝<a href="http://www.kydn.com">宁波科宇网</a>＝＝－

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

第1页第2页第3页

……

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