<%
set rs=server.createobject("adodb.recordset")
sqlcmd="select * from infokonw order by afile1 desc,ainfoid desc"
rs.open sqlcmd,jdconn,1,1
if rs.eof and rs.bof then
response.Write("暂时没有相关信息")
else
page=clng(request("me_page"))
rs.pagesize=28
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
for ipage=1 to rs.pagesize
%>
| ->
[<%
select case rs("atypeid")
case 1
response.Write("选购知识")
case 2
response.Write("设备规范")
case 3
response.Write("材质保养")
case 4
response.Write("行业资讯")
end select
%>]
" target="_blank"><%=left(rs("atitle"),36)%> |
|
|
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
|
|
记录：<%=rs.recordcount%> 页码：<%=page%>/<%=rs.pagecount%> |
<%if page<>1 then%>
[上页]
<%else%>
| [上页]
<%
end if
for i= 1 to page-1
response.write ""&(page-i)&" "
if i=1 then exit for
next
response.write (page&" ")
if page<>rs.pagecount then
for j=1 to 24
response.write ""&(page+j)&" "
if page+j+1 > rs.pagecount then exit for
next
end if
if page<>rs.pagecount then
%>
[下页] |
<%else%>
[下页]
<%response.write""
end if%>
|
|
<%
rs.close
set rs=nothing
%>
良好的品质，才能有持久的价值！
|
|