简单的登陆问题

vcinsect 2004-08-11 02:23:21
我想把我的UserPwd跟数据库中的Col002或Col003比较,只要有一个相等,就可登陆,
如果UserPwd=Col002就Session("UserId") = rs.Fields("Col002")
如果UserPwd=Col003就Session("UserId") = rs.Fields("Col003")
<%
UserName = request.form("UserName")
UserPwd = request.form("UserPwd")
If UserName = "" Then
Errmsg = "请输入用户名和密码"
Else
'=============连接数据库===============
Set Conn=Server.CreateObject("ADODB.Connection")
'Conn.ConnectionString="driver={SQL Server};server=cupta;UID=sa;PWD=Iamcupta;Database=GjjChaxun"
Conn.ConnectionString="driver={SQL Server};server=localhost;UID=sa;PWD=;Database=GjjChaxun"
'连接数据库
Conn.Open
'============从表Users中读取用户数据==============
'定义Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
'设置Connection对象的ConnectionString
'设置rs的ActiveConnection属性,绑定到连接
Set rs.ActiveConnection = Conn
'设置游标类型
rs.CursorType = 3
'打开记录集
rs.Open "SELECT * FROM sgx WHERE Col004='" & Trim(UserName) & "'"
'=============身份验证===========================
If rs.EOF Then
Errmsg = "用户不存在"
Else
If trim(UserPwd) <> trim(rs.Fields("Col002")) Then
if trim(UserPwd) <> trim(rs.Fields("Col003")) then
Errmsg = "密码不正确"
End if
Else '登录成功
Session("UserId") = rs.Fields("Col002")
Response.Redirect"admin/SHOWCHAXUN.ASP"
End If
End If
End If

%>
...全文
104 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
这样就行了
<%
lnname=trim(request.Form("lnname"))
lnpassword=trim(request.Form("lnpassword")) '取得用户名和密码
lnpassword=md5(lnpassword)
'if lnname<>"" then
' elseif lnpassword="" then
' response.write("请输入密码")
' else
'response.write("请输入用户名")
'end if '检测输入的用户名和密码是否为空
rs.open "select * from admin where isuse and password='"&lnpassword&"' and username='"&lnname&"'",conn,1,1
if not(rs.bof and rs.eof) then
if rs("adminrt")>996 then
session("adminrt")=rs("adminrt")
session("teachername")=rs("username")
session("lnuserid")=rs("id")
response.Redirect("lndefault.asp")
'response.Write(session("adminrt"))
' response.write(session("teachername"))
else
response.Write("<br><br><font color=red>对不起,您还没通过审核</font><a href="&"javascript:history.back()"&">点此返回</a>")
end if
else
response.Write("<br><br><font color=red>密码错误或是此用户不存在</font><a href="&"javascript:history.back()"&">点此返回</a>")
end if

这样就行了,而且我还有些你用不着的东西
%>
rueir 2004-08-11
  • 打赏
  • 举报
回复
就是哈!
我顶!
bananasmiling 2004-08-11
  • 打赏
  • 举报
回复
呵呵.不明白你的程序为什么要写得这么复杂

28,408

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧