当前位置: 首页 > 图文教程 > 网络编程 > ASP > 在线实时开通WEB及FTP源程序

ASP
对连串英文自动换行的解决方法 IE5.5
怎样写你自己的EMAIL组件(原理)
ASP中有关timeout超时的体会
用ASP实现从SQL Server导出数据到Access
ASP向NT域中加一个用户
ASP乱码的解决方法
关于 aspsmartupload 注册问题
利用XML不离开页面刷新数据
IIS 处理 SEARCH 请求漏洞
不用组件实现上载功能(1)
不用组件实现上载功能(2)
在网页中实现OICQ里的头像选择的下拉框
仅用xsl和asp实现分页功能
如何使用context()方法将数据置入表格(XML)
利用ASP从远程服务器上接收XML数据
将数据库里面的内容生成EXCEL
怎样在ASP里面创建统计图表
加密你的Access数据库
利用global.asp定时执行ASP
加密QueryString数据

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 129 ::
收藏到网摘: n/a

程序利用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:[email protected]">宁波科宇网</a>==-

CopyRight By KeYu Computer WorkRoom 2001-2002</p>
</body>
</html>

2、后台控制