📄 index.asp
字号:
<td width="100%" height="10" bordercolor="#0099FF" background="img/tan02.gif" bgcolor="#EEFAFF"> <img src="img/gonggao.gif" width="150" height="25"> <script language="JavaScript">
<!--
var enabled = 0; today = new Date();
var day; var date;
if(today.getDay()==0) day = "星期日"
if(today.getDay()==1) day = "星期一"
if(today.getDay()==2) day = "星期二"
if(today.getDay()==3) day = "星期三"
if(today.getDay()==4) day = "星期四"
if(today.getDay()==5) day = "星期五"
if(today.getDay()==6) day = "星期六"
document.fgColor = "000000";
date =(today.getYear()) + "年" + (today.getMonth() + 1 ) + "月" + today.getDate() + "日" + day +"";
document.write(date);
// -->
</script></td>
</tr>
<%
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="10" bgcolor="#F6F6F6"><img src="img/form2_r3_c3.gif" width="9" height="12"> <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="10" 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()">
<%rs.close%>
<img src="img/_more.gif" border="0"></a></td>
</tr>
</table> </td>
</tr>
<tr>
<td height="9" width="597" valign="top" colspan="2">
</td>
</tr>
<tr>
<td height="32" 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%" height="30"><b><font color="#299ACE" size="3"> 供应:<%=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 align="middle" bgcolor="#FFFFFF" class="greenfont" style="FONT-WEIGHT: bold; BORDER-LEFT-COLOR: #ffffcc; BORDER-BOTTOM-COLOR: #ffffcc; BORDER-TOP-COLOR: #ffffcc; BACKGROUND-COLOR: #ffcc00; BORDER-RIGHT-COLOR: #ffffcc">
<td height="20" align="middle" bgcolor="#0099FF" style="width: 51">方式</td>
<td align="middle" style="width: 312" bgcolor="#0099FF">标 题</td>
<td align="middle" style="width: 81" bgcolor="#0099FF">姓名</td>
<td align="middle" style="width: 67" bgcolor="#0099FF">点击/回复</td>
<td align="middle" style="width: 77" bgcolor="#0099FF">日期</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"
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"
Case Else
sql = "select id,biaoti,leixing,name,a,b,c,fbsj,llcs,hfcs from xinxi where yz=1 order by b desc"
' ,fbsj desc
End Select
rs.open sql,conn,1,1
rs.Pagesize=25
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>
<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>
<%
Conn.Execute("Update xinxi Set b=0 where DateDiff('D',fbsj,now())>=1 and rz=1")
closedb
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -