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