<!--#include file="geditop.asp"-->
<%function HTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")
    HTMLEncode = fString
end if
end function
dim ThisPage,Pagesize,Allrecord,Allpage,tj
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
dim xofox,class1,class2,sheng,shi
xofox=request("lexing")
class1=request("class1")
class2=request("class2")
sheng=request("sheng")
shi=request("shi")
 dim rsq,sqlq,class1c,class2c,shengc,shic,leixingc
if class1<>"" then
set rsq=server.createobject("adodb.recordset") 
sqlq = "select class1 from [FOX_shopclass1] where id="&class1&""
rsq.open sqlq,conn,1,1
class1c=rsq("class1")
rsq.close
set rsq=nothing
end if
if class2<>"" then
set rsq=server.createobject("adodb.recordset") 
sqlq = "select class2 from [FOX_shopclass2] where id="&class2&""
rsq.open sqlq,conn,1,1
class2c=rsq("class2")
rsq.close
set rsq=nothing
end if
if sheng<>"" then
set rsq=server.createobject("adodb.recordset") 
sqlq = "select sheng from [FOX_sheng] where id="&sheng&""
rsq.open sqlq,conn,1,1
shengc=rsq("sheng")
rsq.close
set rsq=nothing
end if
if shi<>"" then
set rsq=server.createobject("adodb.recordset") 
sqlq = "select shi from [FOX_shi] where id="&shi&""
rsq.open sqlq,conn,1,1
shic=rsq("shi")
rsq.close
set rsq=nothing
end if
if xofox<>"" then
set rsq=server.createobject("adodb.recordset") 
sqlq = "select leixing from [FOX_leis] where id="&xofox&""
rsq.open sqlq,conn,1,1
leixingc=rsq("leixing")
rsq.close
set rsq=nothing
end if
%>
<head>

<title><%=class1c%><%=class2c%><%=shengc%><%=shic%><%=leixingc%>--<%=title%>--<%=web%>--网店首页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body topmargin="0">
<table cellSpacing="0" cellPadding="0" width="930" align="center" border="0" id="table73">
	<tr>
		<td colSpan="3">
		<img height="4" src="images/_scap.gif" width="760"></td>
	</tr>
	<tr>
		<td vAlign="top" width="187">
		<table id="table76" class="table2" width="100%">
		<tr><td class="tdbg2" height="28">最新商家
　</td></tr>
<%dim aej,rsfox,sqlfox
set rsfox=server.createobject("adodb.recordset")
sqlfox="select top 20 * from FOX_dian where yz=1 order by fbsj desc"
rsfox.open sqlfox,conn,1,1
if rsfox.eof then
response.write "还没有...！"
else
do while not rsfox.eof
%><tr><td>
·<A href="mydian.asp?fox=<%=rsfox("username")%>"><%=rsfox("company")%></a>
</td></tr><%
aej=aej+1
if aej>=20 then exit do
rsfox.movenext
loop
end if
rsfox.close
set rsfox=nothing
%></table>		
		　</td>
		<td width="37" align="center" valign="top">
		<img height="4" src="images/_scap.gif" width="4"><img border="0" src="<%=css%>bgfox7.jpg"></td>
		<td vAlign="top" width="706">
		<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table86">
			<tr>
				<td height="30" class="tdtop">
				<p style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">
				<span style="letter-spacing: 0px">
				&nbsp;<font color="#FFFFFF"><a class="scap" href="index.asp"><%=title%></a></font> 商品列表</span></td>
			</tr>
			</table>
		<%dim rsfoxf,sqlfoxf
tj=1
set rsfoxf=server.createobject("adodb.recordset")
 sqlfoxf="SELECT * FROM FOX_shop where yz=1 and"
 If class1<>"" Then sqlfoxf=sqlfoxf&" class1="&class1&" and"
 If class2<>"" Then sqlfoxf=sqlfoxf&" class2="&class2&" and"
 If sheng<>"" Then sqlfoxf=sqlfoxf&" sheng="&sheng&" and"
 If shi<>"" Then sqlfoxf=sqlfoxf&" shi="&shi&" and"
 If xofox<>"" Then sqlfoxf=sqlfoxf&" leixing="&xofox&" and"
' if right(sqlfoxf,5)="where" then sqlfoxf=left(sqlfoxf,clng(len(sqlfoxf))-5)
 if right(sqlfoxf,3)="and" then sqlfoxf=left(sqlfoxf,clng(len(sqlfoxf))-3)
 sqlfoxf=sqlfoxf&" order by fbsj desc"
 rsfoxf.Open sqlfoxf,conn,1,3
 rsfoxf.Pagesize=6
Pagesize=rsfoxf.Pagesize
Allrecord=rsfoxf.Recordcount
Allpage=rsfoxf.Pagecount
if ThisPage<1 then                           
ThisPage=1                           
end if
On Error Resume Next
rsfoxf.move (ThisPage-1)*Pagesize
if rsfoxf.eof then
response.write "暂时没有！"
else
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0" style="border-collapse: collapse" id="table169" class="table2">

            <%do while not rsfoxf.eof%>
 <%'dim rsq,sqlq,class1c,class2c,leixingc,shengc,shic
set rsq=server.createobject("adodb.recordset") 
sqlq = "select class1 from [FOX_shopclass1] where id="&rsfoxf("class1")&""
rsq.open sqlq,conn,1,1
class1c=rsq("class1")
rsq.close
set rsq=nothing
set rsq=server.createobject("adodb.recordset") 
sqlq = "select class2 from [FOX_shopclass2] where id="&rsfoxf("class2")&""
rsq.open sqlq,conn,1,1
class2c=rsq("class2")
rsq.close
set rsq=nothing
set rsq=server.createobject("adodb.recordset") 
sqlq = "select leixing from [FOX_leis] where id="&rsfoxf("leixing")&""
rsq.open sqlq,conn,1,1
leixingc=rsq("leixing")
rsq.close
set rsq=nothing
set rsq=server.createobject("adodb.recordset") 
sqlq = "select sheng from [FOX_sheng] where id="&rsfoxf("sheng")&""
rsq.open sqlq,conn,1,1
shengc=rsq("sheng")
rsq.close
set rsq=nothing
set rsq=server.createobject("adodb.recordset") 
sqlq = "select shi from [FOX_shi] where id="&rsfoxf("shi")&""
rsq.open sqlq,conn,1,1
shic=rsq("shi")
rsq.close
set rsq=nothing
%>
            <tr bgcolor="#CCCCCC">
              <td colspan="5" height="1"></td>
            </tr> 

            <tr>
              <td height="22" width="1%" class="p9t" bgcolor="#F5F5F5">
				　</td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" colspan="4">
				<table border="0" width="100%" id="table171" cellspacing="0" cellpadding="0">
            <tr>
              <td height="28" colspan="2" class="p10t" bgcolor="#D9EBE5">
				<p align="center">
				&nbsp;<img border="0" src="images/dot3.gif" width="11" height="11"></td>
              <td height="28" colspan="3" class="p10t" bgcolor="#D9EBE5"><strong style="font-weight: 400"><font color="#cc0000"> &nbsp;</font><font color="#CC0000">[<a href="allshop.asp?class1=<%=class1%>&class2=<%=class2%>&sheng=<%=sheng%>&shi=<%=shi%>&lexing=<%=rsfoxf("leixing")%>"><%=leixingc%></a>]：</font><%if rsfoxf("xinxipic")<>"0" then%>[<font color="#FF0000">图</font>]<%else%><%end if%><font color="#009933"><b><a href="shopinfo.asp?fox=<%=rsfoxf("id")%>"><%=rsfoxf("company")%></a></b></font></strong>&nbsp;&nbsp;发布时间：<font color="#666666"><%=rsfoxf("fbsj")%></font></td>
            </tr>
				</table>
				</td>
            </tr>

            <tr>
              <td height="22" width="1%" class="p9t" bgcolor="#F5F5F5">
				　</td>
              <td height="44" class="p9t" bgcolor="#F5F5F5" width="10%" rowspan="2" align="center">
				<%if rsfoxf("xinxipic")="0" then%><img border="0" src="images/nopic.gif" width="60" height="60">
<%else%><a href="shopinfo.asp?fox=<%=rsfoxf("id")%>" target="_blank"><img border="0" src="shopupfiles/<%=rsfoxf("xinxipic")%>" width="60" height="60"></a><%end if%></td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" width="12%">
				简单说明：</td>
              <td height="22" width="77%" colspan="2"><%=rsfoxf("ad")%>

             　</td>
            </tr>

            <tr>
              <td height="22" width="1%" class="p9t" bgcolor="#F5F5F5">
				<p align="right">
				　</td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" width="12%">
				商品所属：</td>
              <td height="22" width="47%">
             <a href="allshop.asp?class1=<%=class1%>&class2=<%=rsfoxf("class2")%>&sheng=<%=sheng%>&shi=<%=shi%>&lexing=<%=xofox%>"><%=class2c%></a> <- <a href="allshop.asp?class1=<%=rsfoxf("class1")%>&class2=<%=class2%>&sheng=<%=sheng%>&shi=<%=shi%>&lexing=<%=xofox%>"><%=class1c%></a></td>
              <td height="22" width="30%">
              <a href="allshop.asp?class1=<%=class1%>&class2=<%=class2%>&sheng=<%=sheng%>&shi=<%=rsfoxf("shi")%>&lexing=<%=xofox%>"><%=shic%></a> <- <a href="allshop.asp?class1=<%=class1%>&class2=<%=class2%>&sheng=<%=rsfoxf("sheng")%>&shi=<%=shi%>&lexing=<%=xofox%>"><%=shengc%></a></td>
            </tr>

			<%
        tj=tj+1
        if tj>=Pagesize then exit do
        rsfoxf.movenext
        loop
        %>

            </table>

				<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse" id="table170">
                <tr>
                  <td height="25" width="163" class="p9t"><p align="center"> 
					<font color="#CC5200"><%=Pagesize%></font> 条/页 &nbsp;共 <font color="#CC5200"><%=Allrecord%></font> 条记录</td>
                  <td height="25" width="103" class="p9t"><p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
                  <td height="25" width="78" class="p9t"><p align="center">第 <font color="#CC5200"><%=ThisPage%></font> 页</td>
                  <td height="25" width="187" class="p9t"><p align="center">
 <%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1&class1="&class1&"&class2="&class2&"&sheng="&sheng&"&shi="&shi&"&lexing="&xofox&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&class1="&class1&"&class2="&class2&"&sheng="&sheng&"&shi="&shi&"&lexing="&xofox&">上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&"&class1="&class1&"&class2="&class2&"&sheng="&sheng&"&shi="&shi&"&lexing="&xofox&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&class1="&class1&"&class2="&class2&"&sheng="&sheng&"&shi="&shi&"&lexing="&xofox&">尾页</a>&nbsp;"     
end if
%>  
                    </td>
                </tr>
              </table>


 <%end if
 rsfoxf.close
 set rsfoxf=nothing%>  
		</td>
	</tr>
</table>
<%rs.close
set rs=nothing%>
</body>
<!--#include file="ffbottom.asp"--></body></html>

</body></html>