<%
response.write ExportPageInfo(totalpage,totalmessage,request("page"),PAGE_SIZE,msg_per_page,"Img.asp?ImgclassId=" & ImgclassId & "&")
'--------------------------------------------------------------
Function ExportPageInfo(ByRef PageCount,RecordCount,CurrentPage,PageSize,i,LinkFile)
'总页敎ͼ总记录数Q? 当前面, 每页昄敎ͼ本页记录敎ͼ分页旉接的文g
Dim retval,j,pageNumber,BasePage
BasePage = (CurrentPage \ 10) * 10
If BasePage > 0 Then retval = retval & "<<"
For j = 1 to 10
pageNumber = BasePage+j
if pageNumber<10 then pageNumber="0"&pageNumber
If cint(PageNumber) > pagecount Then Exit For
If cint(PageNumber) = Cint(CurrentPage) Then
retval = retval & " "&pageNumber& " "
Else
retval = retval & " "&pageNumber&""
End If
Next
if PageCount < BasePage + 11 then
retval = retval & " >>"
else
If pagecount > BasePage Then retval = retval & " >>"
end if
ExportPageInfo = retval
End Function
%>
<%
rsImg.close
set rsImg=nothing
end if
%> |