标题:大家帮我看看登陆问题
取消只看楼主
风中的承诺
Rank: 1
等 级:新手上路
帖 子:331
专家分:0
注 册:2004-10-31
 问题点数:0 回复次数:0 
大家帮我看看登陆问题
下面是ChkPwd.asp
--------------------------
<!-- #include file="Conn.asp"-->
<%
 If IsEmpty(Session("Passed") Then
   Session("Passed") = False
 End If
 
 If Session("Passed") = False Then
   UserName = Request.Form("UserName")
   UserPwd = Request.Form("UserPwd")
 
   If UserName = "" or UserPwd = "" Then
     Errmsg = "请输入用户名或密码"  
   Else
     Set rs = Server.CreateObject("ADODB.Connection")
     Set rs.ActiveConnection = Conn
     rs.CursorType = 3
     rs.Open "SELECT * FROM Users WHERE UserName='" & UserName & "'"
     If rs.EOF Then
       Session("Errmsg") = "用户名不存在"
     Else
       If UserPwd <> rs.Fields("UserPwd") Then
      Session("Errmsg") = "用户密码不正确"
    Else
      Errmsg = ""
      Session("UserName") = rs.Fields("UserName")
      Session("UserPwd") = rs.Fields("UserPwd")
      Session("Errmsg") = ""
    End If
     End If
   End If
   Response .Redirect("index.asp")
 End If      
%>

在首页index.asp
一开始我是这样写的
if Session("Errmsg")<>"" then
Response.write "游客你好,请登陆"

发现有问题
后面无意中改成
if Session("Errmsg")="" then
response.Write "游客你好,请登陆"
else
response.write Session("Errmsg")
Session("Errmsg")=""
end if
就对了

本来在ChkPwd.asp
如果登陆成功,设Session("Errmsg")=""

为什么在首页调用的时候
if Session("Errmsg")="" then
response.Write "游客你好,请登陆"
这个才是对的
而不是
if Session("Errmsg")<>"" then
Response.write "游客你好,请登陆"
搜索更多相关主题的帖子: 登陆 
2005-05-03 13:09



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




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

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