[求助]如何防止论坛登录掉线?
请问各位朋友,在我的论坛里,用户登录一段时间后,会自动掉线.如何防止呢?
但我的论坛登录页面并不设置session的时间呀?
2007-04-30 13:07
2007-04-30 13:47
我的登录处理文件是这样写的:
<!--#include file="opendb.asp"-->
<%
Dim password,username,tmp
username=trim(request.Form("username"))
password=trim(request.Form("password"))
submit_date=Now()
username=Replace(request("username"),chr(39),"´") '替换单引号
username=Replace(username,chr(34)," "") '再替换双引号
password=Replace(request("password"),chr(39),"´") '替换单引号
password=Replace(password, chr(34),""") '再替换双引号
'根据用户名和密码在数据表UserInf_1中查找符合条件的记录
strSQL = "Select lcount,username from UserInf_1 Where UserName="&"'"&username&"'" &" AND Password="&"'"&password&"'"
'设置指针类型为“静态指针”，静态指针常用于寻找和建立记录
rst.CursorType=3
'打开记录集
rst.open strSQL
'如果rst.RecordCount的值为0，表示没有找到符合条件的记录，即该用户还有注册，是合法用户
if rst.RecordCount>0 then
'使用两个Session变量来存储登录用户的用户名和用户ID号
Session("UserName")=rst.fields("Username")
%>
<script language=vbscript>
window.location="index.asp"
</script>
<%end if%>
2007-05-01 14:07
2007-05-09 22:31
我的登录处理文件是这样写的:
<!--#include file="opendb.asp"-->
<%
Dim password,username,tmp
username=trim(request.Form("username"))
password=trim(request.Form("password"))
submit_date=Now()
username=Replace(request("username"),chr(39),"´") '替换单引号
username=Replace(username,chr(34)," "") '再替换双引号
password=Replace(request("password"),chr(39),"´") '替换单引号
password=Replace(password, chr(34),""") '再替换双引号
'根据用户名和密码在数据表UserInf_1中查找符合条件的记录
strSQL = "Select lcount,username from UserInf_1 Where UserName="&"'"&username&"'" &" AND Password="&"'"&password&"'"
'设置指针类型为“静态指针”，静态指针常用于寻找和建立记录
rst.CursorType=3
'打开记录集
rst.open strSQL
'如果rst.RecordCount的值为0，表示没有找到符合条件的记录，即该用户还有注册，是合法用户
if rst.RecordCount>0 then
'使用两个Session变量来存储登录用户的用户名和用户ID号
Session("UserName")=rst.fields("Username")
session.timeout=30
%>
<script language=vbscript>
window.location="index.asp"
</script>
<%end if%>
我加入了上面红色部分的语句.但是还没有到timeout规定的时间(30分钟)内没有刷新,session对象也会中止,即掉线.这是为什么呢?
2007-05-22 15:53