日期:2014-05-17  浏览次数:21064 次

应用框架想作个类似中关村以游客身份那样的登陆框 请高手进
做个网上书店整个页面是有3部分组成顶部导航功能(有个刷新按纽),左边实现的是登录(类似中关村在线论坛以游客的身份进入的形式)和书籍分类意见搜索功能的,主页面是书籍信息.    
 
左边当没有登录时,显示的是登录框,登录后显示**你好之类的信息,如今遇到的问题是:登录成功后,刷新左页面依然显示的是**你好信息,但当刷新整个页面时,左页面又回到登录框了,我知道问题的所在:就是刷新整个页面时,整个页面又重新执行了一次所以按照我的if--else语句   表单传的值是空.是不是我的逻辑步骤做的不好   部分代码如下:虚心求教!!    
 
<%@     language=VBScript     %>    
<!--#include     file= "ADOFunctions.asp "-->    
<%    
  dim     nicename,password    
      nicename=request.form( "nicename ")    
      password=request.form( "password ")    
session( "nicename ")=nicename    
session( "password ")=password    
%>    
<%    
 
'在确定登录用户输入了用户名和密码之后进入下一步,否则给出错误信息    
if     session( "nicename ") <> " "     and     session( "bookshop ")( "password ") <> " "     then     %>    
<fieldset>    
<%    
Dim     strSQL    
'从数据库中检索是否存在该用户名与密码对应的用户    
strSQL= "select         *     from     customers     where     nicename= ' "     &session( "nicename ")& " '     and     password= ' "     &session( "password ")& " ' "    
Dim     objRs    
Set     objRS     =     GetSQLRecordset(strSQL,     "mdb/bookshop.mdb ",     "customers ")        
'如果存在使用该用户名和密码对应的用户,则使用session保存用户名和密码    
if     not     ObjRs.eof     then    
%>    
 
<img     border= "0 "     src= "default.file/left0.gif "     width= "180 "     height= "18 "> <font     face= "宋体 "     size= "2 "     color= "#FF9501 ">    
欢迎 <font     color=red> <%=session( "nicename ")%> </font> 会员登陆 </font> </fieldset>    
 
 
 
<%    
'用户名和密码不一致或者帐号不存在,给出错误信息    
else    
response.write     "错误:用户名或者密码错误! "    
end     if    
'关闭并释放对象    
objRs.close    
set     objRs=nothing    
objConn.Close                                        
Set     objConn     =     Nothing        
'如果用户没有填写用户名或者密码    
else        
%>        
<fieldset>    
         
<font     face= "宋体 "     size= "2 "     color= "#FF9501 ">    
        &nb