
<!--#include file="top.asp"-->
<!--#include file="ljconn.asp"-->
<%
imt_bt="link"
%>

<%select case request.QueryString("id")
case ""
bj="友情链接"
case 1
bj="国内食品安全相关网站"
case 2
bj="国际食品安全相关网站"
case 3
bj="食品安全相关政府机构网站"
case else
response.End()
end select

if request.QueryString("id")="" then
img_str="select anclassid,title,img,url from zsxx where img<>'' order by id desc"
text_str="select anclassid,title,img,url from zsxx where img='' order by id desc"
else
img_str="select anclassid,title,img,url from zsxx where img<>'' and lbid="&request.QueryString("id")&" order by id desc"
text_str="select anclassid,title,img,url from zsxx where img='' and lbid="&request.QueryString("id")&" order by id desc"
end if
%>

<div class="Content">
  <table width="900" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td width="225"><!--#include file="left.asp"--></td>
      <td align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="28" align="left" valign="bottom" style="font-size:12px;">&nbsp;&nbsp;<img src="images/nyrightlm.jpg" width="10" height="10" align="absmiddle" />&nbsp;当前位置：<a href="index.asp" style="color:#666666;">首页</a>

            &gt;&gt; 友情链接

            <%if request.QueryString("id")<>3 and request.QueryString("id")<>"" then%>&gt;&gt; <%=bj%><%end if%></td>
        </tr>
        <tr>
          <td align="center" valign="10"><table width="99%">
              <tr>
                <td height="3"></td>
              </tr>
              <tr>
                <td height="1" background="images/ny_line.jpg"></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td align="center" valign="top"><table width="97%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td height="10"></td>
            </tr>
            <tr>
              <td align="left" valign="top" style="font-size:12px; line-height:20px;"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td align="center"><%
set rs=server.CreateObject("adodb.recordset")
rs.Open img_str,conn,1,1
%>
                        <table align="center" cellpadding="0" cellspacing="0">
                          <%
if rs.recordcount=0 then
else
%>
                          <tr>
                            <%
dim o,url,img
o=1
do while not rs.eof
if rs("img")<>"" then
%>
                            <td valign="top"><table 
                        border="0" align="center" cellpadding="0" cellspacing="0">
                                <tbody>
                                  <tr>
                                    <td height="42"><a href="<%=rs("url")%>" target="_blank"><img src="<%=rs("img")%>" width="179" height="36" border="0" /></a></td>
                                    <td width="24" rowspan="2"></td>
                                  </tr>
                                  <tr>
                                    <td height="2"></td>
                                  </tr>
                                </tbody>
                            </table></td>
                            <%end if%>
                            <%if o mod 3 = 0 then%>
                          </tr>
                          <%end if
	    rs.movenext
         o=o+1
    	 loop
		end if
	%>
                          <%
rs.close
set rs=nothing
%>
                      </table></td>
                  </tr>
                  <tr>
                    <td align="right"><table width="100" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr>
                          <td align="left"><%
set rs=server.CreateObject("adodb.recordset")
rs.Open text_str,conn,1,1
%>
                              <%
		if rs.recordcount=0 then
		else
		%>
                              <%while not rs.eof%>
                              <a href="<%=rs("url")%>" target="_blank" class="link" style="line-height:20px;"><%=trim(rs("title"))%></a>
                              <%
		rs.movenext
		wend
		end if
		rs.close
		set rs=nothing
		%></td>
                          <td width="15" align="left">&nbsp;</td>
                        </tr>
                    </table></td>
                  </tr>
              </table></td>
            </tr>
            <tr>
              <td align="center">&nbsp;</td>
            </tr  
      >
          </table></td>
        </tr>
      </table></td>
    </tr>
  </table>

<div class="clear"></div>
</div>
<!--#include file="foot.asp"-->
<%
conn.close
set conn=nothing
%>
