Microsoft VBScript 编译器错误 错误 '800a0400' 缺少语句

Posted 2023-03-22

网站打开就是这样：
Microsoft VBScript 编译器错误 错误 '800a0400'
缺少语句
/conn.asp，行 3
Option Explicit
^
以前能打开，最近突然这样了，谁能告诉我改怎么修改！谢谢了！！

conn.asp的代码为：

<%@ LANGUAGE = VBScript.Encode CodePage = 936%>
<%
Option Explicit
'On Error Resume Next '容错声明
Response.Buffer=True
Dim DbPath,Conn,SQLServerName,SQLDBUserName,SQLDBPassword,SQLDBName,local
'信息生成采集
Const Msxml="Msxml2.XMLHTTP" ' "MSXML2.ServerXMLHttp" 或 "Msxml2.XMLHTTP"
'系统采用XML版本设置(论坛整合)
'最高版本为.4.0 依次为： Const MsxmlVersion=".3.0" Const MsxmlVersion=".2.6" 最低版本Const MsxmlVersion=""
Const MsxmlVersion=".3.0"
Const CacheName="ddss"
Const FsObject="Scripting.FileSystemObject"
Const FsObject1=0
Const MapUserName="xld184ytf"
Const Domain="" '一级域名小写
，

参考技术A 把第一行删掉试试,你用的是未经编码的VBS明文代码,但你声明的是VBScript.Encode追问

Microsoft VBScript 编译器错误 错误 '800a0400'
缺少语句
/conn.asp，行 2
Option Explicit

还是不行，怎么办呢，

%

追答

那很可能是你其它页使用了VBScript.Encode编码,然后用include指令包含了这个未经编码的文件.如果是这样,试试将原来的第一行改为

还有一种可能就是在你include该文件之前已经有其它ASP语句了,Option Explicit语句必须出现在其它任何过程之前,否则将报错.你可以试着将该行语句注释掉.

追问

不太懂怎么注释掉，麻烦详解下呗，谢了！

追答

在行首加个单引号就行了,童鞋,你基础太弱了,赶快去找本书补补吧.

追问

还是不会，能帮我标上么；

不是同学，老头子了

追答

将
Option Explicit

改为
'Option Explicit

本回答被提问者采纳