应用框架想作个类似中关村以游客身份那样的登陆框 请高手进
做个网上书店整个页面是有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