conn.asp

来自「自由领域Flash Asp大头贴接口版(TFOT Photo) v1.0 .ra」· ASP 代码 · 共 20 行

<%
dim conn
Sub DataConnect()
	If isObject(Conn) Then Exit Sub
	Set Conn = Server.CreateObject("Adodb.Connection")
	Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("img.asp")
	Conn.Open
	If Err Then
		Set Conn = Nothing
		Response.Write "数据库连接错误，可能数据库路径设置错误。<br><font color=red>" & Err.description & "<br>"
		Err.Clear()
		Response.End
	End If
End Sub
Sub DataDisConnect()
	If Not isObject(Conn) Then Exit Sub
	Conn.Close : Set Conn = Nothing
End Sub
%>