⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 search.asp

📁 信息管理系统 管理页面:admin/index.asp 用户和密码都是admin
💻 ASP
字号:
<!--#include file="conn.asp" -->

<!--#include file=top.asp-->
<% 
dim rs
set rs=server.createobject("ADODB.recordset")
dim key
key=request("key")
 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE><%=title%>-信息搜索/分类-<%=web%> </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="image/style.css" type=text/css rel=stylesheet>
<META content="Microsoft FrontPage 5.0" name=GENERATOR>
<link rel="stylesheet" type="text/css" href="1.CSS">
</HEAD>
<BODY leftMargin=0 topMargin=0>
<table width="750" height="1" border="0" align="center" cellpadding="0" cellspacing="0">

  <tr>
    <td height="125" valign="top" width="805">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr align="center" bgcolor="#0092F2"> 
          <td width="779" height="30" bgcolor="#FFFFFF" colspan="7">
            <p align="left"></td>
        </tr>
        <tr align="center" bgcolor="#FAFAFA"> 
          <td width="35" height="11"> </td>
          <td width="396" height="27" bgcolor="#FAFAFA"><b>标     题</b></td>    
          <td width="62" height="11" bgcolor="#FAFAFA"><b>方 式</b></td>
          <td width="69" height="11" bgcolor="#FAFAFA"><b>价格</b></td>
          <td width="74" height="11" bgcolor="#FAFAFA"><b>交易地区</b></td>
          <td width="63" height="11" bgcolor="#FAFAFA"><b>查</b><b>/回</b></td>
          <td width="99" height="11" bgcolor="#FAFAFA"><b>发布日期</b></td>
          <td width="50" height="11" bgcolor="#FAFAFA"><b>收 藏</b></td>
        </tr>
        <tr align="center" bgcolor="#FAFAFA">
          <td height="1" bgcolor="#CCCCCC"></td>
          <td width="396" height="1" bgcolor="#CCCCCC"></td>
          <td width="62" height="1" bgcolor="#CCCCCC"></td>
          <td width="69" height="1" bgcolor="#CCCCCC"></td>
          <td width="74" height="1" bgcolor="#CCCCCC"></td>
          <td width="63" height="1" bgcolor="#CCCCCC"></td>
          <td width="99" height="1" bgcolor="#CCCCCC"></td>
          <td width="50" height="1" bgcolor="#CCCCCC"></td>
        </tr>
		<% 
		dim re,page,i
		set re=server.createobject("ADODB.recordset")
		dim sql
		sql="select * from [xinxi] where biaoti like '%"& key &"%' "
		
		sql=sql&" and yz=1 order by id desc"
		rs.open sql,conn,1,1
		rs.pagesize=20
		page=cint(request.querystring("page"))
		if page<1 then
		 page=1
		elseif page>rs.recordcount then
		 page=recordcount
		end if
		if not rs.eof then rs.absolutepage=page
		if rs.eof then response.write "<tr><td colspan=7 bgcolor=#ffffff>&middot;<font color=#ff0000>该类别中暂无任何信息或您选择的关键字和类别错误!</font></td></tr>"
		for i=1 to rs.pagesize 
		
		if rs.eof then exit for
		 %>
        <tr bgcolor="f5f5f5"> 
          <td width="35" height="23" align="center" background="image/22.gif" bgcolor="#FFFFFF"><img src="images/folder.gif" width="18" height="12"> 
          </td>
          <td width="396" height="27" background="image/22.gif" bgcolor="#FFFFFF"><%dim rs1,sql1,id_1
set rs1=server.createobject("adodb.recordset")
sql1 = "select id,class1 from class1 where id="&cstr(rs("class1"))
rs1.open sql1,conn,1,1
id_1=rs1("id")
On Error Resume Next
rs1.close
sql1 = "select id,class2 from class2 where id="&cstr(rs("class2"))
rs1.open sql1,conn,1,1
On Error Resume Next
%>
[<a href="vip.asp?class1=<%=id_1%>&class2=<%=rs1("id")%>&ijob=2"><font color="#FF0000"><%=rs1("class2")%></font></a>]→<a title=<%=rs("memo")%> target=_blank href=xinximemo.asp?ijob=<%= rs("id") %>><%= rs("biaoti") %></a></td>
          <td width="62" height="23" align="center" background="image/22.gif" bgcolor="#FFFFFF"><font color="#FF0000">
          <%
		  Select Case rs("leixing")
                Case "1"
                response.write "<font color=""#008000"">[出售]</font>"
                Case "2"
                response.write "<font color=""#FF00FF"">[求购]</font>"
                Case "3"
                response.write "<font color=""#008000"">[出租]</font>"
                Case "4"
                response.write "<font color=""#FF00FF"">[求租]</font>"
                Case "5"
                response.write "<font color=""#ff0000"">[求职]</font>"
                Case "6"
                response.write "<font color=""#ff0000"">[招聘]</font>"
                Case Else
                response.write "<font color=""#FF00FF"">[其它]</font>"
          End Select
		  %></font></td>
          <td width="69" height="23" align="center" background="image/22.gif" bgcolor="#FAFAFA"><% 
		  if rs("jiage")=0 then
		   response.write "面 议"
		  else
		   response.write rs("jiage")
		  end if
		   %></td>
          <td width="74" height="23" align="center" background="image/22.gif" bgcolor="#ffffff"><font color="#353535"><%= rs("diqu") %></font></td>
          <td width="63" height="23" align="center" background="image/22.gif" bgcolor="#FAFAFA"><font color="#353535"><%= rs("llcs") %>/<%= rs("hfcs") %></font></td>
          <td width="99" height="23" align="center" background="image/22.gif" bgcolor="#ffffff"><font color="#353535"><%= year(rs("fbsj"))&"年"&month(rs("fbsj"))&"月"&day(rs("fbsj"))&"日" %></font></td>
          <td width="50" height="23" align="center" background="image/22.gif" bgcolor="#FAFAFA"><a href="#">
          <img src="images/bookmark.gif" ONCLICK="window.open('xinxi_sc.asp?id=<%=rs("id")%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=170,height=80,left=300,top=100')" style="color: #666666; background-color: #E1E2DC" border="0"></a></td>
        </tr>
		<% 
		rs.movenext
		next
        %>
      </table>
      <table width="755" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10" width="768"></td>
        </tr>
        <tr>
          <td width="768">
          <table width="750" height="25" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
              <tr>
                <td bgcolor="#f5f5f5" width="766">
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="236">&nbsp;共有<font color=#ff0000><%= rs.recordcount %></font>条记录 分<font color=#ff0000><%= rs.pagecount %></font>页显示/当前第<font color=#ff0000><%= page %></font>页</td>    
                      <td align="right" width="528">分页:    
					  <% if page>1 then %>
          <a href="search1.asp?page=1&class1=<%= class1 %>&key=<%= key %>"></a>     
          <% else %>    
          <font color="#999999">首页</font>     
          <% end if    
	  if page>1 then
	   %>
          <a href="search1.asp?page=<%=page-1%>&class1=<%=class1%>&class2=<%=class2%>&leixing=<%=leixing%>&key=<%= key %>">上一页</a>     
          <% else %>    
          <font color="#999999">上一页</font>     
          <% end if    
	   if page<rs.pagecount then
	   %>
          <a href="search1.asp?page=<%= page+1 %>&class1=<%= class1 %>&class2=<%=class2%>&leixing=<%=leixing%>&key=<%= key %>">下一页</a>     
          <% else %>    
          <font color="#999999">下一页</font>     
          <% end if    
	  if page<rs.pagecount then
	   %>
          <a href="search1.asp?page=<%= rs.pagecount %>&class1=<%= class1 %>&class2=<%=class2%>&leixing=<%=leixing%>&key=<%= key %>">尾页</a>     
          <% else %>    
          <font color="#999999">尾页</font>     
          <% end if %>    
                        &nbsp; </td>    
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table>
	  <% rs.close %>
    </td>
  </tr>
</table>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="778" height="23">
    <tr>
      <td width="100%" height="6"></td>
    </tr>
    <tr>
      <td width="100%" height="1"><!--#include file=copywright.asp--></td>
    </tr>
    </table>
  </center>
</div>

<div align="center">
<!--#include file=time.asp-->
</div>
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -