ASP之会员登录验证函数

代码如下：

<＃

Function chk_regist(requestname,requestpwd,tablename,namefield,pwdfield,reurl)

dim cn_name,cn_pwd

cn_name=trim(request.form(""&requestname&""))

cn_pwd=trim(request.form(""&requestpwd&""))

if cn_name="" or cn_pwd="" then

    response.Write("cript>alert(""请将帐号密码填写完整，谢谢合作。"");history.go(-1)")

end if

Set rs = Server.CreateObject ("ADODB.Recordset")

sql = "Select * from "&tablename&" where "&namefield&"='"&cn_name&"'"

rs.open sql,conn,1,1

if rs.eof then

    response.Write("cript>alert(""没有该会员ID，请确认有没有被申请。"");history.go(-1)")

else

    if rs(""&pwdfield&"")=cn_pwd then 

    session("cn_name")=rs(""&namefield&"")

    response.Redirect(reurl)

    else

    response.Write("cript>alert(""提醒，您的帐号和密码是不吻合。注意数字和大小写。"");history.go(-1)")

    end if

end if

rs.close 

Set rs = Nothing

End Function

＃>

参数说明：

chk_regist(requestname,requestpwd,tablename,namefield,pwdfield,reurl)

requestname 为接受HTML页中输入名称的INPUT控件名

requestpwd 为接受HTML页中输入密码的INPUT控件名

tablename 为数据库中保存注册信息的表名

namefield 为该信息表中存放用户名称的字段名

pwdfield 为该信息表中存放用户密码的字段名

reurl 为登录正确后跳转的页

引用示例如下：

<＃

call chk_regist("b_name","b_pwd","cn_admin","cn_name","cn_pwd","admin.asp")

＃>

说明：把＃换成%

 

 

==================================

验证是否转化url值登录：

这是一个函数，可以直接调用，返回True时，合法;False不合法

Function CheckPost()
Dim PrivURL,Host
PrivURL=Lcase(Request.ServerVariables("HTTP_REFERER"))
Host="http://" & Lcase(Request.ServerVariables("HTTP_HOST")) & "/"
If Left(PrivURL,Len(Host))<>Host Then
CheckPost=False
Else
CheckPost=True
End If
End Function