|
|
|
电视报纸等新闻媒体对宏儒的报道 |
<%
set rs=server.CreateObject("adodb.recordset")
conn.open
if hrcname="" then
sql="select neir from information where shux='a'"
else
sql="select neir from information where shux='p'"
End if
rs.open sql,conn,1,1
if rs.eof then
neir="对不起，没有新信息！"
else
information=int(rs.recordCount)
response.Cookies("information")=information
response.Cookies("information").expires=DateAdd("n",30,now())
neir=rs("neir")
End if
'分页开始
if len(Request("PageNo"))=0 then
PageNo=1
else
PageNo=int(Request("PageNo"))
End if
rs.PageSize=3
rs.AbsolutePage=int(PageNo)
dim k,i
if PageNo=1 then
k=1
else
k=1+3*(int(PageNo)-1)
End if
i=1
do while i<=int(rs.PageSize) and not rs.eof
neir=xhhtml(rs("neir"))
%>
<%
rs.MoveNext
if rs.eof then
exit do
End if
loop
Sub TurnPage(Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
'如果没有选择第几页，则默认显示第一页；
If PageNo = "" then PageNo = 1
If RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
End If
%>
|
<%End Sub
call TurnPage(rs,3)
rs.close
set rs=nothing
%>
|
|
