📄 index.asp
字号:
</td>
<td height="32" bgcolor="#F6F6F6" width="113">
<select name="select">
<option selected>全部范围</option>
</select></td>
</tr>
<tr>
<td colSpan="2" height="29" bgcolor="#F6F6F6" width="190">
<table cellSpacing="0" cellPadding="0" width="101%" border="0" height="14" style="border-bottom-width: 0">
<tr>
<td width="100%" height="14" style="border-bottom-style: none; border-bottom-width: medium">
<div align="center">
<input type="image" src="img/dl003.gif" align="absMiddle" border="0" name="imageField"></div>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td height="130" width="412" valign="top" style="border-bottom-style: solid; border-bottom-width: 1" bgcolor="#F6F6F6">
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="79">
<tr>
<td width="100%" height="22" background="img/tan02.gif"> </td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
dim a
a=1
sql = "select id,biaoti from gonggao order by id desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr>
<td width="100%" height="19" bgcolor="#F6F6F6"><li> <A href="javascript:win=open('gonggao.asp?id=<%=rs("id")%>','offer','width=560,height=450,status=no,menubar=yes,scrollbars=yes,top=0,left=0'); win.focus()"><%=rs("biaoti")%></a></td>
</tr>
<%
a=a+1
if a>=6 then exit do
rs.movenext
loop
%>
<tr>
<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 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 ijob
Case "1"
sql = "select id,biaoti,leixing,name,a,b,c,fbsj,llcs,hfcs from xinxi where yz=1 and class1="&class1&" 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 class1="&class1&" and class2="&class2&" 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 order by b desc,id desc"
' ,fbsj 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">
共有 <font color="#CC5200"><%=Allrecord%></font> 条记录</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> "
response.write "<font color=""#808080"">上一页</font> "
else
response.write "<a href=?page=1&class1="&class1&"&class2="&class2&"&ijob="&ijob&">首页</a> "
response.write "<a href=?page="&ThisPage-1&"&class1="&class1&"&class2="&class2&"&ijob="&ijob&">上一页</a> "
end if
if Allpage-ThisPage<1 then
response.write "<font color=""#808080"">下一页</font> "
response.write "<font color=""#808080"">尾页</font> "
else
response.write "<a href=?page="&(ThisPage+1)&"&class1="&class1&"&class2="&class2&"&ijob="&ijob&">下一页</a> "
response.write "<a href=?page="&Allpage&"&class1="&class1&"&class2="&class2&"&ijob="&ijob&">尾页</a> "
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>
<script src="images/ggbian.js"></script>
</body>
</html>
<div align="center">
<!--#include file=time.asp-->
</div>
<%
Conn.Execute("Update xinxi Set b=0 where (DateDiff('D',fbsj,now())>b and yz=1)")
closedb
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -