Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x66c Thread 0xafc DBC 0x2237004 Jet'。

/tian/totstat/conn.asp，行8



1 <%
2 'on error resume next
3 const databaseType=1'0=Mssql 1=access
4 const cachetime=50 '缓存时间 单位(秒)
5 dim conn
6 set conn=server.CreateObject("adodb.connection")
7 if(databaseType=1) then
8 conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/totstat/tot_stat.asp")
9 else
10 conn.open "driver={sql server};server=127.0.0.1;database=cms;uid=totstat;pwd=1234546"
11 end if
12 if Err.Number <> 0 then
13 Response.Write("<script>alert('[系统错误]\n\n数据库连接错误！');</script>")
14 Response.End
15 end if
16 sub connclose
17 conn.close
18 set conn=nothing
19 end sub
20 %>