<%
page_size=15
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From a_news_out Where relationid='536149' and kind='6' Order By id Desc"
rs.Open strSql,db,1
'查询记录
dim count
count = rs.recordcount '返回总记录数
'以下主要为了分页显示
' dim page_size '定义每页多少条记录变量
dim page_no '定义当前是第几页变量
dim page_total '定义总页数变量
page_size=15 '每页显示15条记录
'如果第一次打开,则page_no为1,否则由传回的参数决定
if Request.QueryString("pages")="" then
page_no=1
else
page_no=Cint(Request.QueryString ("pages")) '用Cint将字符串变为整数
end if
rs.PageSize=page_size '设置每页多少条记录
page_total=rs.PageCount '返回总页数
rs.AbsolutePage=page_no '设置当前显示第几页
if Not rs.Bof or Not rs.Eof then
I=page_size '该变量用来控制显示当前页记录
Do While Not rs.Eof And I>0 '循环直到当前页结束或文件结尾
I=I-1
%>
承办单位: 宁夏气象局信息网络中心 宁夏同舟互联网信息技术服务中心
地址:宁夏银川市金凤区-自治区气象局 电话:(0951)5029915 信箱:nqztnet@public.yc.nx.cn
<%=rs("title")%>
|
<%
rs.MoveNext
Loop
end if
'**************************** 测试用
ii=2
if ii=1 then
Response.Redirect"new1.asp"
end if
'****************************
'关闭对象
rs.Close
set rs=nothing
%>
|
|
|
|
|