conn.asp

来自「这个就是受到众人喜爱的许愿墙了」· ASP 代码 · 共 21 行

<%
dim connstr
dim db
dim Conn,rs,sql
db="../data/love.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
%>