chksession.asp

ASP编写的一个公司网站的源程序

<%
'***********************************************************************
'原来的程序有较大的设计缺陷
'***********************************************************************
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
%>