chksession.asp

来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 13 行

<%
'***********************************************************************
'原来的程序有较大的设计缺陷
'***********************************************************************
Session.Timeout = 60
Response.Expires = -1

Application("SitePath")="http://"+Request.ServerVariables("HTTP_HOST")

If Session("UserID")="" Then 
	Response.Redirect("http://"+ Request.ServerVariables("HTTP_HOST")+"/Error/Error.asp") 
End if
%>