asp mysql分页代码_数据库信息动态分页显示（asp版）

'数据库信息动态分页显示(asp版)

'程序编制：时代互联网服务中心

'网址：http://www.9816.net

'编制人：薛振山

'电话：13165263708

'邮箱：xzs0001@163.com

'欢迎大家批评指正

'请引用时保留此版权项

%>

dim danyuangeshu,xiandingzishu,method,pageno,htmlname,fengese,yemase,fengekuandu

dim i

dim lieshu,hangshu

'ee为输出数据

method=Request.QueryString("method")

pageno=Request("pageno")

htmlname="?method=" & method & "&currentPage=" & currentPage & "&id=" & id & "&"

lieshu=1'--------------------组数

hangshu=20'------------------显示条数

danyuangeshu=3 '-------------栏目数(单元格数)

xiandingzishu=50 '-----------限定字数

fengese=content  '-----------分隔色

yemase="#0000ff"  '----------页码色

fengekuandu=30 '-------------分隔宽度

set rs=server.CreateObject("ADODB.Recordset")

sql="select * from news"

rs.Open sql,conn,1,1

rs.PageSize=lieshu*hangshu

if pageno="" then

pageno=1

else

pageno=cint(pageno)

end if

if rs.PageCount > 0 then rs.AbsolutePage=pageno

%>

信息标题

日期

style="border-right: px solid ">拼音

i=1

do while i<= hangshu and not rs.EOF

%>

for j=1 to lieshu

if not rs.EOF then

%>

" οnmοuseοut=bgColor=""> " href="news_list.asp?id=">" οnmοuseοut=bgColor="">" οnmοuseοut=bgColor="" height="20" style="border-right: px solid ">

rs.MoveNext

else

%>

style="border-right: px solid ">

end if

next

%>

i=i+1

loop

%>

if pageno > 1 then

%>

       

       

end if

if pageno > 5 then response.write "..."

for i=pageno-4 to pageno+4

if i > 0 and i <= rs.PageCount then

if clng(pageno)=i then

response.write ""

response.write " " & i & " "

else

response.write " " & i & " "

end if

end if

next

'if pageno < rs.PageCount-4 and pageno > 1 then response.write "..."

if pageno < rs.PageCount-4 then response.write "..."

if pageno < rs.PageCount then

%>

       

       

找到相关结果共 条(页)