conn.asp

这个就是受到众人喜爱的许愿墙了

<%
dim connstr
dim db
dim Conn
db="data/info.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Conn.Open connstr
If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "数据库连接出错，请检查连接字串。"
	Response.End
End If

Sub CloseConn() '关闭数据库
	Conn.close
	set Conn=nothing
End sub


dim connstrHistroy
dim dbHistroy
dim connHistroy
dbHistroy="data/histroy.mdb"      '采集数据库文件的记录 
Set connHistroy = Server.CreateObject("ADODB.Connection")
connstrHistroy="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbHistroy)
connHistroy.Open connstrHistroy
If Err Then
   err.Clear
   Set connstrHistroy = Nothing
   Response.Write "采集数据库连接出错，请检查连接字串。"
   Response.End
End If

Sub CloseConnHistroy()
   On Error Resume Next
   ConnHistroy.close
   Set ConnHistroy=nothing
End sub
%>