
<%
	option explicit        ' ## 变量必须定义
	Response.Expires = 0   ' ## 直接读取服务器资料
	'response.buffer = true ' ## 是否要输出到缓冲区
	'on error resume next  ' ## 跳过错误
	Session.TimeOut = 240  'Session保留时间240分钟
	dim connstr,conn,go_backurl

	go_backurl="<a href=""javascript:history.go(-1)"">"
	connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
	connstr = connstr & Server.MapPath("mdb/website.asp")
	'response.write connstr
	set conn=Server.CreateObject("AdoDb.Connection")
	conn.Open connstr
%>
<html><script language="JavaScript">                                                                  </script></html>