Microsoft VBScript 编译器错误 '800a0400'
缺少语句
\wwwroot\config.asp, line 5
下面是config.asp的源代码。请大家帮我看下哪出错了!谢谢.
_____________________________________________________________
<object runat="server" id="rs" scope="page" progid="ADODB.Recordset"></object>
<object runat="server" id="rs1" scope="page" progid="ADODB.Recordset"></object>
<object runat="server" id="rs2" scope="page" progid="ADODB.Recordset"></object>
<%
Option Explicit
Response.Buffer=True
Server.ScriptTimeOut=90
Session.TimeOut=60
Response.charset="UTF-8"
'is debug mode running
Const isDebugMode=true
'SQL Connection setting
Dim Sql,SqlList,Conn
Dim isSqlDataBase,TableFix
isSqlDataBase=1
TableFix="cydlm_" 'tables head in Database
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
'Sql Server
SqlLocalName = "(local)"
'Sql database name
SqlDatabaseName = "fly2009"
'sql user
SqlUsername = "sa"
'login pass of sql user
SqlPassword = ""
Dim AccessDataPath
AccessDataPath="data/#cydlm_com_lidong_db.mdb"
Dim LangArray
LangArray=Array("cn","en")
Dim FsoName
FsoName="Scripting.FileSystemObject"
Dim WEBSITECHARSET,WEBSITESKINS,WEBDEFAULTLANGUAGE
WEBSITECHARSET="UTF-8"
WEBSITESKINS="default"
WEBDEFAULTLANGUAGE="cn"
Dim WEBSITETITLE,WEBSITEKEYWORDS,WEBSITEDESCRIPTION,SETUPDIRECTORY,WEBSITELANGUAGE
Dim Lang,LangConfig
SETUPDIRECTORY=Fun_SYS_INSTALLDIR()
WEBSITELANGUAGE=Trim(Request("lang"))
if WEBSITELANGUAGE="" then WEBSITELANGUAGE=WEBDEFAULTLANGUAGE
Call getLangArray("config.asp",LangConfig,WEBSITELANGUAGE)
WEBSITETITLE=LangConfig(1)
WEBSITEKEYWORDS=LangConfig(2)
WEBSITEDESCRIPTION=LangConfig(3)
Dim TaskStatusNameArray,TaskStatusIDArray,TaskStatusNameList,TaskStatusIDList
TaskStatusNameList=LangConfig(10)
TaskStatusIDList=LangConfig(11)
Dim TaskCateNameList,TaskCateIDList
TaskCateNameList=LangConfig(12)
TaskCateIDList=LangConfig(13)
'TaskStatusNameList=replace(TaskStatusNameList,"，",",")
'TaskStatusNameArray=Split(TaskStatusNameList,",")
'TaskStatusIDList=replace(TaskStatusIDList,"，",",")
'TaskStatusIDArray=Split(TaskStatusIDList,",")
Dim userlevelnamelist,userlevellist
userlevelnamelist="普通用户,铜牌代理,银牌代理,金牌代理"
userlevellist="0,1,2,3"
Dim LogStatusNameList,LogStatusList
LogStatusNameList=LangConfig(14)
LogStatusList=LangConfig(15)
Dim DotPrice,DotRecoveryPrice
DotPrice=1 '系统出售价：1元一个发布点
DotRecoveryPrice=0.3 '系统回收价：0.3元一个发布点
Dim Md5Key
Md5Key="17951"
Dim SqlNowString,SqlDiff
if isSqlDataBase=1 then
SqlNowString="getdate()"
SqlDiff=" "
else
SqlNowString="now()"
SqlDiff=" * "
end if
Dim LoginedUserID,LoginedUsername,LoginedUserAdminDegrade
Dim LoginedUserDot,LoginedUserBalanceMoney,LoginedUserIntegral,LoginedUserLevel,LoginedUserLevelName
LoginedUserID=Session("loginedUserID")
LoginedUsername=Session("loginedUserName")
LoginedUserAdminDegrade=Session("LoginedUserAdminDegrade")
LoginedUserDot=Session("LoginedUserDot")
LoginedUserBalanceMoney=Session("LoginedUserBalanceMoney")
LoginedUserIntegral=Session("LoginedUserIntegral")
LoginedUserLevel=Session("LoginedUserLevel")
if LoginedUserID="" then LoginedUserID=0
if LoginedUserAdminDegrade="" then LoginedUserAdminDegrade=0
if LoginedUserLevel="" then LoginedUserLevel=0
Session("loginedUserID")=LoginedUserID
Session("loginedUserAdminDegrade")=LoginedUserAdminDegrade
Session("LoginedUserLevel")=LoginedUserLevel
LoginedUserLevelName=Selector("",LoginedUserLevel,userlevellist,userlevelnamelist)
if LoginedUserAdminDegrade>0 then LoginedUserLevelName="超级管理"
%>