标题:[求助]登陆这种题怎么解?
只看楼主
choosing_318
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-10-27
 问题点数:0 回复次数:4 
[求助]登陆这种题怎么解?
做一登陆页面,输入用户名和密码,给出登陆是否成功的提示。
要求:
(1)提示内容包括:用户名不存在请先注册,密码不正确请重新输入
(2)若登陆成功,将用户名放入到session中,并将用户名显示出来。
   注册页面文件名:index.htm,处理页面(信息提示页面)文件名:login.asp

搜索更多相关主题的帖子: 登陆 
2006-10-27 16:46
s6gy
Rank: 1
等 级:新手上路
帖 子:330
专家分:0
注 册:2006-10-26
得分:0 
在login.asp 中用SESSION
Sql = "select user_name from....."
Session("UserName") = Rs(1)
.....
2006-10-27 16:50
choosing_318
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-10-27
得分:0 
我是初学者,能否再具体一些,谢谢
2006-10-27 17:06
s6gy
Rank: 1
等 级:新手上路
帖 子:330
专家分:0
注 册:2006-10-26
得分:0 
<%
'获取表单变量
UserName = Trim(Request("UserName"))
PassWords = Trim(Request("PassWords"))

If UserName <> "" And PassWords <> "" Then
Sql = "select user_id,user_name from icms_user_v where user_name='" & LCase(UserName) & "'"
Rs.Open Sql,Conn,1,3
If Rs.Eof Or Rs.Bof Then
Rs.Close

Call SysMsgDisplay(1,"用户:" & UserName & "不存在,请检查您输入的用户名是否正确!","用户登录","")
ElseIf Rs(2) <> MD5(PassWords) Then
Rs.Close
Call CloseDatabase()
Call SysMsgDisplay(1,"密码验证错误,请检查您输入的密码是否正确。<br>如果您忘记了密码,请联系管理员重新初始化密码</a>!","用户登录","")
Else
'确认登录,获取用户基本信息并缓存Session
Session("UserID") = cCur(Rs(0))
Session("UserName") = Rs(1)


Rs.Close



Response.Redirect("index.asp")
End If
End If
%>
大概就是这样的
2006-10-27 17:14
choosing_318
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-10-27
得分:0 
谢谢
2006-10-27 17:50



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-99157-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.607090 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved