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

[会员中心] [发布文章][发布软件] [中文繁體]

本站搜索

推荐文章 More...

	华硕易电脑(ASUS Eee PC 1025C.. 先来段开场白：为了外出携带方便，到淘..

	Acronis True Image 使用说明　　一款可以在Windows下使用全部功..

	Norton Ghost 使用详解一、分区备份　　使用Ghost进行系..

文章阅读排行

	手机视频监控 APP 关闭广告：萤.. 一、萤石云视频：我的，设置，隐私设置，..

	常见数据库介绍与对比（SQL Serv.. 常见数据库的对比分析，涵盖你提到的 A..

	Windows 系统修改默认文件类型.. Windows 系统文件类型图标，通常由默..

	Windows 系统安装或备份时 ISO，.. 【ISO 文件】 ISO 文件其实就是光..

	Microsoft SQL Server 2000 Per.. 　　对于第一次安装 Microsoft SQL Se..

	颜色与英文单词对照颜色与英文单词对照 red green bl..

	PakePlus 构建 APP 需要 Github.. PakePlus 是一个基于 Rust Tauri 的..

	主页真的越Google、越简洁越好吗　　如果你在11月10日早上打开雅虎中..

	网络工程师必懂的专业术语路由器问题：1、什么时候使用多路由协..

	为啥现在的电脑都不能安装 Wind.. 说实话，这几年如果你尝试在新电脑..

文章信息

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

〖评论()〗〖留言〗〖收藏〗

〖文章分类：电脑·手机·网络 / 网站设计·开发·优化〗〖阅读选项〗

程序利用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>

注意：用户名只能由英文字母（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\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%>已被他人所用，请您换一个用户名申请<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="../../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="../../c24.gif" width="96" height="66">
正在施工中。。。。。
<img border="0" src="../../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，请根据各自情况进行修改。

文章作者：未知更新日期：2007-10-25

〖文章浏览：〗〖发送文章〗〖打印文章〗

当佰网【关于·免责声明】

本站使用【啊估文章软件站】网站系统〖网站管理员留言簿〗

闽ICP备08009617号

文章·资料	电脑软件	手机应用	网站源码
电脑·手机·网络学习话题娱乐故事文化·历史国学典籍法律法规	操作系统网络办公·文件音频视频图形图像编程·数据库硬件·驱动程序行业教学学习游戏	鸿蒙安卓苹果其他	HTML·CSS·JavaScript PHP .NET ASP JSP