<%@LANGUAGE="VBSCRIPT"%>
<%
	option explicit
	 Response.Buffer = True  
  Response.ExpiresAbsolute = Now() - 1  
  Response.Expires = 0  
  Response.CacheControl = "no-cache" 
	dim startime
	dim conn
	dim connstr
	dim db
	startime=timer()
	'更改数据库名字
	db="datarexsp/datarexsp.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'	connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
	conn.Open connstr

function CloseDatabase

	Conn.close
	Set conn = Nothing

End Function
%>