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

Posted 2023-05-18

/index.asp，行 101

title=Replace(title,">",">") '鎶奡tr涓�殑">"镟挎崲鎴?>"锛岃窡涓婇溃杩栾�涓璧锋槸灞忚斀html浠g爜镄
--------------------------------------------------------^
代码如下：

<TABLE align=center border=0 cellPadding=3 cellSpacing=0 height=100 width=180>
<TBODY>
<%set rs=server.createobject("adodb.recordset")
sql="select top 5 * from news order by newsid desc"
rs.open sql,conn,1,1
newsnum=1
do until rs.eof
newsid=rs("newsid")
title=rs("title")
pubtime=rs("pubtime")
title=Replace(title,"<","<") '把Str中的"<"替换成"<"
title=Replace(title,">",">") '把Str中的">"替换成">"，跟上面这行一起是屏蔽HTML代码的
title=Replace(title," "," ") '把Str中的" "替换成" "，解决多个连续空格只显示一个的问题
%>
<TR>
<TD vAlign=top class="red1"><strong><%=newsnum%></strong>.</TD>
<TD height=25 vAlign=top><a href="shownews.asp?newsid=<%=newsid%>" target="_blank"><%=left(title,12)%></a></TD>
</TR>
<%rs.movenext
newsnum=newsnum+1
loop
rs.close
set rs=nothing
%>
</TBODY>
</TABLE>

参考技术A 网页编码的问题，你当前的编码，不支持这个中文。
1.换编码
2.删除注释本回答被提问者采纳 参考技术B 不好意思，缺点几分提问题，来拿分的，

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

网站打开就是这样：
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

本回答被提问者采纳