<%
const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request.QueryString("page")) then
currentPage=Cint(request.QueryString("page"))
else
currentPage=1
end if
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select bt,ly,sj,html from news where lbid=1 and xlbid=2 order by id desc"
rs.Open sql,conn,1,2
if rs.eof and rs.bof then
response.Write("没有记录")
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"kfanli.asp"
else
if (currentPage-1)*MaxPerPage客户案例-河南奇锐佳网络科技有限公司郑州网站建设公司 河南奇锐佳网络提供网站诊断|郑州网络营销策划|网络营销整体解决方案
网 站 类 别 
