UC知道网页分页的问题
来源：百度知道 编辑：UC知道 时间：2024/06/01 10:01:17
此问题已解决现在出现另一个问题。望指教：
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: '[string: ""]'
/news.asp，行 5
代码如下：
<%
Dim Orders,strSQL
PageNum =10
PageIndex = Request.QueryString("PageIndex")
If PageIndex = "" Or PageIndex = 0 Then PageIndex = 1
Orders = Request.QueryString("Orders")
If Orders = "" Then
Orders = "Order By MsgID DESC"
End If
strSQL = "Where MsgTypeID=" & id
style = "zi01"
Set Rs = DB.GetRs("Msg",strSQL,Orders,PageNum,PageIndex,RecordCount,PageCount)
Link = "news.asp?id="&id&"&Action="
If Not Rs Is Nothing Then
Index=0
While Not Rs.EOF And Index < PageNum
%>
<tr>
<td width="15" align="left" valign="middle"><img src="I
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: '[string: ""]'
/news.asp，行 5
代码如下：
<%
Dim Orders,strSQL
PageNum =10
PageIndex = Request.QueryString("PageIndex")
If PageIndex = "" Or PageIndex = 0 Then PageIndex = 1
Orders = Request.QueryString("Orders")
If Orders = "" Then
Orders = "Order By MsgID DESC"
End If
strSQL = "Where MsgTypeID=" & id
style = "zi01"
Set Rs = DB.GetRs("Msg",strSQL,Orders,PageNum,PageIndex,RecordCount,PageCount)
Link = "news.asp?id="&id&"&Action="
If Not Rs Is Nothing Then
Index=0
While Not Rs.EOF And Index < PageNum
%>
<tr>
<td width="15" align="left" valign="middle"><img src="I
错误提示很明白，第五行出现类型不匹配的问题：
If PageIndex = "" Or PageIndex = 0 Then PageIndex = 1
PageIndex是数值型的，怎么能直接和一个空字符串做相等比较呢？前5行帮你改一下：
<%
Dim Orders,strSQL
PageNum =10
PageIndex = 0
If Request.QueryString("PageIndex") <> "" Then
PageIndex = Request.QueryString("PageIndex")
End If
If PageIndex = 0 Then PageIndex = 1
如果传进来的PageIndex为空或为0，赋值之后变量PageIndex都是0了，因此只要判断它是否为0就可以了。
PageIndex PageIndex PageIndex
这三个是不是有不是数字的?
PageIndex = Request.QueryString("PageIndex")