һasp
֪ݿĶʾǶô򵥵
Ǻܶ˻ǲ 
д´

 <%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from shops order by bh desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("ʱûй̳ǵļ¼")
else
rs.PageSize=10
if page=0 then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page  
    
for j=1 to rs.PageSize 
%>

ʾҳ


ڱӦλд

<%=rs("shop_name")%>

ֶοݿ
Ϊվȫ,ݿѯٷվͰװ
˵һ ɾװ򽫻ᱻ޸

<%
rs.movenext
if rs.eof then exit for
next                                                       
%>
ѭ


          <%if Page<2 then      
    response.write "ҳ һҳ&nbsp;"
  else
    response.write "<a href=admin_info.asp?page=1>ҳ</a>&nbsp;"
    response.write "<a href=admin_info.asp?page=" & Page-1 & ">һҳ</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "һҳ βҳ"
  else
    response.write "<a href=admin_info.asp?page=" & (page+1) & ">"
    response.write "һҳ</a> <a href=admin_info.asp?page="&rs.pagecount&">βҳ</a>"
  end if
   response.write "&nbsp;ҳΣ<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>ҳ "
    response.write "&nbsp;<b><font color='#FF0000'>"&rs.recordcount&"</font></b>¼ <b>"&rs.pagesize&"</b>¼/ҳ"
   response.write " ת<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
   response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span></p>"     
%>
ʾҳ

            <% 
end if
rs.close
set rs=nothing
%>


ĵطֻҪhtmlͿˣΪaspļ
