捆饶了N天的sesion问题:SESSION 人间蒸发。。。。100分
刘云涛 2003-10-15 12:50:37 http://www.ctaxqi-ao.com/007
还请耐心的看一下;谁能解决100分全给谁。。
上面的网址就是我的空间上,栏目:工商管理,税收筹划,咨询台,不是VIP会员是不能看的,现在,我们以不登陆的身份 来看上面的三个栏目,点击没一个栏目下的标题(提示:您还没有登陆)---->>>然后用 --》用户名 lyt 密码 1 登陆,在点上面三个栏目的标题,(提示:不是VIP不能浏览,)
问题是: 我现在登陆后,在上面的三个栏目里都把session 的值 输出了,如果登陆后我们先点:工商管理-->税收筹划-->咨询台,(这样的顺序,最后咨询台输出的session是空的);如果我们先点-咨询台的话,那么 其他两个栏目的session都是空的,也可以点别的栏目两次后,在点上面其中一个栏目 session 都没有值,这样很困惑,
我---工商管理-->税收筹划-->咨询台 这三个页面的代码一样,如下:
<%
Take_LoginName_gl=Session("session_username")
'SESSION 值,我在登陆后的 member.asp中已经写入了session
Response.write Take_LoginName_gl '测试session 输出的
Dim User_Accevle
DIm User_Accevle_qy
User_Accevle = ""
User_Accevle_qy = ""
if Take_LoginName_gl<>"" then
sql_dl = "select * from person where login_name='" & Take_LoginName_gl & "'"
set rs_dl = Server.CreateObject("adodb.recordset")
rs_dl.open sql_dl,conn,1,3
if not (rs_dl.eof and rs_dl.bof) then
User_Accevle = rs_dl("booleanhy") '权限值 '如果是个人得到个人的权限值(是,否,是:表示会员。否:则不是会员不能查看)
end if
'以上是判断登陆用户是不是个人用户,(因为登陆的有可能是企业用户和个人用户两种,但用户名是不重复的)
'******************************************************
sql_qy = "select * from member where yhm='" & Take_LoginName_gl & "'"
set rs_qy = server.createobject("adodb.recordset")
rs_qy.open sql_qy,conn,1,3
if not (rs_qy.eof and rs_qy.bof )then
User_Accevle_qy = rs_qy("boolean") 权限值 '如果是企业得到企业的权限值(是,否,是:表示会员。否:则不是会员不能查看)
end if
end if
'以上是判断登陆用户是不是企业用户,登陆用户只可能是这两种用户,总有一个是真值,
'**************************************************************
'以下是判断登陆用户的内容,三个页面的代码都是这样的,(本地是好使的,没问题,空间上你们按我说的看看)
%>
<table width="262" border="0" align="center" cellpadding="0" cellspacing="0">
<% rs.open "select top 8 * from info where leibie='管理理论' order by id desc",conn,1,1
do while not rs.eof %>
<tr>
<td height="24"><img src="images/index_31.gif" width="5" height="9">
<%
if User_Accevle<>"" or User_Accevle_qy<>"" then
if User_Accevle="是" or User_Accevle_qy= "是" then%>
<a href="look.asp?leibie=管理理论&id=<% =rs("id") %>" class="title">
<%else%>
<a href="#" onclick="javascript:alert('对不起,你不是本站VIP会员,此内容您不能浏览\n如果您想成为会员那么请先注册普通会员\然后与本站联系,我们将为您开通会员!--谢谢您的光临')">
<%end if%>
<%else%>
<a href="#" onclick="javascript:alert('对不起,您还没有登陆或登陆超时!请用本站的VIP会员身份登陆\n如果你想浏览此内容请先注册普通会员\n然后与本站联系我们将为您\n开通VIP会员--谢谢您的光临')">
<%end if%>
<% =left(rs("biaoti"),18) %>....
</a>
</td>
</tr>
<tr>
<td><img src="images/index_39.gif" width="253" height="1"></td>
</tr>
<% rs.movenext
loop
rs.close %>
</table>