conn.asp

来自「blog 又搭工」· ASP 代码 · 共 29 行

<%@language=vbscript codepage=936 %>
<%
dim db,connstr
On Error Resume Next
set db=server.createobject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("data/MSMAXBLOG.mdb")
'response.write connstr
db.open connstr

'数据库连接错误警告
	If Err Then
		err.Clear
		Set db = Nothing
		Response.Write "数据库连接错误，请检查!"
		Response.End
	End If
	
'关闭操作对象	
sub rsclose
	rs.close
	set rs=nothing
end sub

'关闭连接对象
sub connclose
	db.close
	set db=nothing
end sub
%>