这个session的变量怎么一提交就没了

[xiamouse7880]

...
If Request.Form("nick")<>"" then
' 判断客户是是否在聊天界面中
Session("nick")=Request.Form("nick")
End If
...

为什么在后面客户提交后Session("nick")就变成空了？
多谢

[pp4u]

提交页面和处理页面不在同一虚拟目录下。

[NetBoy]

是不是需要转存一下SESSION的值，有的浏览器对session值的继承性不好，打开了新的页面有可能就不行了。

[xiamouse7880]

只有一个页面chat.asp，我通过判断请求类型
If Request.ServerVariables("Request_Method")="GET" then
' 判断客户是以什么方式请求 WEB 页面
'------------------------
' 客户登陆界面
'------------------------
%>
。。。。。
<%
Response.End ' 结束程序的处理
Else
Response.clear ' 清空缓存中的内容
dim talk
If Request.Form("nick")<>"" then
' 判断客户是是否在聊天界面中
Session("nick")=Request.Form("nick")
End If
'------------------------'
'客户聊天界面
'------------------------
%>
.....

[007james]

为什么一定要Request.ServerVariables("Request_Method")="GET"

post为什么不行

[exia]

你的程序有问题,第一个IF没有END IF结束
你都贴出来我们看看.

[judyguo]

response.clear
去掉试试

[xiamouse7880]

多谢各位了
////////////////////////////////////////////////

<%@ Language=VBScript %>
<%
Response.Buffer=true ' 设置输出缓存，用于显示不同页面。
On error resume next ' 忽略程序出错部分
If Request.ServerVariables("Request_Method")="GET" then
' 判断客户是以什么方式请求 WEB 页面
'------------------------
' 客户登陆界面
'------------------------
%>

<form method="POST" action="chat.asp"><p>
<input type="text" name="nick" size="20" value="nick" style="background-color: rgb(192,192,192)"><br>
<input type="submit" value=" 进入聊天室 " name="B1" style="color: rgb(255,255,0); font-size: 9pt; background-color: rgb(0,128,128)">
<input type="hidden" name="log" size="20" value="1"><br>
</p>
</form>

<%
Response.End ' 结束程序的处理
Else
Response.clear ' 清空缓存中的内容
dim talk
If Request.Form("nick")<>"" then
' 判断客户是是否在聊天界面中
Session("nick")=Request.Form("nick")
End If
'------------------------'
'客户聊天界面
'------------------------
%>

<form method="POST" action="chat.asp" name=form1> <p>
<%=Session("nick")%> 说话：
<input type="text" name="talk" size="50"><br>
<input type="submit" value=" 提交 " name="B1">
<input type="reset" value=" 取消 " name="B2"></p>
</form>
<A HREF="/caiq/chat.asp"> 离开 </a><br><br>

<%
If Request.Form("log")<>1 then
If trim(Request.Form("talk"))="" then
' 判断用户是否没有输入任何内容
talk=Session("nick")&" 沉默是金。"
Else
talk=trim(Request.Form("talk"))
' 去掉字符后的空格
End If

Application.lock
Application("show")="<table border='0' cellpadding='0' cellspacing='0' width='85%' ><tr><td width='100%' bgcolor='#C0C0C0'></td></tr><tr><td width='100%'><font color='#0000FF'> 来自 "&Request.ServerVariables("remote_addr")&""&Session("nick")&"的"&time&" 说：</font>"&talk&"</td></tr><tr><td width='100%' bgcolor='#C0C0C0'></td></tr></table><br>"&Application("show")
Application.UnLock

Response.Write Application("show")
End If
End If
%>

[sunnyBelt]

最好再页面的form标签中写上method="post"