<%
'''''''''''''调用分页方法
response.Write("<div id=pagerigth>"&ExportPageInfo(curpage, ii,pagecount,recordcount,"index.asp?market_type_id="&market_type_id&"&area="&area&"&")&"</div>")
Function ExportPageInfo(curpage,i,pagecount,recordcount,LinkFile) '参数说明:curpage 当前页,i 每页条数,pagecount 总页数,recordcount 总条数,LinkFile 链接文件名 如"index.asp?"
Dim retval, j, pageNumber, BasePage
valOne = "第" & curpage & "页/总" & pagecount & "页 "
valOne = valOne & "本页" & i & "条/总" & recordcount & "条 "
'中文显示分页
'-------------------------------------------
'If curpage = 1 Then
'retval = retval & "首页 前页 "
'Else
'retval = retval & "<a href=" & LinkFile & "page=1>首页</a> <a href=" & LinkFile & "page=" & cstr(curpage - 1) & ">前页</a> "
'End If
'If curpage = pagecount Then
'retval = retval & "后页 末页"
'Else
'retval = retval & "<a href=" & LinkFile & "page=" & cstr(curpage + 1) & ">后页</a> <a href=" & LinkFile & "page=" & cstr(pagecount) & ">末页</a>"
'End if
'retval = retval & "<br>"
'------------------------------------------
'数字显示分页
'******************************************
k=0
m=0
For ii=-8 to -1'当前页的前段显示部分
Page=CurPage+ii
If Page>0 Then 'Exit For
If Page = Cint(curpage) Then
retval = retval & " <font color=#FF0000>" & Page & "</font>"
Else
retval = retval & " <a href=" & LinkFile & "page=" & Page & ">" & Page & "</a>"
End If
k=k+1 '计算For执行了多少次
end if
Next
if (curpage - k-1)>0 then
retval = valOne &" <a href=" & LinkFile & "page=" & (curpage - k-1) & "><<</a>" & retval
else
retval = valOne & retval
end if
For j = 0 to 7 '当前页的后段部分
pageNumber = curpage + j
If PageNumber > pagecount Then Exit For
If pageNumber = Cint(curpage) Then
retval = retval & " <font color=#FF0000>" & pageNumber & "</font>"
Else
retval = retval & " <a href=" & LinkFile & "page=" & pageNumber & ">" & pageNumber & "</a>"
End If
m=m+1'计算For执行了多少次
Next
If pagecount > pageNumber Then retval = retval & " <a href=" & LinkFile & "page=" & (curpage + m) & ">>></a>"
'*************************************************************
ExportPageInfo = retval
retval=""'清空变量,释放空间
End Function
%>
调用分页方法
最新推荐文章于 2021-11-26 16:04:24 发布