美食大战老鼠qq空间:Microsoft VBScript 编译器错误 错误 '800a03f6' 请求援助

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

缺少 'End'

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

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

[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server 不存在或访问被拒绝

/conn.asp，行41
程序代码：
<!--#Include File="inc/fso.asp"-->
<%
response.buffer = true

'检查访问的来源是否合法
'call checkPrePage()

'检查用户访问的权限
call checkuser(0)

dim startTime, endtime
startTime = timer()

Dim strSQLServer, strSQLUser, strSQLPassword, strSQLDataBase, strScriptFileSystem
Dim objSenty
dim conn
dim connstr
dim rs, rSub
dim sql

'*****************************安装后请在此设置系统变量***********************************************

strSQLServer="(ZHONGTIA-AD0D57)" '服务器名，请修改为你主机中SQL的服务器名
strSQLUser="xiaoxiao" '用户名，请修改为你在SQL的用户名
strSQLPassword="442930" '密码，请修改为你在SQL的用户的密码如没设密码应为""
strSQLDataBase="9sky_jndiy" 'SQL使用的数据库名，请修改为你在SQL在的使用数据库名
strScriptFileSystem=Const_ScriptFileSystem 'FSO对象名称

'***************************************************************************************************

connstr = "driver={SQL Server};server=" & strSQLServer & ";UID=" & strSQLUser & ";PWD=" & strSQLPassword & ";database=" & strSQLDataBase & ""
set conn = server.createobject("ADODB.CONNECTION")

if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>window.status=""创建 ADO 对象失败"";</script>"
response.end
else
conn.open connstr

if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>window.status=""SQL Server 数据库连接失败"";</script>"
'''请检查数据库是否存在，以及 ODBC 是否存在
response.end
end if
end if

第41行为 conn.open connstr