<!--#include file="head.asp"--><body bgcolor="#FFFFFF">        
<div align="center">                     
  <table border="0" width="760" cellspacing="0" cellpadding="0">                 
  <tr>                 
    <td width="550" valign="top">               
  <div align="center">                   
  <table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr><td height="29" bgcolor="d9e1f7"><!--#include file="qysearchtop.htm"--></td>
  </tr>
<%sql="select * from nyeee_qydata where mark='1' and tuijian='yes' order by id desc"                                   
set rs=server.createobject("adodb.recordset")                                   
rs.open sql,connstr,1,1                                  
if rs.eof then %>                                 
<tr><td height="25"><font color="red">暂无推荐企业</font></td>
</tr>
<%                              
else                                
const maxperpage=20                                   
dim currentpage                                   
rs.pagesize=maxperpage                                   
currentpage=request.querystring("pageid")             
if not isnumeric(currentpage) then                       
currentpage=1                       
end if                              
if currentpage="" then                                   
currentpage=1                                   
elseif currentpage<1 then                                   
currentpage=1                                   
else                                   
currentpage=clng(currentpage)                                   
	if currentpage > rs.pagecount then                                   
	currentpage=rs.pagecount                                   
	end if                                   
end if                                                  
dim totalput,n                                   
totalput=rs.recordcount                                   
if totalput mod maxperpage=0 then                                   
n=totalput\maxperpage                                   
else                                   
n=totalput\maxperpage+1                                   
end if                                   
if n=0 then                                   
n=1                                   
end if                                   
rs.move(currentpage-1)*maxperpage                                   
i=0                                   
do while i< maxperpage and not rs.eof      
if rs("jieshao")<>"" then       
shuzu=split(rs("jieshao"),"<br>")      
word=shuzu(0)      
else     
word="&nbsp;&nbsp;&nbsp;&nbsp;企业详细资料暂缺！"     
end if%>
<tr><td height="10"></td>
</tr>                                                            
    <tr>                                   
      <td width="100%" height="25"><a href="qyindex.asp?id=<%=rs("id")%>" target="_blank"><font color="#0000FF" size="3"><u><%=rs("name")%></u></font></a>&nbsp;<font color="#999999">[<%=rs("date")%>]</font>&nbsp;&nbsp;<img src="images/star.gif">             
        <b><font color="#FF0000">推荐企业</font></b></td>                                             
    </tr>                                             
    <tr>                                             
      <td width="100%">                                             
        <div align="center">                                                            
        <table border="0" width="100%" cellspacing="0" cellpadding="0">                                             
          <tr>                                             
            <td width="100%">&nbsp;&nbsp;<%if len(word)>100 then%><%=left(word,100)&"..."%><%else%><%=word%><%end if%></td>                                             
          </tr>                                             
        </table>                                             
                 
        </div>                 
      </td>                                             
    </tr>                                             
    <tr>                                             
      <td width="100%"><font color="#008000">（<%=rs("city")%>&nbsp;-&nbsp;<%=rs("lei")%>）</font></td> 
    </tr>              
    <tr>                                     
      <td height="5">                                     
      </td>                                     
    </tr>     
    <%i=i+1     
    rs.movenext       
    loop                               
    end if                  
    rs.close                 
    set rs=nothing%>                                                                           
                                                                         
    <tr>                                                                     
      <td width="100%" height="25" valign="middle" bgcolor="#D9E1F7"><p align="center"><font style="font-size:12px">页数：<%=currentpage%>/<%=n%>     
   	<%k=currentpage                                              
   	if k<>1 then%>                   
   	<a href="tjqy.asp?pageid=1">首页</a>                                               
   	<a href="tjqy.asp?pageid=<%=k-1%>">上一页</a>                                               
   	<%else%>                        
   	首页&nbsp;上一页                                               
   	<%end if%>                
   	<%if k<>n then%>                                               
   	<a href="tjqy.asp?pageid=<%=k+1%>">下一页</a>                                             
   	<a href="tjqy.asp?pageid=<%=n%>">尾页</a>                                              
   	<%else%>                         
   	下一页&nbsp;尾页                                              
   	<%end if%>                   
     共有 <%=totalput%> 家推荐企业</font></p>                                              
      </td>                                                                                       
    </tr>  
  </table>          
         
    </div>         
  </td>          
  <td width="210" valign="top">         
  <!--#include file="ad1.asp"-->         
  </td>         
  </tr></table>
</div>
<!--#include file="foot.asp"-->