当前位置：首页 → 问答吧 → global 连接数据库进行用户身份验证

global 连接数据库进行用户身份验证

时间：2011-12-03

来源：互联网

我是初学者，大家帮我看看我这个代码好吗？

提示错误，可是如果只有框架的话又没错了。
应该是后半段有错

<HTML>
<HEAD><TITLE>请输入用户名和密码</TITLE>

</HEAD>
<BODY>
<p align="center"><b><font color="#000080" size="5" face="华文细黑">身份

验证</font></b></p>
<p align="center"><font color="#800000">　<%=Errmsg%></font></p>
<form method="POST" action="index.asp" name="MyForm" onsubmit ="return

ChkFields()">
<p align="center">用户名：  <input type="text" name="aid"

size="20"></p>
<p align="center">密  码：  <input type="password" name="apwd"

size="20"></p>
<p align="center"><input type="submit" value="提交" name="B1"><input

type="reset" value="全部重写" name="B2"></p>
</form>
</BODY>

</HTML>

<HTML>
<%

If IsEmpty(Session("AdminPassed")) Then
Session("AdminPassed") = False
End If

'如果UserName是空，则转向登录窗体
If Session("AdminPassed")=False Then
'读取从表单传递过来的身份数据
UserName = Request.Form("aid")
UserPwd = Request.Form("apwd")

If UserName = "" Then
Errmsg = "请输入管理员用户名和密码"
Else

If Request("aid") <> "" And Request("apwd") <> "" Then
mysql= "SELECT UserName, UserPwd FROM Users WHERE UserName= '" &

Request.Form("aid") & "'"AND UserPwd = '" & Request.Form("apwd") & "'"

Set objRS = Session("objRS")
objRS.Source = mysql
objRS.Open

If objRS.EOF Then
Errmsg = "用户不存在"
Else
If UserPwd <> objRS.Fields("UserPwd") Then
Errmsg = "密码不正确"
Else '登录成功
Errmsg = ""
Session("AdminPassed") = True
Session("user_id") = objRS.Fields("UserName")
Session("user_pwd") = objRS.Fields("UserPwd")
End If
End If
End If
End If

' 注释：关闭记录集对象
objRS.Close
Set objRS = Nothing
%>

</HTML>

作者: liyanli16 发布时间: 2011-12-03