<%@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
%>