高考问答2017新年音乐会指挥:Microsoft VBScript 运行时错误 错误 '800a000b'
来源：百度文库 编辑：高考问答 时间：2024/04/29 13:17:40
被零除
#------------------------------------以下代码----
<%
Dim PageNO
Dim PageCountNO
if (Recordset1_last mod Rows)=0 then
PageCountNO=Recordset1_last\ Rows
else
PageCountNO=Recordset1_last\ Rows+1
end if
if (CountN mod Rows )=0 then
PageNO=CountN\Rows
else
PageNO=CountN\Rows +1
end if
%>
<%=PageCountNO %>/<%=PageNO %>页 共<%=(Recordset1_total)%>个藏品
就是实现一个分页显示
还有就是那位高手能提供一个分页的代码就好了
Sub turnOverPage(recordCount,pageSize,page)
Dim url,pageStr,II,pageCount
pageStr="page"
url=getQueryString(pageStr)
pageCount=Int(recordCount/pageSize)
If recordCount Mod pageSize Then pageCount=pageCount+1
If page<=1 Then
Response.Write "[首页][上页]"
Else
Response.Write "[<a href='"&url&pageStr&"=1'>首页</a>][<a href='"&url&pageStr&"="&(page-1)&"'>上页</a>]"
End If
If page>=pagecount Then
Response.Write "[下页][末页]"
Else
Response.Write "[<a href='"&url&pageStr&"="&(page+1)&"'>下页</a>][<a href='"&url&pageStr&"="&pageCount&"'>末页</a>]"
End If
Response.Write " 共 "&recordCount&" 条记录 第"&page&"/"&pageCount&"页 "
Response.Write "转到 第<select onChange='location.href("""&url&pageStr&"=""+this.value);'>"
For II=1 To pageCount
If II=page Then
Response.Write "<Option value="&II&" Selected>"&II&"</Option>"
Else
Response.Write "<Option value="&II&">"&II&"</Option>"
End If
Next
Response.Write "</select>页"
End Sub
Function getQueryString(filterStr)
Dim strTmp,queryArray,a,query
strTmp=Request.ServerVariables("QUERY_STRING")
queryArray=Split(strTmp,"&")
For Each a In queryArray
strTmp=Split(a,"=")
If LCase(strTmp(0))<>LCase(filterStr) Then
query=query&a&"&"
End If
Next
strTmp=Request.ServerVariables("SCRIPT_NAME")
queryArray=Split(strTmp,"/")
strTmp=queryArray(Ubound(queryArray))
getQueryString=strTmp&"?"&query
End Function
使用的时候直接turnoverpage即可,相关参数
recordcount 总的记录数
pagesize 每页显示记录数
page 当前页码