線上即時開通FTPWEB

最後更新：2018-12-08 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

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

注意：使用者名稱只能由英文字母（a-z、A-Z），數字（0-9）構成，不能有空格。

密　　碼：

<input type="password" name="pass" size="10" class="form">

*

確認密碼：

<input type="password" name="rpass" size="10" class="form">

*（確認上面的密碼）

您的MAIL：

<input type="text" name="email" size="20" class="form">*(請正確填寫)





<input type="submit" name="Submit" value="提交" onClick ="java script:return checkSubmit()">

<input type="reset" name="Submit2" value="重寫">

其中*號項目為必填項目！

</form>

</td>

</tr>

</table>

注意：本空間可以安裝BBS論壇，嚴格禁止江湖、聊天室等嚴重佔用資源的程式運行。

一經發現，刪除全部程式及FTP帳號，並不於通知！

　

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

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%>已被他人所用，請您換一個使用者名稱申請<a href="./">返回申請頁面</a></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">

恭喜您

<img border="0" src="line761.gif" width="560" height="18">



您已成功地申請了自己的個人首頁

<table width="451" border="0" align="center">

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

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

　

個人網頁

<img border="0" src="c24.gif" width="96" height="66">

正在施工中。。。。。

<img border="0" src="line113.gif" width="420" height="11">

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

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More

線上即時開通FTPWEB

聯繫我們

A Free Trial That Lets You Build Big!

Sales Support

After-Sales Support