【 tulaoshi.com - Web开发 】
代码如下：
%
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 style="text-align:center"%=a%/div/td
tddiv style="text-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
tddiv style="text-align:center"%=rs("cartype")%/div/td
tddiv style="text-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
tddiv style="text-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 style="text-align:center"
%if rs.pagecount0 then %
共有%=rs.recordcount%条|当前页%=intpage%/
%
=rs.pagecount%
% end if %
%if intpage1 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
/div/td
/tr
/table
/body
%
rs.close
set rs=nothing
conn.close
set conn=nothing
%
