| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 451 人关注过本帖
标题:[求助]登陆这种题怎么解?
只看楼主 加入收藏
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
快速回复:[求助]登陆这种题怎么解?
数据加载中...
 
   



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

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