conn.asp

就是这样的一个源码

<%
Response.Buffer = True
Response.Expires = - 1
dim conn,sqlstr,DBPath
DBPath = Server.MapPath("/data/wz.mdb")

Connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& DBPath

	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "网站数据整理中，请五分钟后再来。"
		Response.End
	End If
%>