conn.asp

来自「利用C++编写的网络跟踪代码」· ASP 代码 · 共 22 行

<%
dim conn
dim connstr
dim db
db="database/love.mdb"     
On Error Resume Next
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
%>