JavaScript用户注册表单验证

<script LANGUAGE="javascript">
function check()
{

if (document.form1.name.value == "")
{
alert("请填写您的用户名！");
document.form1.name.focus();
return (false);
}

var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;
if (!filter.test(document.form1.name.value)) {
alert("用户名填写不正确,请重新填写！可使用的字符为（A-Z a-z 0-9 _ - .)长度不小于5个字符，不超过15个字符，注意不要使用空格。");
document.form1.name.focus();
document.form1.name.select();
return (false);
}

if (document.form1.mima.value =="")
{
alert("请填写您的密码！");
document.form1.mima.focus();
return (false);
}

if(document.form1.mima1.value==""){
alert("请输入您的确认密码！");
document.form1.mima1.focus();
return (false);
}

var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;
if (!filter.test(document.form1.mima.value)) {
alert("密码填写不正确,请重新填写！可使用的字符为（A-Z a-z 0-9 _ - .)长度不小于5个字符，不超过15个字符，注意不要使用空格。");
document.form1.mima.focus();
document.form1.mima.select();
return (false);
}

if (document.form1.mima.value!=document.form1.mima1.value ){
alert("两次填写的密码不一致，请重新填写！");
document.form1.mima.focus();
document.form1.mima.select();
return (false);
}

if (document.form1.wenti.value == "")
{
alert("请输入密码提示问题！");
document.form1.wenti.focus();
return (false);
}
if (document.form1.daan.value == "")
{
alert("请输入密码提示答案！");
document.form1.daan.focus();
return (false);
}

if (document.form1.email.value == "")
{
alert("请输入您的电子邮件地址！");
document.form1.email.focus();
document.form1.email.select();
return (false);
}

var filter=/^\s*([A-Za-z0-9_-]+(\.\w+)*@(\w+\.)+\w{2,3})\s*$/;
if (!filter.test(document.form1.email.value)) {
alert("邮件地址不正确,请重新填写！");
document.form1.email.focus();
document.form1.email.select();
return (false);
}

}
</script>

按钮<input type="button" value="提交" onclick="return check()">






其他的类似这样写就ok了.

VB的登录CHECK，

if request("action")="login" then
user=request.form("user")
pass=md5(request.form("pass"))

If Trim(Request.Form("validatecode"))=Empty Or Trim(Session("cnbruce.com_ValidateCode"))<>Trim(Request.Form("validatecode")) Then
response.write("The Code is incorrect.")
response.end
end if
if user="" or pass="" then
response.Write("<script language=javascript>alert('Some textarea is emporty');history.go(-1)</script>")
end if

sql="SELECT * FROM D_Member WHERE M_User='" & Replace(user,"'","''") & "' and M_Password='" & Replace(pass,"'","''") & "'"
set rs=conn.execute(sql)

if rs.eof or rs.bof then
response.write "<script language=javascript>"
response.write "alert('Error:The user or password is incorrect!');"
response.write "javascript:history.go(-1);"
response.write "</script>"

else

set rs=server.createobject("adodb.recordset")
sql="select * from D_Member where M_User='"&user&"'"
rs.open sql,conn,1,3
'set session
session.Timeout=180
session("jUser")=user
session("jPass")=pass
session("jClass")=rs("M_Class")
session("jVip")=rs("M_Vip")
rs("M_LastLogin")=now()
rs("M_LoginTimes")=rs("M_LoginTimes")+1
rs("M_LastIP")=request.servervariables("remote_addr")
rs.update
rs.close
set rs=nothing

Response.redirect "admin.asp"

end if

end if