<%
dim connp
dim connstrp
dim dbp
dbp="zhidao/mydata/zhidao5756.mdb"      '数据库文件的位置
On Error Resume Next
Set connp = Server.CreateObject("ADODB.Connection")
connstrp="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbp)
connp.Open connstrp
If Err Then
err.Clear
Set Connp = Nothing
Response.Write "数据库连接出错，请报告本站站长，谢谢！"
Response.End
End If
sub CloseConnp()
	connp.close
	set connp=nothing
end sub
%>