search.asp

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

<%                                                
next                                                  
end if                                                                            
rs.close                                                   
set rs=nothing                                                 
conn.close                                                    
set conn=nothing                                 
%> 

</tr> 

</table>


<%                                                                      
Function PageSet(currentpage,totalpage,pagename)                                                                                                  
if currentpage mod 10 = 0 then                                                                                                  
Sp = currentpage \ 10                                                                                                  
else                                                                                                  
Sp = currentpage \ 10 + 1                                                                                                  
end if                                                                                                  
Pagestart = (Sp-1)*10+1                                                                                                  
Pageend = Sp*10                                                                                                  
strSplit = "<a href="&pagename&"?keyword="&name&"&item="&theitem&"&pageid=1><font face=webdings title=第一页>9</font></a>&nbsp;"                                                                                                  
if Sp > 1 then strSplit = strSplit & "<a href="&pagename&"?keyword="&name&"&item="&theitem&"&pageid="&Pagestart-10&"><font face=webdings title=前十页>7</font></a>&nbsp;"                                                                                                  
for j=PageStart to Pageend                                                                                                  
if j > totalpage then exit for                                                                                                  
if j <> currentpage then                                                                                                  
strSplit = strSplit & "<a href="&pagename&"?keyword="&name&"&item="&theitem&"&pageid="&j&">["&j&"]</a>&nbsp;"			                                                                                                  
else                                                                                                  
strSplit = strSplit & "<font color=red>["&j&"]</font>&nbsp;"                                                                                                  
end if                                                                                                  
next                                                                                                  
if Sp*10  < totalpage then strSplit = strSplit & "<a href="&pagename&"?keyword="&name&"&item="&theitem&"&pageid="&Pagestart+10&"><font face=webdings title=后十页>8</font></a>"                                                                                                   
strSplit = strSplit & "<a href="&pagename&"?keyword="&name&"&item="&theitem&"&pageid="&totalpage&" ><font face=webdings title=""最后一页"">:</font></a>"                                                                                                  
PageSet = strSplit                                                                                              
End Function                                                                       
%>  





<TABLE WIDTH=760 BORDER=0 CELLPADDING=0 CELLSPACING=0 align="center">
	<TR>
	 <td width="100%" height="30" style="BORDER-RIGHT: #91b9dd 1px dotted; BORDER-TOP: #91b9dd 1px dotted; BORDER-LEFT: #91b9dd 1px dotted; BORDER-BOTTOM: #91b9dd 1px dotted" bgColor="#e6faff" colspan="4">
 <p align="center"><a href="ad.asp"><font style="font-size:14px" color="#0000BF">全部广告</font></a>&nbsp;&nbsp;页次：<b><%=currentpage%>/<% =totalpage%></b>&nbsp;&nbsp;每页<b><%=maxperpage%></b>条&nbsp;&nbsp;共刊登<b><%=n%></b>条广告&nbsp;&nbsp;&nbsp;&nbsp;<% response.write page %>

	 </td>
	 </tr>
<tr><td>

<table border="0" width="760" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align=center>
    <tr>
    <td width="50" height="27" align="center"><a href="ad.asp"><font style="font-size:14px" color="#0000BF">全部</font></a></td>
<%
sql="select * from type"               
set rs=server.createobject("adodb.recordset")               
rs.open sql,connstr,1,1 
if rs.eof then                          
response.write "<p align='center'><font color='#FF0000'>暂无文字广告！</font></p>"
rs.close
set rs=nothing                            
else
i=0                                                                                            
do while not rs.eof                                                       
%>

<td width="51" height="27" align="center"><a href="type.asp?name=<%=rs("name")%>"><font style="font-size:14px" color="#0000BF"><%=rs("name")%></font></a> 
 </td>
<%   
i=i+1  
if i mod 14=0 then  
response.write "</tr><tr>"    
end if      
rs.movenext 
loop
rs.close
set rs=nothing
end if
%>
      <td width="101" height="27" align="center" colspan="2"><a href="fabu.asp" target="_blank"><font style="font-size:14px" color="#FF0000">※我要发布※</font></a></td>
    </tr>
  </table>

</td></tr>

    <tr>
      <td>
        <form action="search.asp" method="post" name="search">                                            
    <p align="center"><input  maxLength="20" name="keyword" onfocus="this.value=''" size="25"  value="<% if name<>"" then %><%=name%><% else %>请输入搜索关键字<% end if %>"> 
    <select size="1" name="item">  
    <% if theitem ="" then %>  
      <option selected value="全部">全部</option>  
    <% else %>  
      <option selected value="<%=theitem%>"><%=theitem%></option>  
      <option value="全部">全部</option>  
    <% end if %>  
      <option value="求租">求租</option>  
      <option value="招租">招租</option>  
      <option value="求购">求购</option>  
      <option value="出售">出售</option>  
      <option value="转让">转让</option>  
      <option value="求职">求职</option>  
      <option value="招聘">招聘</option>  
      <option value="招生">招生</option>  
      <option value="培训">培训</option>  
      <option value="家教">家教</option>  
      <option value="家政">家政</option>  
      <option value="运输">运输</option>  
      <option value="搬迁">搬迁</option>  
      <option value="维修">维修</option>  
      <option value="装修">装修</option>  
      <option value="礼仪">礼仪</option>  
      <option value="翻译">翻译</option>  
      <option value="医疗">医疗</option>  
      <option value="征婚">征婚</option>  
      <option value="旅游">旅游</option>  
      <option value="娱乐">娱乐</option> 
      <option value="招商">招商</option> 
      <option value="代理">代理</option> 
      <option value="合作">合作</option> 
      <option value="声明">声明</option>  
      <option value="启事">启事</option>  
      <option value="其它">其它</option>  
    </select>    
    <input  type="submit" value="搜索" style="font-size: 12px" name="search">  
  </form></td> 
</tr> </table>


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

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