2G网站空间，仅需20元一年，详情点击进入

<%
fenleiid=request("fenleiid")
'if fenleiid <> "" then
'session("feleiidindex")=fenleiid
'else
'fenleiid=session("feleiidindex")
'end if

if fenleiid <> "" then
ch="select * from mystore where fenleiid='"&fenleiid&"' order by youxian desc"
else 
ch="select * from mystore order by youxian desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open ch,conn,1,1
if rs.eof and rs.bof then
response.Write("还没有添加此分类商家")
else
%>
<table width="100%" border="0" >


<% 
 rs.pagesize=13
 pagecount=rs.pagecount 
 page=int(request("page")) 
 if page<=0 then page=1 
 if request.QueryString("page")="" then 
 page=1 
 end if 
 rs.absolutepage=page 
 
   for i=1 to rs.PageSize 
   if rs.EOF then 
   exit for 
   end if 
%> 
  <tr>
    <td width="210">&nbsp;
	<a href=wupin/showstore.asp?storename=<%=rs("username") %> ><%=rs("storename")%></a> </td>
  
    <td width="220">
	<%=rs("storeaddr")%></td>
  
    <td width="100"><%=rs("dianhua")%></td>
 
    <td><%=rs("youzheng")%></td>
  </tr>
 
  

<% 
 rs.movenext 
 next 
%> 
<% 
rs.close 
set rs=nothing 
%>

</table>

&nbsp;
第<% for i=1 to pagecount %> 
<a href="index.asp?page=<%=i%>&fenleiid=<%=fenleiid%>"><%=i%></a> 
<%next%>页


<%
end if
'结束判断是否有商家
%>