Question

Microsoft VBScript 运行时错误 '800a000d' ,怎样解决?

<table border="0" cellpadding="2" width="475">
<tr>
<td><table width="100%" border="0" cellpadding="1">
<%if not rs.eof then%>
<%do while not rs.eof%>
<tr>
<td>网站地址：<a href="<%=rs("urladdr")%>" target="_blank"><%=rs("urlname")%></a>
<%if rs("urluser")=session("username") or session("usergroup")=3 then%>
<a href="urladd.asp?id=<%=rs("urlid")%>"><img src="images/edit.gif" alt="编辑" border="0"></a> <a href='javascript:go("urldel.asp?id=<%=rs("urlid")%>","您确定要删除?")'><img src="images/del.gif" alt="删除" border="0"></a>
<%end if%> </td>
<td>推荐人：<a href="member.asp?id=<%=rs("urluser")%>"><%=rs("realname")%></a></td>
<td>加入时间：<%=addtime%></td>
</tr>
<tr>
<td colspan="3">网站说明：<%=Replace((Replace(rs("urlcomment"), vbCrlf, "<br>")), chr(32)&chr(32), " ")%></td>
</tr>
<tr>
<td colspan="3"><img border="0" src="images/signature.gif" width="420" height="12"></td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing
end if%>
</table></td>
</tr>
<tr>
<td><p align="center">
<% call LastNextPage(maxpage,page,result_num) %>
</td>
其中这句出现问题: <%if rs("urluser")=session("username") or session("usergroup")=3 then%>
没有登录前网页是好好的,登录后也是好好的,但退出后就出现了这种现象!网页的左右两侧也变大了.
Microsoft VBScript 运行时错误 '800a000d'

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

\urlview.asp, line 178
谢谢火舞娇洋的回答,但是不能解决...现象依然存在.

--------------------------------------------------------------------------------
Host by NetBox Version 2.8 Build 4128

Answer 1

<%if
Trim(rs("urluser"))=Trim(session("username"))
or
session("usergroup")=3
then%>
如果还报错，则session("usergroup")不是数字。如果你肯定他是纯数字，那就加个Clng()
<%if
Trim(rs("urluser"))=Trim(session("username"))
or
Clng(session("usergroup"))=3
then%>
那么你在这句前加一句
Response.Write
rs("urluser")&"|"&session("username")&"|"&session("usergroup")
Response.end
这是让你查一下这些参数的值有没有错,或者为空.

Answer 2

<%if Trim(rs("urluser"))=Trim(session("username")) or session("usergroup")=3 then%>

如果还报错，则session("usergroup")不是数字。如果你肯定他是纯数字，那就加个Clng()
<%if Trim(rs("urluser"))=Trim(session("username")) or Clng(session("usergroup"))=3 then%>

那么你在这句前加一句
Response.Write rs("urluser")&"|"&session("username")&"|"&session("usergroup")
Response.end

这是让你查一下这些参数的值有没有错,或者为空.