<!--#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 rsbo,sql1,sql2,sql3,sql4,sql5,class1,class2,sheng,shi,class1name,class2name,shengname,shiname,leixingname
dim ThisPage,Pagesize,Allrecord,Allpage,tj
class1=trim(request("class1"))
class2=trim(request("class2"))
sheng=trim(request("sheng"))
shi=trim(request("shi"))
set rsbo=server.createobject("adodb.recordset")
if class1<>"" then
sql1="select class1 from FOX_shang1 where id="&class1&""
rsbo.open sql1,conn,1,1
class1name=rsbo("class1")
rsbo.close
'set rsbo=nothing
end if
if class2<>"" then
sql2="select class2 from FOX_shang2 where id="&class2&""
rsbo.open sql2,conn,1,1
class2name=rsbo("class2")
rsbo.close
'set rsbo=nothing
end if
if sheng<>"" then
sql3="select sheng from FOX_sheng where id="&sheng&""
rsbo.open sql3,conn,1,1
shengname=rsbo("sheng")
rsbo.close
'set rsbo=nothing
end if
if shi<>"" then
sql4="select shi from FOX_shi where id="&shi&""
rsbo.open sql4,conn,1,1
shiname=rsbo("shi")
rsbo.close
'set rsbo=nothing
end if

if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>市场联盟--<%=title%>--<%=web%></title>
</head>

<body>

<div align="center">
<table cellSpacing="0" cellPadding="0" width="930" border="0" id="table1">
		<tr>
			<td  height="25" colspan="3" class="tdtop"><b>&nbsp;&gt;&gt; 您的位置  
			<font color="#FFFFFF">-></font> <a class="scap1" href="index.asp"><%=title%></a>
			<font color="#FFFFFF">-></font> 市场联盟频道：</b><font color="#FFFFFF"> -></font>
			<font color="#FF0000">&nbsp; <%=class1name%>&nbsp; <%=class2name%>&nbsp; <%=shengname%>&nbsp; <%=shiname%></font></td>
		</tr>
		
		<tr bgColor="#d9ebe5">
			<td  height="25" bgcolor="#FFFFFF" width="405" valign="top">
<%
dim Nclasslie,sql,classlie,classid,id
Set Nclasslie =Server.CreateObject("ADODB.Recordset") 
sql="select * from FOX_shang1"        
Set classlie = Server.CreateObject("ADODB.Recordset")                          
classlie.open sql,conn,1,1
if not classlie.eof then
do while not classlie.eof
classid=classlie("id")%> 
<div align="center">
<TABLE width=400 border=0 cellpadding="0" cellSpacing=1 bgColor=#FFFFFF style="border-collapse: collapse" class="table2">
  <TBODY>
    <TR bgcolor="#fafafa">
      <TD width="400" height="24" colspan="6">
		<table cellSpacing="0" cellPadding="0" width="400" border="0" id="table63">
			<tr>
				<td height="24" class="tdbg2">
      <img border="0" src="<%=css%>dot4.gif">&nbsp;<b><a  href=scindex.asp?class1=<%=classid%>&fox=1><%=classlie("class1")%></a></b>
          <%
                dim rs
                set rs=conn.execute("select count(id) from [FOX_meng] where yz=1 and class1="&classid&"")
                %>
        [<%=rs(0)%>]</td>
			</tr>
			</table>
 </TD>
    </TR>
    <%
        sql="select * from [FOX_shang2] where class1="&classid  
		Nclasslie.open sql,conn,1,1  
		do while not Nclasslie.eof
		%>
    <TR bgcolor="#f7f7f7">
      <TD width="50%" height="21" align=left><%if not Nclasslie.eof then%>
          <a href=scindex.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&fox=2><font color="#000000"><%=Nclasslie("class2")%></font></a>
          <%
              set rs=conn.execute("select count(id) from [FOX_meng] where yz=1 and class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs(0)&"]"
              Nclasslie.movenext
              end if%>
      </TD>
      <TD width="50%" height="21" align=left><%if not Nclasslie.eof then%>
          <a href=scindex.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&fox=2><font color="#000000"><%=Nclasslie("class2")%></font></a>
          <%
              set rs=conn.execute("select count(id) from [FOX_meng] where yz=1 and class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs(0)&"]"
              Nclasslie.movenext
              end if
              %>
      </TD>
    </TR>
    <%
loop               
Nclasslie.Close               
%>
  </TBODY>
</TABLE>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="5">
	<tr>
		<td></td>
	</tr>
</table>
</div>
<%
classlie.movenext               
loop  
end if  
classlie.close  
set classlie=nothing  
set Nclasslie=nothing 
%>

			</td>
			<td  height="25" bgcolor="#FFFFFF" width="10" valign="top">
			<img border="0" src="<%=css%>bgfox.jpg" width="25" height="280"></td>
			<td  height="25" bgcolor="#FFFFFF" valign="top" align="right">
<table border="0" width="99%" id="table64" cellspacing="0" cellpadding="0" class="table2">
	<tr>
		<td class="tdbg2" height="24">&nbsp;<span lang="zh-cn">市场联盟列表</span></td>
	</tr>
	<tr>
		<td valign="top">
<%dim rsfoxf,sqlfoxf
tj=1
set rsfoxf=server.createobject("adodb.recordset")
 sqlfoxf="SELECT * FROM FOX_meng 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 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">

            <%do while not rsfoxf.eof%>
 <%dim rsq,sqlq,class1c,class2c,leixingc,shengc,shic
set rsq=server.createobject("adodb.recordset") 
sqlq = "select class1 from [FOX_shang1] 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_shang2] 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 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>
              <td colspan="5" height="1"></td>
            </tr> 

            <tr>
              <td height="22" width="1%" class="p9t" bgcolor="#F5F5F5">
				　</td>
              <td height="22" class="tdbg2" colspan="4">
				<table border="0" width="100%" id="table171" cellspacing="0" cellpadding="0">
            <tr>
              <td height="30" colspan="2" class="tdbg4">
				<p align="center">
				&nbsp;<img border="0" src="images/dot3.gif" width="11" height="11"></td>
              <td height="30" colspan="3" class="tdbg4"><strong style="font-weight: 400"><font class="z4"><b><%=rsfoxf("company")%></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">
				<p align="right">
				　</td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" width="16%">
				市场所属：</td>
              <td height="22" width="66%" colspan="3">
             <a href="scindex.asp?class1=<%=class1%>&class2=<%=rsfoxf("class2")%>&sheng=<%=sheng%>&shi=<%=shi%>&leixing=<%=leixing%>"><%=class2c%></a> <- <a href="scindex.asp?class1=<%=rsfoxf("class1")%>&class2=<%=class2%>&sheng=<%=sheng%>&shi=<%=shi%>&leixing=<%=leixing%>"><%=class1c%></a></td>
            </tr>

            <tr>
              <td height="22" width="1%" class="p9t" bgcolor="#F5F5F5">
				　</td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" width="16%">
				市场属地：</td>
              <td height="22" width="54%" class="p9t" colspan="3">
				<a href="scindex.asp?class1=<%=class1%>&class2=<%=class2%>&sheng=<%=sheng%>&shi=<%=rsfoxf("shi")%>&leixing=<%=leixing%>"><%=shic%></a> <- <a href="scindex.asp?class1=<%=class1%>&class2=<%=class2%>&sheng=<%=rsfoxf("sheng")%>&shi=<%=shi%>&leixing=<%=leixing%>"><%=shengc%></a></td>
            </tr>            

            <tr>
              <td height="22" width="1%" class="p9t" bgcolor="#F5F5F5">
				　</td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" width="16%">
				经营范围：</td>
              <td height="22" width="54%" class="p9t" colspan="3">
				　<font color="#FF0000"><%=rsfoxf("memo")%></font></td>
            </tr>                        

            <tr>
              <td height="22" width="1%" class="p9t" bgcolor="#F5F5F5">
				　</td>
              <td height="22" class="tdbg4" width="16%">
				推荐产品：</td>
              <td height="22" width="31%" class="tdbg4" colspan="2">
				<%=rsfoxf("chanpen")%></td>
              <td height="22" width="38%" class="tdbg4"><%=rsfoxf("leixing")%>&nbsp; <%if rsfoxf("jiage")=0 then%><font color="#008080"> 面 议</font><%else%><font color="#FF0000"><%=rsfoxf("jiage")%></font> 元<%end if%>
				　</td>
            </tr>                                    

            <tr>
              <td height="22" width="1%" class="p9t" bgcolor="#F5F5F5">
				　</td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" width="16%">
				<font color="#008080">联系人：</font></td>
              <td height="22" width="18%" class="p9t">
				<p align="left"><font color="#008080"><%=rsfoxf("lxrname")%> 
				</font> </td>
              <td height="22" width="13%" class="p9t">
				<font color="#008080">电话： </font> </td>
              <td height="22" width="38%" class="p9t">
				<font color="#008080"><%=left(rsfoxf("usertel"),12)%></font></td>
            </tr> 
           <tr>
              <td height="22" width="1%" class="p9t" bgcolor="#F5F5F5">
				　</td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" width="85%" colspan="4">
				<font color="#008080">手机：<%=rsfoxf("phone")%>&nbsp;&nbsp;&nbsp;&nbsp; EMAIL：<%=rsfoxf("email")%></font></td>
            </tr>
           <tr>
              <td height="22" width="1%" class="p9t" bgcolor="#F5F5F5">
				　</td>
              <td height="22" class="p9t" bgcolor="#F5F5F5" width="16%">
				<font color="#008080">联系地址：</font></td>
              <td height="22" width="69%" class="p9t" colspan="3">
				<font color="#008080">　<%=rsfoxf("dizhi")%>（<%=rsfoxf("code")%>）</font></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&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&class1="&class1&"&class2="&class2&"&sheng="&sheng&"&shi="&shi&">上一页</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&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&class1="&class1&"&class2="&class2&"&sheng="&sheng&"&shi="&shi&">尾页</a>&nbsp;"     
end if
%>  
                    </td>
                </tr>
              </table>


 <%end if
 rsfoxf.close
 set rsfoxf=nothing%>  
		</td>
	</tr>
</table>
</td>
		</tr>
		
</table>
</div>

</body>
<!--#include file="ffbottom.asp"--></body></html>