%
Dim rs,contxt
%>
<%
Set rs=Server.CreateObject("Adodb.RecordSet")
%>
<%
mode_name="中大广场"
pgSize=8
rs.CursorLocation=3
contxt="SELECT id,qi,img_url FROM qihao ORDER BY qi ASC"
rs.Open contxt,ConnString,1,1,1
if Not(rs.bof and rs.eof) then'''判别数据表中是否为空记录
NumRecord=rs.recordcount
rs.pagesize=pgSize
NumPage=rs.Pagecount
if request("page")=empty then
NoncePage=1
else
NoncePage=request("page")
if Cint(Trim(request("page")))>Cint(NumPage) then NoncePage=NumPage
end if
else
NumRecord=0
NumPage=0
NoncePage=0
end if
%>