newssearch.asp

重庆二手网

                  <td width="100%" height="19" bgcolor="#F6F6F6">
                  <p align="right">
                  <A href="javascript:win=open('gonggao.asp','offer','width=560,height=450,status=no,menubar=yes,scrollbars=yes,top=0,left=0'); win.focus()"><img src="img/_more.gif" border="0"></a></td>
                </tr>
              </table>
              <%rs.close%>
              </td>

          </tr>
          <tr>
              <td height="9" width="597" valign="top" colspan="2">
              </td>

          </tr>
          <tr>
              <td height="40" width="597" style="border-style:solid; border-width:1; " colspan="2" bordercolor="#3EC5E1">
              <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
                <tr>
<%
dim m
set rs=conn.execute("select count(id) from [xinxi] where leixing=1")
m=rs(0)
rs.close
%>
                  <td width="20%"><b><font color="#299ACE" size="3">&nbsp;供应:<%=m%></font></b></td>
<%
dim n
set rs=conn.execute("select count(id) from [xinxi] where leixing=2")
n=rs(0)
rs.close
%>
                  <td width="20%"><b><font color="#299ACE" size="3">求购:<%=n%></font></b></td>
<%
dim g
set rs=conn.execute("select count(id) from [xinxi]")
g=rs(0)
rs.close
%>
                  <td width="20%"><b><font color="#299ACE" size="3">信息数:<%=g%></font></b></td>
<%
dim v
set rs=conn.execute("select count(id) from [user]")
v=rs(0)
rs.close
%>
                  <td width="21%"><b><font color="#299ACE" size="3">会员数:<%=v%></font></b></td>
                  <td width="19%">
                  <p align="right">
                  <a href="user.asp">
                  <img style="BORDER-RIGHT: #2e99cc 0px solid; BORDER-TOP: #2e99cc 0px solid; BORDER-LEFT: #2e99cc 0px solid; BORDER-BOTTOM: #2e99cc 0px solid" src="img/td2.gif"></a></td>
                </tr>
              </table>
              </td>

          </tr>
          <tr>
            <td align="middle" height="32" width="597" colspan="2" background="img/b1.gif">
            <p align="left">
            <img src="img/td1.gif" border="0"></td>
          </tr>
          <tr>
            <td height="75" valign="top" width="597" colspan="2">
            <table id="DataGrid1" style="width: 594; border-collapse: collapse; border: 1pt outset darkgray" borderColor="darkgray" cellSpacing="0" cellPadding="0" rules="all" border="1">
              <tr style="FONT-WEIGHT: bold; BORDER-LEFT-COLOR: #ffffcc; BORDER-BOTTOM-COLOR: #ffffcc; BORDER-TOP-COLOR: #ffffcc; BACKGROUND-COLOR: #ffcc00; BORDER-RIGHT-COLOR: #ffffcc" align="middle">
                <td style="width: 51" align="middle">方式</td>
                <td style="width: 312" align="middle">标　　　题</td>
                <td style="width: 81" align="middle">姓名</td>
                <td style="width: 67" align="middle">点击/回复</td>
                <td style="width: 77" align="middle">日期</td>
              </tr>
<%
dim ThisPage,Pagesize,Allrecord,Allpage
tj=0
Select Case selectkey
Case "1"
sql = "select id,biaoti,leixing,name,a,b,c,fbsj,llcs,hfcs from xinxi where yz=1 and biaoti='%"&key&"%' order by b desc,id desc"
Case "2"
sql = "select id,biaoti,leixing,name,a,b,c,fbsj,llcs,hfcs from xinxi where yz=1 and memo='%"&key&"%' order by b desc,id desc"
Case "3"
sql = "select id,biaoti,leixing,name,a,b,c,fbsj,llcs,hfcs from xinxi where yz=1 and name='%"&key&"%' order by b desc,id desc"
Case Else
sql = "select id,biaoti,leixing,name,a,b,c,fbsj,llcs,hfcs from xinxi where yz=1 and (biaoti like '%"&key&"' or memo like '%"&key&"' or name like '%"&key&"') order by b desc,id desc"
End Select
rs.open sql,conn,1,1
rs.Pagesize=50
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then                           
ThisPage=1                           
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
if rs.eof then
response.write "还没有添加信息！"
else
dim leixing
do while not rs.eof
b=trim(rs("b"))
bb=len(b)
leixing=rs("leixing")
response.write "<tr>"
response.write "<td style=""BACKGROUND-COLOR: white"" align=""middle"" width=""51"" height=""22"">"
                Select Case leixing
                Case "1"
                response.write "<font color=""#0099cc"">出售</font>"
                Case "2"
                response.write "<font color=""#ff0000"">求购</font>"
                Case "3"
                response.write "<font color=""#0099cc"">出租</font>"
                Case "4"
                response.write "<font color=""#0099cc"">求租</font>"
                Case "5"
                response.write "<font color=""#0099cc"">求职</font>"
                Case Else
                response.write "<font color=""#0099cc"">出售</font>"
                End Select
response.write "</td>"
response.write "<td style=""BACKGROUND-COLOR: #ebebeb"" align=""left"" width=""312"" height=""22"">"
if rs("c")=1 then
response.write "<img src=""images/num/pic.gif"">"
end if
response.write "<a target=""_blank"" href=xinximemo.asp?ijob="&rs("id")&">"
if rs("a")="0" then
response.write ""&rs("biaoti")&""
else
response.write "<font color=#"&rs("a")&">"&rs("biaoti")&"</font>"
end if
response.write "</a>"
if b<>0 then
response.write "<img src=""images/num/jsq.gif"">"
for i=1 to bb
response.write "<img src=""images/num/"&Mid(b,i,1)&".gif"">"
next
end if
response.write "</td>"
response.write "<td style=""BACKGROUND-COLOR: #e3e3e3"" align=""middle"" width=""81"" height=""22"">"&rs("name")&"</td>"
response.write "<td style=""BACKGROUND-COLOR: #d4d4d4"" align=""middle"" width=""67"" height=""22"">"&rs("llcs")&"/"&rs("hfcs")&"</td>"
response.write "<td style=""BACKGROUND-COLOR: #cdcdcd"" align=""middle"" width=""77"" height=""22"">"&datevalue(rs("fbsj"))&"</td></tr>"
tj=tj+1
rs.movenext
if tj>=Pagesize then exit do
loop
end if
rs.close
set rs=nothing
%>
              </table>
            <div align="center">
              <center>
<table border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="595">
<tr> 
<td height="25" width="151">
<p align="center">
共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
<td height="25" width="126">
<p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td height="25" width="118">
<p align="center">现在是第 
                <font color="#CC5200"><%=ThisPage%></font> 页</td>
<td height="25" width="200">
<p align="center">
<%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1&class1="&class1&"&class2="&class2&"&ijob="&ijob&"&key="&key&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&class1="&class1&"&class2="&class2&"&ijob="&ijob&"&key="&key&">上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&"&class1="&class1&"&class2="&class2&"&ijob="&ijob&"&key="&key&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&class1="&class1&"&class2="&class2&"&ijob="&ijob&"&key="&key&">尾页</a>&nbsp;"     
end if
%></td>
</tr>
</table>
              </center>
            </div>
            </td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </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>

</body>

</html>
<div align="center">
<!--#include file=time.asp-->
</div>
<%
Conn.Execute("Update xinxi Set b=0 where DateDiff('D',fbsj,now())>=1 and rz=1")
closedb
%>