首页 > > 网络编程 > Asp编程 >

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

2008-02-23 09:40:49来源：互联网阅读 ()

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

</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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有