黑暗之魂返回菜单:Microsoft VBScript 运行时错误 错误 '800a000d'

来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 04:29:59
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: '[string: ""]'

/admin/dismess.asp，行 76
代码如下
Const MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(SafeRequest("page",1)) then
currentPage=Cint(SafeRequest("page",1))
else
currentPage=1(这是第76行)
end if
dim lx
lx=SafeRequest("lx",0)
set rs=server.CreateObject("adodb.recordset")
if lx="" or lx=0 then
rs.open "select * from mess order by messdtm desc",conn,1,1
else
rs.open "select * from mess where messtype="&lx&" order by messdtm desc",conn,1,1
end if

if err.number<>0 then
response.write "数据库中暂时无相关数据"
end if

if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 对不起，暂时还没有任何留言！</p>"
else
totalPut=rs.recordcount

if currentpage<1 then
currentpage=1
end if
Microsoft VBScript Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 microsoft vbscript 编译器错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 (0x800A000D)