📄 list.asp
字号:
</TBODY></TABLE>
<%
end if
rscd.close
set rscd=nothing
%></td>
</tr><%end if%>
<tr bgcolor="#E6F7FF">
<td width="51%" height="31" background="images/2x41.gif"><font color="#3986CE">信息主题</font></td>
<td width="15%" align="center" height="31" background="images/2x41.gif"><font color="#3986CE">
地区</font></td>
<td width="8%" align="center" height="31" background="images/2x41.gif"><font color="#3986CE">价格</font></td>
<td width="8%" align="center" height="31" background="images/2x41.gif"><font color="#3986CE">时效</font></td>
<td width="10%" align="center" height="31" background="images/2x41.gif"><font color="#3986CE">
浏览<span lang="en-us">/</span>回复</font></td>
</tr>
<%
Dim rdsInfo
Dim sqlInfo
Dim strInfoClass '/供求信息类型/
Dim rdsTotalRec
Dim intPage '/当前页/
Dim intTotalRec '/所有记录/
Dim intInfoCount
Dim n,p,ii '/定义一些临时变量/
Dim strTopic
intPage = Replace(Trim(Request("Page")),"'","")
intPage = Replace(Trim(Request("Page"))," ","")
if intPage = "" then
intPage = 1
else
intPage = Clng(intPage)
end if
set rdsInfo = Server.CreateObject("ADODB.Recordset")
strsql=""
if bid<>0 then
strsql=strsql&" and dl='"&bid&"' "
end if
if sj<>"" then
strsql=strsql&" and cint(DateDiff('d',CreateTime,now()))<"&sj&" "
end if
if sid<>0 then
strsql=strsql&" and xl='"&sid&"' "
end if
if BigClassName<>"" then
strsql=strsql&" and dl='"&BigClassName&"' "
end if
if SmallClassName<>"" then
strsql=strsql&" and xl='"&SmallClassName&"' "
end if
if InfoAdd<>"" then
strsql=strsql&" and InfoAdd='"&InfoAdd&"' "
end if
if dq<>"" then
strsql=strsql&" and InfoAdd='"&dq&"' "
end if
if sdq<>"" then
strsql=strsql&" and smalldq='"&sdq&"' "
end if
if strKeyword<>"" then
strsql=strsql&" and Topic like '%"&strKeyword&"%' "
end if
if InfoClass<>"" then
strsql=strsql&" and InfoClass='"&InfoClass&"' "
end if
if lx<>0 then
strsql=strsql&" and InfoClass='"&lx&"' "
end if
if px="tj" then
set rdsTotalRec = Conn.Execute("Select Count(InfoKey) From Dat_Information Where State = 1 and tj='1' "&strsql&"")
intTotalRec = rdsTotalRec(0)
sqlInfo = "Select * From Dat_Information Where State = 1 and tj='1' "&strsql&" order by infotop desc,InfoKey desc"
else
set rdsTotalRec = Conn.Execute("Select Count(InfoKey) From Dat_Information Where State = 1 "&strsql&"")
intTotalRec = rdsTotalRec(0)
sqlInfo = "Select * From Dat_Information Where State = 1 "&strsql&" order by infotop desc,tj desc,"&px&" desc"
end if
rdsInfo.Open sqlInfo,Conn,1,1
if not rdsInfo.EOF then
if intTotalRec mod intInfoCot = 0 then
n = intTotalRec \ intInfoCot
else
n = intTotalRec \ intInfoCot + 1
end if
rdsInfo.MoveFirst
if intPage > n then intPage = n
if intPage < 1 then intPage = 1
rdsInfo.Move (intPage - 1) * intInfoCot
do while not rdsInfo.EOF and intInfoCount < Clng(intInfoCot)
intInfoCount = intInfoCount + 1
xxlx=rdsInfo("InfoClass")
bt=rdsinfo("Topic")
if len(bt) > 15 then
strTopic = left(bt,16) &"..."
else
strTopic =bt
end if
strjg = rdsInfo("jg")
yxq=rdsInfo("InfoDate")
fbsj=FormatTime(rdsInfo("CreateTime"),8)
dqsj=DateAdd( "d" ,yxq ,fbsj)
sysj=DateDiff ("d",date(),dqsj)
if sysj<0 then
sysj="<font color=#808080>过期</font>"
else
sysj="<font color=#ff0000>"&sysj&"</font> 天"
end if
sdq=rdsInfo("InfoAdd")
strcolor=rdsInfo("color")
%>
<tr onMouseOver="this.style.backgroundColor='#c5edfc';" onMouseOut="this.style.backgroundColor='#E6F7FF'" bgcolor="#E6F7FF">
<td width="51%" height="22" class="F16"><%if rdsInfo("infotop")=1 then%><img border="0" src="images/Ontop.gif" alt="置顶信息"><%else%><%if rdsInfo("tj")=1 then%> <img border="0" src="images/arrow.gif" alt="推荐信息"><%else%> <img border="0" src="images/tu33.gif" alt="一般信息"><%end if%><%end if%> <font color="#478B47"><span style="font-size: 9pt"><%call gqlx(2,xxlx)%></span></font><span style="font-size: 9pt"> </span>
<a href="View_Info.asp?Id=<% = rdsInfo("InfoKey")%>" target="_blank" class="a01"><span style="font-size: 9pt"><%if strcolor<>"" then%><font color="#<%=strcolor%>"><% = strTopic%></font><%else%><% = strTopic%><%end if%></span></a>
<%if rdsInfo("pic")<>"" and rdsInfo("pic")<>"http://" then%><font color="#109610"><span style="font-size: 9pt">[图]</span></font><%end if%></td>
<td width="15%" align="center"><a href="<% = strSysUrl%>list.asp?dq=<%=sdq%>" target="_blank"><%=sdq%></a></td>
<td width="8%" align="center"><%if strjg<>"" and strjg<>"0" then%><font color="#FF0000"><%=strjg%></font> 元<%else%>面议<%end if%></td>
<td width="8%" align="center"><% =sysj%></td>
<td width="10%" align="center"><% = rdsInfo("Hits")%>/<a href="review.asp?ID=<% = rdsInfo("InfoKey")%>" target=_blank><span style="text-decoration: none"><% = rdsInfo("hf")%></span></a></td>
</tr>
<tr>
<td width="100%" colspan="5" height="1" background="images/dotline.gif"></td>
</tr>
<%
rdsInfo.MoveNext
loop
else
%>
<tr>
<td width="100%" colspan="5" height="25"> <font color="#FF0000">对不起!没有相匹配的信息</font>...</td>
</tr>
<%
end if
rdsInfo.Close
set rdsInfo = nothing
if intPage - 1 mod 10 = 0 then
p = (intPage - 1) \ 10
else
p = (intPage - 1) \ 10
end if
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
<div align="center">
<center>
<table cellSpacing="0" cellPadding="0" width="100%" bordercolordark="#FFFFFF" borderColorLight="#3986CE" border="0"><tbody>
<tr>
<td vAlign="top" width="100%">
<table border="0" cellspacing="0" width="100%" cellpadding="0">
<tr>
<td width="100%" height="30" align="center" valign="top">
<table border="0" width="98%" cellspacing="0" cellpadding="0" align="center">
<form method="post" action="?" name="Form2">
<input type="hidden" name="KeyWord" value="<% = strKeyWord%>">
<input type="hidden" name="bid" value="<% =bid%>">
<input type="hidden" name="sid" value="<% =sid%>">
<input type="hidden" name="lx" value="<% =lx%>">
<input type="hidden" name="px" value="<% =px%>">
<input type="hidden" name="dq" value="<% =dq%>">
<input type="hidden" name="InfoClass" value="<% =InfoClass%>">
<input type="hidden" name="InfoAdd" value="<% =InfoAdd%>">
<input type="hidden" name="BigClassName" value="<% =BigClassName%>">
<input type="hidden" name="SmallClassName" value="<% =SmallClassName%>">
<tr>
<td width="38%" height="30" valign="middle">页次：<b><%= intPage %></b>/<b><%= n %></b>页 每页<b><%= intInfoCot %></b>条 共<b><%= intTotalRec %></b>条</td>
<td width="62%" height="30" valign="middle"><div align="right">分页：
<%
if intPage = 1 then
Response.Write "<font face=webdings>9</font> "
else
Response.Write "<a href='?Page=1&KeyWord="& strKeyWord &"&dq="& dq &"&bid="&bid&"&sid="&sid&"&lx="&lx&"&px="&px&"&InfoClass="&InfoClass&"&InfoAdd="&InfoAdd&"&BigClassName="&BigClassName&"&SmallClassName="&SmallClassName&"' title=首页><font face=webdings>9</font></a> "
end if
if p * 10 > 0 then Response.Write "<a href='?Page="&Cstr(p*10)&"&KeyWord="& strKeyWord &"&dq="& dq &"&bid="&bid&"&sid="&sid&"&lx="&lx&"&px="&px&"&InfoClass="&InfoClass&"&InfoAdd="&InfoAdd&"&BigClassName="&BigClassName&"&SmallClassName="&SmallClassName&"' title=上十页><font face=webdings>7</font></a> "
Response.Write "<b>"
for ii = p * 10 + 1 to P * 10 + 10
if ii = intPage then
Response.Write "<font color=""#FF0000"">"+Cstr(ii)+"</font> "
else
Response.Write "<a href='?Page="&Cstr(ii)&"&KeyWord="& strKeyWord &"&dq="& dq &"&bid="&bid&"&sid="&sid&"&lx="&lx&"&px="&px&"&InfoClass="&InfoClass&"&InfoAdd="&InfoAdd&"&BigClassName="&BigClassName&"&SmallClassName="&SmallClassName&"'>"+Cstr(ii)+"</a> "
end if
if ii = n then exit for
next
Response.Write "</b>"
if ii < n then Response.Write "<a href='?Page="&Cstr(ii)&"&KeyWord="& strKeyWord &"&dq="& dq &"&bid="&bid&"&sid="&sid&"&lx="&lx&"&px="&px&"&InfoClass="&InfoClass&"&InfoAdd="&InfoAdd&"&BigClassName="&BigClassName&"&SmallClassName="&SmallClassName&"' title=下十页><font face=webdings>8</font></a> "
if intPage=n then
Response.Write "<font face=webdings>:</font> "
else
Response.Write "<a href='?Page="&Cstr(n)&"&KeyWord="& strKeyWord &"&dq="& dq &"&bid="&bid&"&sid="&sid&"&lx="&lx&"&px="&px&"&InfoClass="&InfoClass&"&InfoAdd="&InfoAdd&"&BigClassName="&BigClassName&"&SmallClassName="&SmallClassName&"' title=尾页><font face=webdings>:</font></a> "
end if
%>
转到：<input type="text" name="Page" size="2" maxlength="10" value="<%= intPage %>" class="face"> <input type="submit" value="Go" name="submit" class="button">
</div></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</tbody></table></center></div>
</td>
</tr>
</table>
<table height="6" cellSpacing="0" cellPadding="0" width="132" border="0">
<tr>
<td></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table></div>
<!--开始-->
<div align="center">
<table border="0" style="border-collapse: collapse" width="760">
<tr>
<td background="hy/img/2005_soft_mainbg.gif" height="7"></td>
</tr> </table>
</div>
<!--结束-->
<!--#include file="end.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -