qiye.asp

青岛分类信息网整合企业名录.供大家分享

<!--#include file="head.asp"-->

<!-- 这里是主题 -->
<SCRIPT LANGUAGE="JavaScript">
<!--//
function check()
{   
    if (document.search.keyword.value.length<1)
	{
        alert("请填写搜索关键字！");
        document.search.keyword.focus();
        return false;
    }
}
//-->
</SCRIPT>

<div align="center">
<center>     
    <form action="qylogin.asp" method="post" name="aspshop" onsubmit="return logincheck()">      
                <table border="0" width="757" cellspacing="0" cellpadding="0" height="40">      
                  <tr> 
                  <td valign="middle" width="698">       
                      <p align="right">       
                      &nbsp;<font style="font-size:14px">企业帐号</font><font style="font-size: 14px">:            
                      </font><input type="text" name="name" size="18">&nbsp; <font style="font-size:14px">管理密码</font><font style="font-size: 14px">:                
                      </font><input type="password" name="pass" size="18">                
                      </p>  
                    </td>       
                  <center>        
                  <center>        
                    <td valign="middle" width="53">              
                      <p align="center"><input  type="image" src="images/login.gif" value="登录" name="I1"></td>              
                   </tr>                         
                    </table>                  
                    </form>               
                  </center>              
                </div>     
<div align="center">           
  <table border="0" width="760" cellspacing="0" cellpadding="0">       
  <tr>           
    <td width="560">         
  <table border="0" width="100%" cellspacing="0" cellpadding="0">                                                         
<%                             
sql="select * from qydata where mark='1' order by id desc"                             
set rs=server.createobject("adodb.recordset")                             
rs.open sql,connstr,1,1                            
if rs.eof then                            
response.write "<tr><td><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      
w=1                        
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 width="100%" height="25" bgcolor="#FFFFFF"><a href="jieshao.asp?id=<%=rs("id")%>" target="_blank"><font color="#0000FF" style="font-size:14px"><%=rs("name")%></font></a>&nbsp;<font color="#888888">[<%=rs("date")%>]</font><% if rs("tuijian")="yes" then %>&nbsp;&nbsp;<img src="images/star.gif">       
        <b><font color="#FF0000">推荐企业</font></b><% end if %></td>                                       
    </tr>                                       
    <tr>                                       
      <td width="100%" bgcolor="#FFFFFF">                                       
        <div align="center">           
          <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>                                       
          </center>           
        </div>           
      </td>                                       
    </tr>                                       
    <tr>                                       
   <td width="100%" bgcolor="#FFFFFF"><font color="#006699">（<%=rs("city")%>&nbsp;-&nbsp;<%=rs("lei")%>）</font></td> 
    </tr>        
    <tr>                               
      <td width="100%" height="10">                               
      </td>                               
    </tr>
    <%  
    w=w+1   
    i=i+1   
    rs.movenext
	loop 
    end if            
    rs.close           
    set rs=nothing                                                                                               
    %>                                                                     
    <tr>                                                               
      <td width="100%" height="25" valign="middle" bgcolor="#ECF5FF"><p align="center"><font style="font-size:12px">页数：<%=currentpage%>/<% =n%>                                                                                                              
   	<%k=currentpage                                                                                                                                                          
   	if k<>1 then%>                                                                                                                               
   	<a href="qiye.asp?pageid=1">首页</a>                                                                                                                                                          
   	<a href="qiye.asp?pageid=<%=k-1%>">上一</a>                                                                                                                                                          
   	<%else%>                                                                                                                                      
   	首页&nbsp;上一页                                                                                                                                                          
   	<%end if%>                                                                                                                               
   	<%if k<>n then%>                                                                                                                                                          
   	<a href="qiye.asp?pageid=<%=k+1%>">下一</a>                                                                                                                                                          
   	<a href="qiye.asp?pageid=<%=n%>">尾页</a>                                                                                                                                                          
   	<%else%>                                                                                                                                      
   	下一页&nbsp;尾页                                                                                                                                                          
   	<%end if%>                                                                                                                               
     共有 <%=totalput%> 家企业</font></p>                                                                                                                                                         
      </td>                                                                                 
    </tr>                                                                                                         
  </table>    
  </td>    
  <td width="200" valign="top">   
  <!--#include file="ad1.asp"-->   
  </td>   
  </tr></table>                                                                                                                                                   
</div>               
<form action="qysearch.asp" method="post" name="search2">                                                    
<div align="center">               
<table border="0" width="755" cellspacing="0" cellpadding="0">               
  <tr>               
    <td height="40">               
      <p align="right"><font style="font-size:14px">企业搜索:</font></p>              
    </td>                                                
    <td width="449" height="40">              
    <p align="center">             
    <input  maxLength="30" name="keyword" size="20">&nbsp; <select name="lei" size="1"><option selected value="不限行业类别">不限行业类别</option>                                                                                                                            
            <%                                                                                                                            
			set rs_lei = server.createobject("adodb.recordset")                                                                                                                            
			sql = "select * from lei"                                                                                                                            
			rs_lei.open sql,conn,1,1                                                                                                                            
			do while not rs_lei.eof                                                                                                                            
			%>                                                                                                                            
          <option value="<%=rs_lei("lei")%>"><%=rs_lei("lei")%></option>                                                                                                                            
		  <%                                                  
		  rs_lei.movenext                                                                                                                            
		  loop                           
		  rs_lei.close                                                                                                                            
		  set rs_lei = nothing                                                                                                                                                                                                                           
		  %>                                                                                                                            
         </select>&nbsp;               
         <select name="city" size="1"><option selected value="不限区域">不限区域</option>                                                                                                                     
            <%                                                                                                                     
			set rs_city = server.createobject("adodb.recordset")                                                                                                                     
			sql = "select * from city"                                                                                                                     
			rs_city.open sql,conn,1,1                                                                                                                     
			do while not rs_city.eof                                                                                                                     
			%>                                                                                                                     
          <option value="<%=rs_city("city")%>"><%=rs_city("city")%></option>                                                                                                                     
		  <%                                            
		  rs_city.movenext                                                                                                                     
		  loop                                                                                                                     
		  rs_city.close                                                                                                                     
		  set rs_city = nothing      
		  conn.close                                                                                                                    
		  %>                                                                                                                     
         </select>             
    </p>             
    </td>             
    <td height="40"><input  type="image" src="images/serach.gif" value="查找" name="I1"></td>             
  </tr>             
</table>                                   
</div>             
</form>                   
       
                                    












<!-- 这里是主题结束 -->


<!--#include file="foot.asp"-->