如何得到SESSION的值?

作者：月夜NO风来源：不详发布时间：2008/07/18 发布人：admin

月夜NO风 发布留言 2008-7-16 17:09

如何得到SESSION的值?

现有LOGIN.ASP,LOGINOK.ASP,SHOW.ASP!
现在就是想要在LOGIN.ASP中输入用户名和密码,通过LOGONOK.ASP判断是否正确用户名密码,
是则转到LOGIN.ASP.否则转到SHOW.ASP,这个在大家的帮助下,已经完成.

现在遇到问题,在SHOW.ASP中,要显示数据,但是要用到LOGIN.ASP中的变量"USERNAME",在SHOW.ASP中
执行SQL语句时,出问题了,我想要用到变量USERNAME,因为每个用户只能看到自己的记录!
我是这样写的:

StrSQL="select * from order where sSuppId='" & session("USERNAME") & "'"+StrSQL

因为中间有个LOGINOK.ASP,所以直接用:
StrSQL="select * from order where sSuppId='" & USERNAME & "'"+StrSQL 不行,因为这样
好像USERNAME取不到数据,因为无论怎么样也显示不到数据,如果不要:
where sSuppId='" & session("USERNAME") & "'"就可以显示所有数据!
但是我要限制一下.
所以我想到了取用SESSION的值,但是也是不显示,没有提示出错!
不知道为什么......
应该怎么样做啊?

multiple1902 发布留言 2008-7-16 17:48

把session("USERNAME")作为一个变量。别拆散。就这样。

月夜NO风 发布留言 2008-7-16 19:13

StrSQL="select * from order where sSuppId='" & session("USERNAME") & "'"+StrSQL
版主大人,如我上述所写,没有返回值啊~

multiple1902 发布留言 2008-7-16 19:21

那它就是没有内容。

月夜NO风 发布留言 2008-7-16 19:37

如果将SHOW.ASP的内容包在LOGINOK.ASP中,可以实现只显示当前用户所属数据!但是一点查询就返回LOGIN.ASP~~~~~~
代码如下:
<% @ LANGUAGE="VBScript" %>
<%
sId=Trim(Request.Form("txtsID"))
sPId=Trim(Request.Form("sPId"))
If sId="" or sPId="" Then
Response.Redirect( "login.asp")
Else Response.Write("Welcome!")
End If
%>

供应商登录系统

<% session("sId")="txtsID" %>
<%
Dim cn1, rs1, sql1
Set cn1=Server.CreateObject("ADODB.Connection")
Set rs1=Server.CreateObject("ADODB.Recordset")
cn1.ConnectionString="FILE NAME=E:\web\dbtestlinks.UDL"
sql1="SELECT * FROM supp WHERE sId='" & sId & "' and sParentId='" & sPId & "'"
cn1.Open
rs1.Open sql1,cn1
If rs1.EOF Then
rs1.close
cn1.Close
Set cn1=Nothing
Response.Redirect "login.asp"
Response.Write "No the user!"
Else
rs1.close
cn1.Close
Set cn1=Nothing
Response.Cookies("UsersID")=sId
Response.Write("Welcome!")
End if
%>
<%
dim SqlConn,SqlRecSet
dim StrSQL
dim PurBn,PurBd,PurBs,PurBc,PurSr,PurRq,PurBrd,PurIn
%>
<%
OpenConn()
Set SqlRecSet=Server.CreateObject("ADODB.RECORDSET")
genSQLstr()
StrSQL="select * from pur_order where sSuppId='" & sId & "'"+StrSQL
SqlRecSet.Open StrSQL,SqlConn,adOpenForwardOnly,adLockReadOnly
%>
<%
Function genSQLstr()
if Request.Form("PurBn")<>"" then
StrSQL=StrSQL+"and sBillNo like '%"+Request.Form("PurBn")+"%'"

end if
if Request.Form("PurBd")<>"" then
StrSQL=StrSQL+"and dBillDay like '%"+Request.Form("PurBd")+"%'"
end if
if Request.Form("PurSr")<>"" then
StrSQL=StrSQL+"and sSuppId like '%"+Request.Form("PurSr")+"%'"
end if
if Request.Form("PurBrd")<>"" then
StrSQL=StrSQL+"and dRecDate like '%"+Request.Form("PurBd")+"%'"
end if
End function
%>

订单查询

订单查询

cellspacing="0" bordercolor="#000000"
bordercolorlight="#000000" bordercolordark="#FFFFFF">

cellspacing="0" bordercolor="#000000"
bordercolorlight="#000000" bordercolordark="#FFFFFF">



  <%
while not SqlRecSet.EOF
PurBn=SqlRecSet.Fields("sBillNo").value
PurBd=SqlRecSet.Fields("dBillDay").value
Purbs=SqlRecSet.Fields("fQty").value
PurBc=SqlRecSet.Fields("sItemId").value
PurIn=SqlRecSet.Fields("sItemId_Name").value
PurSr=SqlRecSet.Fields("sSuppId").value
PurRq=SqlRecSet.Fields("fRecQty").value
PurBrd=SqlRecSet.Fields("dRecDate").value
%>




  <%
SqlRecSet.MoveNext
wend
SqlRecSet.Close
SqlConn.Close
%>

订单号	订单日期	物料数量	物料编码	物料名称	供应商	交货日期	已收数量
<%=PurBn%>	<%=PurBd%>	<%=PurBs%>	<%=PurBc%>	<%=PurIn%>	<%=PurSr%>	<%=PurBrd%>	<%=PurRq%>

[un]multiple1902[/un] 在 2008-7-16 17:48 的发言：[/bo]

把session("USERNAME")作为一个变量。别拆散。就这样。

月夜NO风 发布留言 2008-7-16 21:00

session("sId")"

multiple1902 发布留言 2008-7-16 21:19

multiple1902 发布留言 2008-7-16 21:22

1. 写出运行后使字符串变量s1的值为数字“6”的语句。

s1 = "6"

2. 写出运行后使字符串变量s2的值为“'”即一个单引号的语句。

s2 = "'"

3. 写出运行后使字符串变量s3的值为“太美的承诺因为太年轻
但亲爱的那并不是爱情”的语句，注意中间有回车

s3 = "太美的承诺因为太年轻" & vbCrLf & "但亲爱的那并不是爱情"

4. 写出运行后使字符串变量s4的值为字符串变量s3后接上“
就像是精灵住错了森林
那爱情错的很透明”的语句，注意开头的回车。

s4 = s3 & vbCrLf & "就像是精灵住错了森林" & vbCrLf & "那爱情错的很透明"

5. 写出运行后使字符串变量s5的值为“"”即一个双引号的语句。

s5 = """"

6. 写出将Request.Form("Name")的值赋给字符串变量s6的语句。

s6 = Request.Form("Name")

7. 写出运行后使s7内容为“你的名字是”连上s6再连上“，你好！”的语句。

s7 = "你的名字是" & s6 & "，你好！"

8. 写出运行后使s8内容为“你的名字是”连上Request.Form("Name")的值再连上“，你好！”的语句。

s8 = "你的名字是" & Request.Form("Name") & "，你好！"

月夜NO风 发布留言 2008-7-17 10:35

页: [1]

特别说明：如网页特效代码中有引用图片文件等，请自己下载到本地调试！

[] [返回] [打印] [收藏] [评论]

上一篇代码：写入问题

下一篇代码：怎么样把相片上传到数据库

如何得到SESSION的值?

如何得到SESSION的值?

精品推荐

代码分类

阅读排行

相关代码