 |
宏儒中国欢迎您！
24小时全国统一热线：400-680-9000 |
<%
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
%>
|
随着社会的发展,宏儒中国为了给您提供更专业、更便捷的服务，宏儒中国客服呼叫中心于2008年7月全面启动。24小时全国统一客服咨询热线为：400-680-9000.
欢迎广大客户致电全国统一客服咨询热线，宏儒中国呼叫中心全体工作人员将竭诚为您服务，感谢您的支持！
|
| |
|
