Question

急在线求助：数据库连接问题，一打开网站就显示这样信息。

在行 43 处检测到脚本错误。
原始行: Conn.Open ConnStr
脚本细节:
33 Else
34 '必修改设置三：========================Access数据库设置==========================================================
35 DataFile = server.MapPath("data/#Photo.mdb")
36 '================================================================================================================
37 DateString = Array("Now()","'yyyy'","'m'","'d'","'h'","'n'","'s'","#")
38
39 ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & DataFile
40 End If
41
42 'On Error Resume Next
43 Set Conn = Server.CreateObject("ADODB.Connection")
44 Conn.Open ConnStr
45 If Err Then
46 Err.Clear
47 Set Conn = Nothing
48 Response.Write "数据库连接出错，请检查连接字串。"
49 Response.End
50 End If
51
52 Function Checked(value1,value2)
53 Checked = " value="&Chr(34)&value2&Chr(34)
描述: 未指定的错误

Answer 1

检查数据库有没有问题 data/#Photo.mdb

Answer 2

39行"Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & DataFile
改成
ConnStr="DRIVER={Microsoft Access Driver (*.mdb)}; "
ConnStr=ConnStr & "DBQ=" & DataFile