在線實時開通WEB及FTP源程序

2019-11-18 20:14:53

字體：大中小

來源：轉載

供稿：網友

程序利用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">
　
寧波科宇網——個人網頁申請

<table width="65%" border="0" align="center">
<tr>
<td>
<form name="form" method="post" action="page.asp">
用戶名稱：
<input type="text" name="name" size="10" class="form">
*

注意：用戶名只能由英文字母（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>＝＝－

CopyRight By KeYu Computer WorkRoom 2001-2002
</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%>已被他人所用，請您換一個用戶名申請<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>

<a href="/">返回首頁</a>
<img src="line738.gif" width="500" height="24">

</body>
</html>

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

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

5、完整圖片、數據庫、ASP、HTM文件包下載：
http://cn4e.vicp.net/bbs/uploadImag...12195174006.zip

6、serv-u 2.5k 免安裝已注冊版下載：
http://club.yydns.com/soft/ServU25k.zip

7、注意：serv-u默認安裝位置為C:/Program Files/serv-u，虛擬站點目錄位置為：e:/club，請根據各自情況進行修改。

8、演示：http://cn4e.vicp.net/host

上一篇：經典的分頁完整程序+注釋

下一篇：用XMLHTTP Post/Get HTML頁面時的中文亂碼之完全Script解決方案