?? b_jieguo.asp
字號:
<!--#include file="d_tou.asp" -->
<table width="778"" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF">
<tr>
<td bordercolor="#F6F6F6" bgcolor="#FBFBFB"><img src="tupian/weizhi.gif" width="9" height="9"> <a href="b_bankuai.asp">論壇版塊</a> → 搜索結(jié)果</td>
</tr>
</table>
<table width="778"" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF">
<tr bordercolor="#EBEBEB" bgcolor="#EFEFEF"><td width="30">心情</td>
<td> <div align="center">標題</div></td><td width="100">
<div align="center">所屬板塊</div></td><td width="30"><div align="center">回復(fù)</div></td>
<td width="30"><div align="center">瀏覽</div></td><td width="100">
<div align="center">作者</div></td></tr></table>
<%
sousuo=Trim(Request("sousuo"))
if sousuo="" then
response.Redirect("b_sousuo.asp?fanhui=kong")
end if
sql="select xuhao,biaoti,xinqing,mingzi,bankuai from tiezi where biaoti like '%"& sousuo &"%' and tiezi='tiezi' order by shijian desc"
set tiezi=server.CreateObject("adodb.recordset")
tiezi.open sql,lj,1,2
if tiezi.bof and tiezi.eof then
Response.Write("<br><table align=center><tr><td>找不到合適的帖子</td></tr></table><br>")
else
if request("ye")="" then
ye=1
else
ye=cint(request("ye"))
end if
set luntan=lj.execute("select meiyetiezi from luntan")
tiezi.pagesize=luntan("meiyetiezi")
tiezi.absolutepage=ye
zong=tiezi.pagecount
tou=luntan("meiyetiezi")
do while not tiezi.eof and tou>0
tou=tou-1
%>
<table width="778"" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF">
<tr bordercolor="#EFEFEF" bgcolor="#F4F4F4"><td width="30"><div align="center"><img src="xinqing/<%=tiezi("xinqing")%>.gif"></div></td>
<td><a href="b_kantie.asp?tiezi=<%=tiezi("xuhao")%>"><%=server.HTMLEncode(tiezi("biaoti"))%></a> </td>
<td width="100"><div align="center"><a href="b_luntan.asp?bankuai=<%=tiezi("bankuai")%>">
<%
set shubankuai=lj.execute("select mingzi from bankuai where xuhao="& tiezi("bankuai") &"")
response.Write(shubankuai("mingzi"))
%>
</a></div></td><td width="30"> <div align="center">
<%
shuyu=tiezi("xuhao")
set huifu=lj.execute("select count(*) as huifu from tiezi where tiezi='"& shuyu &"'")
response.Write(huifu("huifu"))
%>
</div></td><td width="30"><div align="center">
<%
set liulan=lj.execute("select liulan from tiezi where xuhao="& tiezi("xuhao") &"")
response.Write(liulan("liulan"))
%>
</div></td><td width="100"><div align="center">
<a href="b_kanren.asp?mingzi=<%=tiezi("mingzi")%>" target="_blank">
<%=server.HTMLEncode(tiezi("mingzi"))%></a> </div></td></tr></table>
<%
tiezi.movenext
loop
end if
%>
<table width="778"" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF">
<tr><td bordercolor="#EBEBEB" bgcolor="#EFEFEF"> <div align="center">
<%
if ye=1 then
response.Write("頭頁 上頁 ")
end if
if ye<>1 then
response.Write("<a href=b_jieguo.asp?ye=1&sousuo="& sousuo &">頭頁</a> ")
response.Write("<a href=b_jieguo.asp?ye="&(ye-1)&"&sousuo="& sousuo &">上頁</a> ")
end if
if ye<>zong then
response.Write("<a href=b_jieguo.asp?ye="&(ye+1)&"&sousuo="& sousuo &">下頁</a> ")
response.Write("<a href=b_jieguo.asp?ye="&zong&"&sousuo="& sousuo &">尾頁</a> ")
end if
if ye=zong then
response.Write("下頁 尾頁 ")
end if
response.Write(" 總頁數(shù) "&zong&"")
response.Write(" 當前頁 "&ye&"")
%>
</div></td></tr></table>
<!--#include file="d_wei.asp" -->
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -