5-12.txt

网上购物系统 asp+sql server 2005

P89　Global.asa和Session


global.asa

<script language=Vbscript runat=Server>
Sub Session_Onstart
	//设定session的有效时间为1秒
	Session.timeout=1
	//在session里存放一个目录名称
	Session("path")="frams"
End sub
</script>

<!--声明一个FileSystemObject组件对象 fso -->
<Object
	Runat="Server"
	Scope="Application" 
	Id="fso"
	Progid="Scripting.FileSystemObject">
</Object>


5-12.asp
<%
if fso.FolderExists(server.MapPath(session("path")))=false then
	response.Write "<h3 align=center>当前目录下没有frams目录</h3>"
else
	response.Write "<h3 align=center>当前目录下存在frams目录</h3>"
end if
%>


当本例被读入WEB服务器进行处理时，即触发global.asa的Session_Onstart事件

在global.asa内声明的对象是全局对象，此站中任何页都可以直接使用此对象。