<% 'On Error Resume Next dbpath = "Data/#momosj.ASP" ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.Mappath(dbpath) Set conn=Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err.Number <> 0 Then Response.write "数据库链接出错!文件：inc/conn.asp!" Response.End() end if %>