Online real-time open web and FTP source program [Turn]

Programs are implemented using FSO+SERV-U (2.x version):
1. Registration Document Index.htm
<title> Ningbo Branch Woo Net--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 (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 ("Please enter the username you want to register!") ");
Document.form.name.focus ();
return false;
}
if (! Checkifenglish (Document.form.name.value)) {
Alert ("User name cannot enter Chinese and illegal characters!") ");
Document.form.name.focus ();
return false;
}
if ((Document.form.pass.value = "") && (Document.form.rpass.value = = "")) {
Alert ("Password cannot be blank!") ");
Document.form.pass.focus ();
Document.form.rpass.focus ();
return false;
}
if ((Document.form.pass.value)!= (Document.form.rpass.value)) {
Alert (' Two password input is not the same! '');
Document.form.pass.focus ();
Document.form.rpass.focus ();
return false;
}
if (Document.form.email.value = = "") {
Alert ("Please enter your email! ");
Document.form.email.focus ();
return false;
}
if (! Emailreg.test (Document.form.email.value)) && (document.form.email.value!= ")") {
Alert (' Email format is not correct! '');
Document.form.email.focus ();
return false;
}
return true;
}