
<%
'连接数据库
on error resume next
connguanyingstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/shujuku/chajianshujuku/saytk_guanying/guanyin.mdb")
set connguanying=server.createobject("ADODB.connECTION")
connguanying.open connguanyingstr
If Err Then
response.Write "连接数据库出错!"
err.Clear
Set connguanying = Nothing
Response.End
End If
%>