[图文]ASP应用：会员登录验证函数

热荐 ★★★★

【字体：小大】

·好听的歌

·火影忍者

ASP应用：会员登录验证函数

作者：佚名文章来源：本站原创点击数：更新时间：2005-9-30

代码如下：

<＃
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("<script language=javascript>alert(""请将帐号密码填写完整，谢谢合作。"");history.go(-1)</script>")
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("<script language=javascript>alert(""没有该会员ID，请确认有没有被申请。"");history.go(-1)</script>")
else
    if rs(""&pwdfield&"")=cn_pwd then
    session("cn_name")=rs(""&namefield&"")
    response.Redirect(reurl)
    else
    response.Write("<script language=javascript>alert(""提醒，您的帐号和密码是不吻合。注意数字和大小写。"");history.go(-1)</script>")
    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")
＃>

丁丁说明：把＃换成%

上一篇文章：清除SQL Server日志的两种方法

下一篇文章：关于IIS连接数限制的介绍

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】【推荐赚点】