|
|
中超诸强 |
 |
| →
|
| →
|
中国西安电视台 版权所有
陕ICP备05001568号 陕新网审字[2002]007号
信息网络传播视听节目许可证：2705078号 |
|
| |
| 中超动态 |
| <%
set rs=server.createobject("adodb.recordset")
sql="select * from news where cateid=63 order by id desc"
rs.open sql, conn, 1, 1
i=0
dim totalput
filename="zhongchaonews.asp"
const MaxPage=25
totalput=rs.recordcount
currentPage=cint(request("page"))
if not isempty(cint(request("page")))then
currentPage=cint(request("page"))
else
currentPage=1
end if
if rs.eof then
response.write " 找不到该关键字的记录 "
else
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPage>totalput then
if (totalPut mod MaxPage)=0 then
currentpage=totalPut \ MaxPage
else
currentpage=totalPut \ MaxPage + 1
end if
end if
if currentPage=1 then
showcontent
showpage totalput,MaxPage,filename
else
if (currentPage-1)*MaxPage
<%
sub showcontent
dim i
i=1
do while not rs.eof
%>
<%
i=i+1
if i>MaxPage then exit do
rs.Movenext
loop
end sub
%>
<%
function showpage(tutalput,maxpage,filename)
dim n
if tutalput mod (maxpage)=0 then
n=tutalput \ maxpage
else
n= (tutalput \ maxpage)+1
end if
response.write ""
end function
%>
|
|
|
| |
|
|
<%
response.Write "