在线实时开通FTP&WEB

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

赞 (0)

相关推荐

  • 在线实时开通FTP&WEB

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

  • Node.js+express+socket实现在线实时多人聊天室

    Node.js+express+socket实现在线实时多人聊天室

    本文实例为大家分享了Node.js+express+socket实现在线实时多人聊天室的具体代码,供大家参考,具体内容如下 文件结构如下: 前端部分: 登录页面Login部分: login.html <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <meta name="viewport" content="

  • 使用PHP如何实现高效安全的ftp服务器(一)

    FTP服务器(File Transfer Protocol Server)是在互联网上提供文件存储和访问服务的计算机,它们依照FTP协议提供服务. FTP是File Transfer Protocol(文件传输协议).顾名思义,就是专门用来传输文件的协议.简单地说,支持FTP协议的服务器就是FTP服务器. 摘要: 本文主要阐述使用PHP的swoole扩展实现ftp服务器,同时扩展ftp服务器个性化功能和安全性.真正实现一个自己完全掌控的ftp服务器,可以个性化定制的ftp服务器. 正文: FTP

  • 伍捌捌为您提供50M/可绑米的FTP免费空间

    空间大小:50M 编程语言:HTML/ASP 文件上传:FTP/WEB 域   名:送二级域名(经验证可绑顶米) 广   告:没有 注意事项:1.注册信息如实填写,我们将进行审查:       2.空间开通5日内必须提交备案信息,否则将删除:        3.不允许运行聊天室.大型社区.留言板.论坛程序 (电子公告服务)和江湖程序等. 注册后通过http://bbs.588.cc手机或小灵通注册,5元/月,可以扩容到500M 空间,支持绑定15个玉米,允许运行聊天室.大型社区.留言板.论坛程序

  • Django实现WebSocket在线聊天室功能(channels库)

    Django实现WebSocket在线聊天室功能(channels库)

    1.Django实现WebSocket在线聊天室 1.1 安装 pip install channels==2.3 (saas) F:\Desktop\Python_Study\CHS-Tracer\saas>pip install channels==2.3 Looking in indexes: http://mirrors.aliyun.com/pypi/simple/ Collecting channels==2.3   Downloading   ... Successfully in

  • FTP服务器详解之监控ftp服务器、上传文件到ftp服务器、ftp文件监控的方法

    FTP服务器详解之监控ftp服务器、上传文件到ftp服务器、ftp文件监控的方法

    现在FTP文件服务器的使用极为普遍,可以方便地将文件实时存储在FTP文件服务器上,那么如何搭建FTP文件服务器呢,以及如何监控FTP文件服务器文件访问操作日志情况呢?详细如下: 第1页:FTP服务器的作用 FTP服务器(File Transfer Protocol Server)是在互联网上提供文件存储和访问服务的计算机,它们依照FTP协议提供服务.FTP服务器常常被用来进行文件共享和传输,是互联网领域必不可少的一环. FTP服务器的作用 FTP服务器是为了解决文件传输障碍问题而产生的.那么FT

  • 使用ftpClient下载ftp上所有文件解析

    需求:最新项目需要,写个小功能,需求就是实时下载ftp指定文件夹下的所有文件(包括子目录)到本地文件夹中,保留文件到目录路径不变. 分析:关键在于实时和下载并保持原目录.实时使用线程的定时调度完成,主要做后者,这显然要使用递归,但是ftp上的文件是不能直接得到相对路径的(恕我才疏学浅,并没有在FTPClient类中找到类似getPath()的方法),因此路径是要自己记录.总体思路有以下: 1.得到所有路径以及子路径:递归遍历所有文件到路径.参数:ftp为FTPClient对象,path为当前的路

  • ftp突然直接连接不上了的解决方法

    思路: 1.selinux 问题是不是开启了 2.iptbales 中是否加入ftp指定端口了 3.服务是否开启FTP 查找命令: 1.cat :/etc/selinux/config 查看 SELINUX = disable 是否处于关闭状态 2.cat /etc/sysconfig/iptables 查看防火墙是否开通ftp指定端口 3. 1).使用命令:getsebool ftpd_disable_trans 可以查看当前的状态如果不是on 2).输入命令:setsebool ftpd_d

  • nodejs+socket.io实现p2p消息实时发送的项目实践

    目录 常见的消息通知: 实现思路与步骤等 其他方法介绍 技术实现与相关包介绍 包介绍 技术实现 服务端 客户端 常见的消息通知: 常见的站内通知类别(括号里是对自己目前项目出现情况的分析,读者忽略): 公告 Announcement (通道加入新的组织.某组织或用户新上传了某数据摘要.系统凌晨需要版本更新等事件) 提醒 Remind(用户之间.系统与用户之间) 资源订阅提醒(关注的数据摘要更新了内容.评论等) 资源发布提醒(我发布的数据摘要被评论了,被关注了,被申请交易了) 系统提醒 私信 Ma

  • 深圳大学城轮滑俱乐部为大家提供100M免费全能空间

    深圳大学城轮滑俱乐部为大家提供100M免费全能空间.请看下面的介绍: 无条件申请免费空间 空间介绍如下:  空间类型 :普及型    独立WEB空间 100M  支持域名绑子目录数 无限  MSSQL数据库 无限制  Mysql数据库 无限制  同时在线人数(IIS数) 无限制  网站.邮局实时开通    在线绑定域名 无限    在线修改FTP密码    设置默认文档    设置空间状态    FTP在线上传    主机功能    FTP管理    Access数据库    VbScript/

随机推荐