程序高手请进关于ASP中cookies的清空问题(我要登陆大概30分钟后清除cookies)
conn.asp文件内容如下:<%@LANGUAGE=VBScriptCodePage=936%><!--#includefile="mdbname.asp"--><%R...
conn.asp文件内容如下:
<%@ LANGUAGE = VBScript CodePage = 936%>
<!--#include file="mdbname.asp"-->
<%
Response.Buffer =True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
If err.number<>0 Then
Response.Write(err.description)
Response.End()
End If
On Error Resume Next
Dim Startime,Conn
Dim SqlString
Dim ConnStr
Startime = Timer()
'主数据
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & Dbname)
On error Resume Next
Set conn = server.createObject("ADODB.Connection")
conn.open ConnStr
if err Then
err.clear
Set Conn = nothing
response.Write "数据库连接出错,请检查连接字串。"
response.end
end if
'//-------------------------------------------------------------
'IP地址
Set CiP=server.createobject("ADODB.CONNECTION")
costr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath(MyDbPath & LastMdbName)
CiP.open costr
if err Then
err.clear
Set CiP = nothing
response.Write "数据库连接出错,请检查连接字串。"
response.end
end if
Sub CloseConn()
Conn.close
set Conn=nothing
Cip.close
set CiP=nothing
End Sub
%>
在打开后台程序进入后一分钟后它就有一次闪屏,我怀疑是自动刷新后在清除cookies,还有那个自己刷新的程序我找不到在哪里,之后我在去点击任何链接都要求重新登陆,请大吓解决一下
请有能人者明天Q我:49730997,天天在线,帮忙解决一下
请问除了JS代码能控制外,其它的代码有没有可能,我找不到JS代码的一点线索 展开
<%@ LANGUAGE = VBScript CodePage = 936%>
<!--#include file="mdbname.asp"-->
<%
Response.Buffer =True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
If err.number<>0 Then
Response.Write(err.description)
Response.End()
End If
On Error Resume Next
Dim Startime,Conn
Dim SqlString
Dim ConnStr
Startime = Timer()
'主数据
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & Dbname)
On error Resume Next
Set conn = server.createObject("ADODB.Connection")
conn.open ConnStr
if err Then
err.clear
Set Conn = nothing
response.Write "数据库连接出错,请检查连接字串。"
response.end
end if
'//-------------------------------------------------------------
'IP地址
Set CiP=server.createobject("ADODB.CONNECTION")
costr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath(MyDbPath & LastMdbName)
CiP.open costr
if err Then
err.clear
Set CiP = nothing
response.Write "数据库连接出错,请检查连接字串。"
response.end
end if
Sub CloseConn()
Conn.close
set Conn=nothing
Cip.close
set CiP=nothing
End Sub
%>
在打开后台程序进入后一分钟后它就有一次闪屏,我怀疑是自动刷新后在清除cookies,还有那个自己刷新的程序我找不到在哪里,之后我在去点击任何链接都要求重新登陆,请大吓解决一下
请有能人者明天Q我:49730997,天天在线,帮忙解决一下
请问除了JS代码能控制外,其它的代码有没有可能,我找不到JS代码的一点线索 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询