复制代码 代码如下:
%
page=trim(request("page"))
maxperpage=40
first=true
last=true
dim rs
set rs=server.CreateObject("adodb.recordset")
sql="select id,title,add1,cartype,isred,enterdate,hits from newnews where classtype=0 and pass=1 order by id desc"
rs.open sql,conn,1,1
rs.pagesize=maxperpage
totalpage=rs.pagecount
if len(page)=0 then
intpage=1
first=false
else
if cint(page)=1 then
intpage=1
first=false
else
if cint(page)>=rs.pagecount then
intpage=rs.pagecount
last=false
else
intpage=cint(page)
end if
end if
end if
if not rs.eof then
rs.absolutepage=intpage
end if
for a=1 to maxperpage
if rs.eof then exit for
%>
tr %if (a mod 2)=0 then
response.write "bgcolor=#ffffff"
else
response.write "bgcolor=#f6f6f6"
end if
%>>
td height="20">div align="center">%=a%>/div>/td>
td>div align="center">
%add=rs("add1")
substring add,4
%>
/div>/td>
td>
a href="displaynews.asp?id=%=rs("id")%>" target="_blank">
%
if rs("isred")=True then
%>
font color="red">
%title=rs("title")
substring title,20
%>/font>
%else
title=rs("title")
substring title,20
%>
%
end if
%>
/a>/td>
td>div align="center">%=rs("cartype")%>/div>/td>
td>div align="center">
%thetime=rs("enterdate")
themon=datepart("m",thetime)
if len(themon)2 then themon="0"themon
theday=datepart("d",thetime)
if len(theday)2 then theday="0"theday
ther=themon"-"theday
response.write ther
%>
/div>/td>
td>div align="center">%=rs("hits")%>/div>/td>
/tr>
%
rs.movenext
if rs.eof then exit for
next
%>
/table>
table width="100%" border="0" cellspacing="0" cellpadding="0">
tr>
td height="5">/td>
/tr>
/table>
table width="100%" border="0" cellpadding="0" cellspacing="0">
tr>
td height="20" bgcolor="#f6f6f6">
div align="center">
%if rs.pagecount>0 then %>
共有%=rs.recordcount%>条|当前页%=intpage%>/
%
=rs.pagecount%>
% end if %>
%if intpage>1 then%>
a href="%request.ServerVariables("SCRIPT_NAME")%>?
page=1">首页/a>
%else%>
首页
%end if%>
%if first then%>
a href="%request.ServerVariables("SCRIPT_NAME")%>?
page=%=intpage-1%>">上一页/a>
%else%>
上一页
%end if%>
%if last and intpagers.pagecount then%>
a href="%request.ServerVariables("SCRIPT_NAME")%>?
page=%=intpage+1%>">下一页/a>
%else%>
下一页
%end if%>
%if intpagers.pagecount then%>
a href="%request.ServerVariables("SCRIPT_NAME")%>?
page=%=rs.pagecount%>">尾页/a>
%else%>
尾页
%end if%>
转到
select onChange="location=this.options
[this.selectedIndex].value">
%for b=1 to rs.pagecount
if b=intpage then%>
option value="%request.ServerVariables("SCRIPT_NAME")%>?page=%=b%>" selected>
第%=b%>页/option>
% else %>
option value="%request.ServerVariables("SCRIPT_NAME")%>?page=%=b%>">第%=b%>页
/option>
%end if
next%>
/select>
nbsp;nbsp;nbsp;nbsp;/div>/td>
/tr>
/table>
/body>
%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
