请帮忙看下连接字符串出错。

[gaochao217]

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

缺少文字常数

E:\WWWROOT\CHAIXIAOHAI\WEB\NEWS\../Common/Config.asp，行 19

Const ConnStr = "driver={SQL Server};server=" & strSQLServ & ";UID=" & strSQLUser & ";PWD=" & strSQLPass & ";database=" & strSQLData & ""
-----------------------------------------------------------------------------------------------------------------------------------------^


数据库配置文件

字符串代码如下：




<%
dim strSQLServ,strSQLUser,strSQLPass,strSQLData
'站点基本参数
Const InstallDir = "/"
Const Site_Sn = "jiautocom"
Const ReloadTime = 10
Const IsDeBug = 1 '0－不显示出错信息；1－显示SQL数据库出错信息；
Const UploadFile = "UploadFiles/"
Dim UploadDir :UploadDir = InstallDir & UploadFile

Dim Plus_DbPath:Plus_DbPath = "/db/jiautoad.mdb" '广告数据库
'Const ConnStr = "Provider = Sqloledb; User ID = sa; Password = 884278; Initial Catalog = 51che; Data Source = WIN-V132O28DL6T\SQL2005;" '主数据库

'Const ConnStr = "Provider = Sqloledb; User ID = chaixiaohai; Password = xiaohai0972; Initial Catalog = chaixiaohai; Data Source = (local);"
strSQLServ="(local)"
strSQLUser="chaixiaohai"
strSQLPass="wenxuan0972"
strSQLData="chaixiaohai"
Const ConnStr = "driver={SQL Server};server=" & strSQLServ & ";UID=" & strSQLUser & ";PWD=" & strSQLPass & ";database=" & strSQLData & ""
Const EnableStopInjection = true '开启过滤SQL注入

Dim objName_FSO:objName_FSO = "Scripting.FileSystemObject"
Dim objName_Stream:objName_Stream = "Adodb.Stream"

[gaochao217]

顶一下。