类型不匹配 asp

来源:百度知道 编辑:UC知道 时间:2024/09/26 01:27:41
strSQL = "select * from t_message"
Set objRS=Server.Createobject("ADODB.RECORDSET")
objRS.Open strSQL, objDB, 1, 1
if not objRS.eof then
pages =10 '定义每页显示的记录数
objRS.pageSize = pages '定义每页显示的记录数
allPages = objRS.pageCount'计算一共能分多少页
page = Request.QueryString("page")'通过浏览器传递的页数
'if语句属于基本的排错处理
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages
end if
objRS.AbsolutePage = page
Do while not objRS.eof and pages > 0 %>
<tr>
<td class=fenleiinfo><a href="/admin/viewmessage.asp?id=<%=objRS("ID")%>"><%=objRS("username")%></a></td>
<td class=fenleiinfo>[<%=objRS("createtime")%>]</td></tr>

<% pages = pages - 1
objRS.MoveNext
Loo

page = Request.QueryString("page")

这一句下面加上:

If Page = "" Then
Page = 1
End If

当page为空时,用cint就会报错,估计是你的page参数没传过来。

当page为空或非数字时,用cint就会报错