主頁 > 知識庫 > 在線實時開通FTP&WEB

在線實時開通FTP&WEB

程序利用FSO+SERV-U（2.x版本）實現(xiàn)：

1、index.htm
html>
head>
title>寧波科宇網(wǎng)——個人網(wǎng)頁申請/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">寧波科宇網(wǎng)——個人網(wǎng)頁申請/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），數(shù)字（0-9）構(gòu)成，不能有空格。

b>密　　碼：/b>
input type="password" name="pass" size="10" class="form">
*/p>
p>b>確認(rèn)密碼：/b>
input type="password" name="rpass" size="10" class="form">
*（確認(rèn)上面的密碼）/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論壇，嚴(yán)格禁止江湖、聊天室等嚴(yán)重占用資源的程序運(yùn)行。

一經(jīng)發(fā)現(xiàn)，刪除全部程序及FTP帳號，并不于通知！/font>/p>
p align="center">　/p>
p align="center">－＝＝a href="mailto:support@4email.vicp.net">寧波科宇網(wǎng)/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登錄、支持?jǐn)帱c(diǎn)續(xù)傳，可以用各種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">寧波科宇網(wǎng)/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、默認(rèn)首頁文件person.htm
html>
head>
title>個人網(wǎng)站/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">個人網(wǎng)頁/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">寧波科宇網(wǎng)/a>＝＝－

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

標(biāo)簽：大理廣元衡水棗莊萍鄉(xiāng) 江蘇蚌埠衢州

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《在線實時開通FTP&WEB》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。

佳木斯湛栽影视文化发展公司

在線實時開通FTP&amp;WEB

QQ咨詢

電話咨詢

在線實時開通FTP&WEB