📄 list.asp
字号:
if InfoAdd<>"" then
strsql=strsql&" and InfoAdd='"&InfoAdd&"' "
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
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 "&px&" desc"
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
xxlx3=rdsInfo("InfoClass")
Select Case xxlx3
Case "1"
strInfoClass = "<a href=list.asp?lx=1><font color=#009933><span style=""text-decoration: none"">[销售]</span></font></a>"
Case "2"
strInfoClass = "<a href=list.asp?lx=2><font color=#ff0000><span style=""text-decoration: none"">[求购]</span></font></a>"
Case "3"
strInfoClass = "<a href=list.asp?lx=3><font color=#FF00FF><span style=""text-decoration: none"">[要闻]</span></font></a>"
Case "4"
strInfoClass = "<a href=list.asp?lx=4><font color=#008080><span style=""text-decoration: none"">[动态]</span></font></a>"
Case "5"
strInfoClass = "<a href=list.asp?lx=5><font color=#0000FF><span style=""text-decoration: none"">[招聘]</span></font></a>"
Case "6"
strInfoClass = "<a href=list.asp?lx=6><font color=#9900FF><span style=""text-decoration: none"">[求职]</span></font></a>"
Case "7"
strInfoClass = "<a href=list.asp?lx=7><font color=#CC6600><span style=""text-decoration: none"">[展会]</span></font></a>"
Case "8"
strInfoClass = "<a href=list.asp?lx=8><font color=#000000><span style=""text-decoration: none"">[其它]</span></font></a>"
End Select
if len(rdsInfo("Topic")) > 15 then
strTopic = left(rdsInfo("Topic"),16) &"..."
else
strTopic = rdsInfo("Topic")
end if
strjg = rdsInfo("jg")
%>
<tr>
<td width="51%" height="20" class="F16"><%if rdsInfo("tj")=1 then%> <img border="0" src="images/arrow.gif" alt="推荐信息"><%else%> <img border="0" src="images/tu33.gif" alt="一般信息"><%end if%> <font color="#478B47"><span style="font-size: 9pt"><% = strInfoClass%></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"><% = strTopic%></span></a></td>
<td width="15%" align="center"><% = rdsInfo("InfoAdd")%></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"><% =Month(rdsInfo("CreateTime"))%>-<% =day(rdsInfo("CreateTime"))%></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>
<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="list.asp" 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="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 &"&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 &"&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 &"&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 &"&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 &"&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>
<td vAlign="top" width="10"><img height="1" src="images/space.gif" width="10" border="0"></td>
<td vAlign="top" width="1" background="images/space_01.gif"><img height="1" src="images/space_01.gif" width="1" border="0"></td>
<td class="bg01" vAlign="top" width="157">
<div align="center">
<center>
<table id="AutoNumber11" style="BORDER-COLLAPSE: collapse" borderColor="#111111" height="176" cellSpacing="0" cellPadding="0" width="157" border="0">
<tbody>
<tr>
<td vAlign="top" height="35"><img height="35" src="images/pic_520_passport_01.gif" width="157" border="0"></td></tr>
<tr>
<td vAlign="top" background="images/pic_520_passport_02.gif" bgColor="#ffffff" height="120" align="center"><!--#include file="Common/Inc_Login.asp"--></td>
</tr>
<tr>
<td vAlign="top" height="21"><img height="21" src="images/pic_520_passport_03.gif" width="157" border="0"></td></tr></tbody></table></center></div>
<div align="center">
<center>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="157" border="0">
<tbody>
<tr>
<td vAlign="center" background="images/space_01.gif" height="25" width="155"> <img src="images/arrow_02.gif" border="0"> <b><font color="#FFFFFF">信息分类</font></b></td></tr>
<tr>
<td height="8" width="155"></td></tr>
<tr>
<td width="155" align="center" valign="top"><!--#INCLUDE FILE="Common/Inc_Catalog.asp"--></td>
</tr>
<tr>
<td height="8" width="155" colspan="2"></td></tr></tbody></table></center></div>
<div align="center">
<center>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="157" border="0">
<tbody>
<tr>
<td vAlign="center" background="images/space_01.gif" height="25"> <img src="images/arrow_02.gif" border="0"> <b><font color="#FFFFFF">合作伙伴</font></b></td></tr>
<tr>
<td height="8"></td>
</tr>
<tr>
<td width="155" align="center" valign="top"><!--#INCLUDE FILE="Common/Inc_Cooperate.asp"--></td>
</tr>
<tr>
<td height="8"></td>
</tr>
</tbody>
</table>
</center>
</div>
<div align="center">
<center>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="157" border="0">
<tbody>
<tr>
<td vAlign="center" background="images/space_01.gif" height="25"> <img src="images/arrow_02.gif" border="0"> <b><font color="#FFFFFF">友情链接</font></b></td></tr>
<tr>
<td height="8"></td>
</tr>
<tr>
<td width="155" align="center" valign="top"><!--#INCLUDE FILE="Common/Inc_Link.asp"--></td>
</tr>
<tr>
<td height="8"></td>
</tr>
</tbody>
</table>
</center>
</div>
</td>
<td vAlign="top" width="1" background="images/space_01.gif"><img height="1" src="images/space_01.gif" width="1" border="0"></td></tr>
<tr>
<td vAlign="top" width="760" colSpan="7" height="14"><img height="14" src="images/pic_bottom_01.gif" width="760" border="0"></td></tr></tbody></table></div>
<!--#include file="End.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -