在线实时开通FTP&WEB_ASP教程-查字典教程网

在线实时开通FTP&WEB

摘要：程序利用FSO+SERV-U（2.x版本）实现：1、index.htm宁波科宇网——个人网页申请functionCheckIfEnglish...

程序利用FSO+SERV-U（2.x版本）实现：

1、index.htm

<html>

<head>

<title>宁波科宇网——个人网页申请</title>

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>

<!--

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>

宁波科宇网——个人网页申请

<tr>

<td>

用户名称：

注意：用户名只能由英文字母（a-z、A-Z），数字（0-9）构成，不能有空格。

密码：

*

确认密码：

*（确认上面的密码）

您的MAIL：

<input type="text" name="email" size="20" class="form">*(请正确填写)

其中*号项目为必填项目！

</form>

</td>

</tr>

</table>

注意：本空间可以安装BBS论坛，严格禁止江湖、聊天室等严重占用资源的程序运行。

一经发现，删除全部程序及FTP帐号，并不于通知！

－＝＝<a href="mailto:support@4email.vicp.net">宁波科宇网</a>＝＝－

</body>

</html>

2、后台控制文件page.asp

<html>

<head>

<title>Untitled Document</title>

</head>

<%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:clubperson.htm")

afile.copy "e:club"&vname&"index.htm"

set afile=myfileobject.getfile("e:clubline113.gif")

afile.copy "e:club"&vname&"line113.gif"

set afile=myfileobject.getfile("e:clubbg11.gif")

afile.copy "e:club"&vname&"bg11.gif"

set afile=myfileobject.getfile("e:clubc24.gif")

afile.copy "e:club"&vname&"c24.gif"

set mytextfile=myfileobject.opentextfile("C:Program Filesserv-uServ-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>

</head>

恭喜您

您已成功地申请了自己的个人主页

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

</body>

</html>

4、默认首页文件person.htm

<html>

<head>

</head>

个人网页

正在施工中。。。。。

－＝＝<a href="http://www.kydn.com">宁波科宇网</a>＝＝－

</body>

</html>

【在线实时开通FTP&WEB】相关文章：

★ ASP自动上传远程图片到指定文件夹目录

★ 在线用表单建立文件夹

★ [转]ASP实现关键词获取(各搜索引擎,GB2312及UTF-8)

★ 在ASP中连接MySQL数据库，最好的通过ODBC方法

★ 一个可以自动创建多级目录的函数

★ ASP编程入门进阶（十九）：ASP技巧累加（二）

上一篇： fso实例

下一篇：对文件的操作--建立移动删除文件夹

学习工具