<!--#include file="geditop.asp"-->
<%
dim rsbo,sql1,sql2,sql3,sql4,sql5,class1,class2,sheng,shi,leixing,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"))
leixing=trim(request("leixing"))
set rsbo=server.createobject("adodb.recordset")
if class1<>"" then
sql1="select class1 from FOX_wzclass1 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_wzclass2 where id="&class2&""
rsbo.open sql2,conn,1,1
class2name=rsbo("class2")
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><%=class2name%>--<%=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; >> 您的位置  
			<font color="#FFFFFF">-></font> <a class="scap1" href="index.asp"><%=title%></a>
			<font color="#FFFFFF">-></font>&nbsp; <%=class1name%>&nbsp; <%=class2name%></b></td>
		</tr>
		
		<tr>
			<td  height="25" bgcolor="#FFFFFF" width="343" valign="top">
		<%
dim Nclasslie,sql,classlie,classid,id
Set Nclasslie =Server.CreateObject("ADODB.Recordset") 
sql="select * from FOX_wzclass1"        
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")%> 
<%
classlie.movenext               
loop  
end if  
classlie.close  
set classlie=nothing  
set Nclasslie=nothing 
%>
		<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table71" class="table2">
			<tr>
				<td class="tdbg2" height="24">
				&nbsp; 相关资讯</td>
			</tr>
			<tr>
				<td  valign="top">
				<table><%dim rsfox,sqlfox,ns1
set rsfox=server.createobject("adodb.recordset")
sqlfox="select top 36 * from FOX_zixun 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
%>
<%dim rsfoxff,sqlfoxff
set rsfoxff=server.createobject("adodb.recordset")
sqlfoxff="select class2 from FOX_wzclass2 where id="&rsfox("class2")&""
rsfoxff.open sqlfoxff,conn,1,1
%><tr><td>
<font color="#FF6C3B">·</font>[<a href="newsindex.asp?class2=<%=rsfox("class2")%>"><font color="#FF0000"><%=rsfoxff("class2")%></font></a>] <A href="newsinfo.asp?fox=<%=rsfox("id")%>" title="<%=rsfox("company")%>"><%=left(rsfox("company"),16)%></a>
</td></tr><%
ns1=ns1+1
if ns1>=30 then exit do
rsfox.movenext
loop
end if
rsfoxff.close
set rsfoxff=nothing
rsfox.close
set rsfox=nothing
%></table></td>
			</tr>
			</table>
			<td  height="25" bgcolor="#FFFFFF" width="27" valign="top">
			<img border="0" src="<%=css%>bgfox.jpg" width="25" height="280"></td>
			<td  height="25" bgcolor="#FFFFFF" valign="top" align="right">
		<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table85" class="table2">
			<tr>
				<td width="6">
				　</td>
				<td width="100%" class="tdbg2" height="24">
&nbsp;
最新图片资讯</td>
				<td width="6">
				　</td>
			</tr>
			<tr>
				<td width="6">
				　</td>
				<td width="100%" valign="top" align="center">
<%dim rsss,sqlss,dsss
set rsss=server.createobject("adodb.recordset")
 sqlss="SELECT * FROM FOX_zixun where xinxipic<>'0' and yz=1 and"
 If class1<>"" Then sqlss=sqlss&" class1="&class1&" and"
 If class2<>"" Then sqlss=sqlss&" class2="&class2&" and"
' if right(sqlss,5)="where" then sqlss=left(sqlss,clng(len(sqlss))-5)
 if right(sqlss,3)="and" then sqlss=left(sqlss,clng(len(sqlss))-3)
 sqlss=sqlss&" order by fbsj desc"
 rsss.Open sqlss,conn,1,1
%>
<table border=0 cellpadding=0 style="border-collapse: collapse" width="100%" id="table92">
<%do while not rsss.eof%>
<tr>
<td style="font-size: 12px" width="160" height="20">
<%if not rsss.eof then%>
<table cellpadding="2"><tr>
	<td width="100" align="center">
<a href="newsinfo.asp?fox=<%=rsss("id")%>" target="_blank"><img border="0" src="newsupfiles/<%=rsss("xinxipic")%>" width="100" height="100"></a></td>
	</tr>
	<tr>
	<td width="100" align="center"><a href="newsinfo.asp?fox=<%=rsss("id")%>" target="_blank"><%=left(rsss("company"),14)%></a></td>
	</tr>
</table>
<%rsss.movenext
end if
%></td>
<td style="font-size: 12px" width="160" height="20">
<%if not rsss.eof then%>
<table cellpadding="2"><tr>
	<td width="100" align="center">
<a href="newsinfo.asp?fox=<%=rsss("id")%>" target="_blank"><img border="0" src="newsupfiles/<%=rsss("xinxipic")%>" width="100" height="100"></a></td>
	</tr>
	<tr>
	<td width="100" align="center"><a href="newsinfo.asp?fox=<%=rsss("id")%>" target="_blank"><%=left(rsss("company"),14)%></a></td>
	</tr>
</table>
<%rsss.movenext
end if
%></td>
<td style="font-size: 12px" width="160" height="20">
<%if not rsss.eof then%>
<table cellpadding="2"><tr>
	<td width="100" align="center">
<a href="newsinfo.asp?fox=<%=rsss("id")%>" target="_blank"><img border="0" src="newsupfiles/<%=rsss("xinxipic")%>" width="100" height="100"></a></td>
	</tr>
	<tr>
	<td width="100" align="center"><a href="newsinfo.asp?fox=<%=rsss("id")%>" target="_blank"><%=left(rsss("company"),14)%></a></td>
	</tr>
</table>
<%rsss.movenext
end if
%></td>
<td style="font-size: 12px" width="160" height="20">
<%if not rsss.eof then%>
<table cellpadding="2"><tr>
	<td width="100" align="center">
<a href="newsinfo.asp?fox=<%=rsss("id")%>" target="_blank"><img border="0" src="newsupfiles/<%=rsss("xinxipic")%>" width="100" height="100"></a></td>
	</tr>
	<tr>
	<td width="100" align="center"><a href="newsinfo.asp?fox=<%=rsss("id")%>" target="_blank"><%=left(rsss("company"),14)%></a></td>
	</tr>
</table>
<%rsss.movenext
end if
%></td>
</tr>
<%dsss=dsss+1
if dsss>=1 then exit do
loop
rsss.close
set rsss=nothing
%>
</table>	
			</td>
				<td width="6">
				<img height="6" src="images/_scap.gif" width="6"></td>
			</tr>
			</table>
		<table border="0" width="50%" id="table172" cellspacing="0" cellpadding="0" height="5">
			<tr>
				<td></td>
			</tr>
		</table>
		<%dim rsfoxf,sqlfoxf
tj=1
set rsfoxf=server.createobject("adodb.recordset")
 sqlfoxf="SELECT * FROM FOX_zixun where yz=1 and"
 If class1<>"" Then sqlfoxf=sqlfoxf&" class1="&class1&" and"
 If class2<>"" Then sqlfoxf=sqlfoxf&" class2="&class2&" 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=21
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" class="table2" id="table169">
<tr><td class="tdbg2" height="24">&nbsp; 资讯列表</td></tr>
            <%do while not rsfoxf.eof%>
 <%dim rsq,sqlq,class1c,class2c,leixingc,shengc,shic
set rsq=server.createobject("adodb.recordset") 
sqlq = "select class1 from [FOX_wzclass1] 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_wzclass2] where id="&rsfoxf("class2")&""
rsq.open sqlq,conn,1,1
class2c=rsq("class2")
rsq.close
set rsq=nothing
%>
            <tr>
              <td height="22" class="p9t">
				<table border="0" width="100%" id="table171" cellspacing="0" cellpadding="0" height="23">
            <tr>
              <td height="24" class="p10t" bgcolor="#FFFFFF" width="21">
				&nbsp;<img border="0" src="<%=css%>dot2.gif"></td>
              <td height="24">   
              <a href="newsindex.asp?class1=<%=rsfoxf("class1")%>&class2=<%=class2%>&sheng=<%=sheng%>&shi=<%=shi%>&leixing=<%=leixing%>"><%=class1c%></a> -> <a href="newsindex.asp?class1=<%=class1%>&class2=<%=rsfoxf("class2")%>&sheng=<%=sheng%>&shi=<%=shi%>&leixing=<%=leixing%>"><font class="z4"><%=class2c%></font></a></td>
              <td height="24" width="400"><%if rsfoxf("xinxipic")<>"0" then%>[<font color="#FF0000">图</font>]<%else%><%end if%> <a target="_blank" href="newsinfo.asp?fox=<%=rsfoxf("id")%>"><%=left(rsfoxf("company"),22)%></a>&nbsp;&nbsp;<font class="z1"><%=formatdatetime(rsfoxf("fbsj"),2)%></font></td>
            </tr>
				</table>
				</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&"&leixing="&leixing&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&class1="&class1&"&class2="&class2&"&sheng="&sheng&"&shi="&shi&"&leixing="&leixing&">上一页</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&"&leixing="&leixing&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&class1="&class1&"&class2="&class2&"&sheng="&sheng&"&shi="&shi&"&leixing="&leixing&">尾页</a>&nbsp;"     
end if
%>  
                    </td>
                </tr>
              </table>


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

		</td>
		</tr>
		
</table>
</div>

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

</body></html>