Activate FTP&WEB in real time online

The program uses FSO+SERV-U (version) to implement:

1、
<html>
<head>
<title>Ningbo Keyu Network——Personal Web Application</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(( 0 )==''''-'''')
return false;
if( ( - 1 ) == ''''-'''' )
return false;
for( i = 0; i < ; i ++ )
{
c = ( i );
if (( c ) < 0)
return false;
}
return true;
}

function checkSubmit() {
var EmailReg = /^[_a-z0-9]+@([_a-z0-9]+\.)+[a-z0-9]{2,3}$/;
if ( == "") {
alert("Please enter the user name you want to register!");
();
return false;
}

if (!CheckIfEnglish( )) {
alert("The user name cannot enter Chinese and illegal characters!");
();
return false;
}

if (( == "")&&( == "")) {
alert("Password cannot be empty!");
();
();
return false;
}

if (()!=()) {
alert ('''''The secondary password input is different!'''');
();
();
return false;
}

if ( == "") {
alert("Please enter your email!");
();
return false;
}

if ((!())&&(!='''''''')) {
alert ('''''Email's format is incorrect!'''');
();
return false;
}

return true;
}
</script>

<script language="JavaScript">

</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" background="">
　
Ningbo Keyu Network——Personal Web Application

<table width="65%" border="0" align="center">
<tr>
<td>
<form name="form" method="post" action="">
User Name:
<input type="text" name="name" size="10" class="form">
*

Note: The username can only be composed of English letters (a-z, A-Z) and numbers (0-9), and cannot have spaces.

Password:
<input type="password" name="pass" size="10" class="form">
*
Confirm password:
<input type="password" name="rpass" size="10" class="form">
* (Confirm the password above)
Your MAIL:
<input type="text" name="email" size="20" class="form">*(Please fill in correctly)


<input type="submit" name="Submit" value="Submit" onClick ="java script:return checkSubmit()">
<input type="reset" name="Submit2" value="rewrite">

Among them, item * is a required item! 
</form>
</td>
</tr>
</table>
Note: This space can install BBS forums, and programs that seriously occupy resources such as Jianghu and chat rooms are strictly prohibited from running.

Once discovered, deleting all programs and FTP accounts will not be notified! 
　
-==<a href="mailto:support@">Ningbo Keyu Network</a>==-

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

2. Backend control file
<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 ("name")="" then
"Error prompt: Please enter your username!"

end if
if ("pass")="" then
"Error prompt: Please enter the password!"

end if
if ("pass")<>("rpass") then
"Error prompt: The password does not match twice!"

end if
if ("email")="" then
"Error prompt: You must enter your correct EMAIL!"

end if
%>
<%set myconn=("")
dbpath=("")
"driver={Microsoft access driver (*.mdb)};dbq="&dbpath
SQL="select * from hostname where username=''''"&vname&"''''"
set list=(sql)
%>
<% if then%>
<%
set rs=("")
"hostname", myconn, adOpenDynamic, 3

rs("username")=vname
rs("pass")=vpass
rs("email")=vemail

Set myfileobject=("")
("e:\club\"&vname)
set afile=("e:\club\")
"e:\club\"&vname&"\"

set afile=("e:\club\")
"e:\club\"&vname&"\"

set afile=("e:\club\")
"e:\club\"&vname&"\"

set afile=("e:\club\")
"e:\club\"&vname&"\"

set mytextfile=("C:\Program Files\serv-u\",8)
("[USER="&vname&"]")
("password="&vpass)
("HomeDir=e:\club\"&vname)
("RelPaths=YES")
("ChangePassword=YES")
("SpeedLimit=20480")
("QuotaEnable=YES")
("QuotaMaxCurrent=20971520,0")
("TimeOut=600")
("Access1=e:\club\"&vname&",RWAMCDLP")
""

%>
<%else%>
<center>Sorry, your username <%=vname%> has been used by others. Please change your username and apply <a href="./">Return to the application page</a></center>
<%end if%>
</body>
</html>

3. Registration successful page
<html>
<head>
<title>OK</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000" background="">
Congratulations
<img border="0" src="" width="560" height="18">

You have successfully applied for your personal homepage
<table width="451" border="0" align="center">
<tr>
<td width="443">Please read the following precautions:</td>
</tr>
<tr>
<td width="443">1. Your homepage space is 20M, supports ASP, and does not support CGI for the time being. Please upload your homepage in time. If you do not upload for more than three weeks, we will delete your account! </td>
</tr>
<tr>
<td width="443">2. This site supports FTP login and breakpoint continuous transmission. You can use various FTP tools to upload your files. </td>
</tr>
<tr>
<td width="443">3. The FTP address of this website’s personal homepage is </td>
</tr>
<tr>
<td width="443">4. The access path is /Your username</td>
</tr>
<tr>
<td width="443">5. If you have any questions, please write to <a href="mailto:support@">support@</a></td>
</tr>
</table>
<a href="">Ningbo Keyu Network</a>

<a href="/">Return to homepage</a>
<img src="" width="500" height="24">

</body>
</html>

4. Default homepage file
<html>
<head>
<title>Personal Website</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000" background="">
　
Personal Web Page
<img border="0" src="" width="96" height="66">
In progress. . . . . 
<img border="0" src="" width="420" height="11">
-==<a href="">Ningbo Keyu Network</a>==-

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