<%
Response.Buffer=True
Db = "/sitedata/#yfdzc.mdb"
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
SqlNowString="Now()"
SqlChar="'"
On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请联系管理员解决此问题!"
Response.End
End If
On Error GoTo 0
%>
这样写比较人性化一点,出错的时候可以看到自己是那里出错了。
这个在服务器上是可以运行的