📄 y.asp
字号:
<!--#include file="boardconn.asp"-->
<!--#include file="inc/sql.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/ip.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/validitycheck.asp"-->
<!--#include file="inc/file.asp"-->
<!--#include file="inc/postubb.asp"-->
<%
dim M,N
M=trim(Request("M"))
N=replace(trim(Request("N")),"'","")
T="T"
C="C"
U="U"
%>
<HTML>
<HEAD>
<TITLE>搜索关键字:<%=N%> - <%=HOST_NAME%> - <%=HOST_LIST%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=GB2312">
<link rel="shortcut icon" href="images/bbs.ico">
<link href="style/style.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function form1_onsubmit() {
if (document.form1.Key.value=="")
{
alert("友情提示!\n\n请完整输入贴吧名称!")
document.form1.Key.focus()
return false
}
}
// -->
</script>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
<TBODY>
<TR>
<TD width=1% height=20 bgColor=<%=HOST_TITLE%>></TD><TD width=99% height=20 bgColor=<%=HOST_TITLE%> class=INDEX_VMALL><a href="index.asp"><font color=<%=HOST_FONT%>>首页</font></a> <font color=<%=HOST_FONT%>>></font> <font color=<%=HOST_FONT%>><u>搜索关键字 - [ <%=N%> ]</u></font></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0 bgColor=#ffffff>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<%if M=T or M=C or M=U then%>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0 bgColor=#ffffff>
<TBODY>
<TR>
<TD class=INDEX_XMALL width="7%" align=center height="20" bgColor=#eeeeee>点击数</TD>
<TD class=INDEX_XMALL width="7%" align=center height="20" bgColor=#eeeeee>回帖数</TD>
<TD class=INDEX_XMALL width="52%" height="20" bgColor=#eeeeee>帖子主题</TD>
<TD class=INDEX_XMALL width="10%" height="20" bgColor=#eeeeee>发表作者</TD>
<TD class=INDEX_XMALL width="10%" height="20" bgColor=#eeeeee>最后回帖</TD>
<TD class=INDEX_XMALL width="14%" height="20" bgColor=#eeeeee>回帖时间</TD></TR>
<%
Dim MyPageSize,MyPage
Page=CInt(Request.QueryString("T"))
MyPageSize = 50
If Not IsNumeric(Page) Or IsEmpty(Page) Or Page <=0 Then
MyPage=1
else
MyPage=Abs(Page)
end if
if M=T then
Sql="select * from QiQiBoy_Topic_Disp where Title like '%"&N&"%' and ParentID=0 or Status=2 order by Status=2,Status=4,UpdateTime desc"
else if M=C then
Sql="select * from QiQiBoy_Topic_Disp where Content like '%"&N&"%' and ParentID=0 or Status=2 order by Status=2,Status=4,UpdateTime desc"
else if M=U then
Sql="select * from QiQiBoy_Topic_Disp where UserName like '%"&N&"%' and ParentID=0 or Status=2 order by Status=2,Status=4,UpdateTime desc"
end if
end if
end if
set rs=server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if not rs.eof then
rs.PageSize = MyPageSize
MaxPages = rs.PageCount
Total = rs.RecordCount
rs.absolutepage = MyPage
end if
dim i
Counter=0
%>
<%
for i = 1 to MyPageSize
if not rs.eof then
bgcolor="ffffff"
if i mod 2 = 0 then
bgcolor="eeeeee"
else
bgcolor="ffffff"
end If
%>
<%
TopicIp=rs("TopicIp")
ReplyIp=rs("ReplyIp")
Call IpArray(TopicIp)
Call IpArray(ReplyIp)
%>
<TR bgcolor="#<%=bgcolor%>">
<TD class=INDEX_XMALL height="28" align="middle"><%Response.Write(rs(13))%></TD>
<TD class=INDEX_XMALL height="28" align="middle"><%Response.Write(rs(14))%></TD>
<TD class=INDEX_TMALL height="28"><%Call CheckContent_Gif%><% if Rs("Status")=2 then response.Write("[<font color=#cc0000>通告</font>]") else response.Write("") end if %><% if Rs("Status")=3 then response.Write("[<font color=#cc0000>已锁</font>]") else response.Write("") end if %><% if Rs("Status")=5 then response.Write("[<font color=#cc0000>精华</font>]") else response.Write("") end if %><% if Rs("Status")=4 then response.Write("[<font color=#cc0000>置顶</font>]") else response.Write("") end if %><% if Rs("Replys")>10 then response.Write("[<font color=#cc0000>最热</font>]") else response.Write("") end if %><A href="p.asp?/=<%Response.Write(rs(2))%>" target="_blank"><% if Rs("Status")=2 then response.Write("<font color=#CC0000>"&Topic_Filter(HTMLCode(rs(8)))&"</font>") else response.Write(""&Topic_Filter(HTMLCode(rs(8)))&"") end if %></A></TD>
<TD class=INDEX_XMALL height="28"><% if Rs("UserName")="" then response.Write(""&TopicIp&"") else response.Write("<a href=u.asp?/="&Server.UrlEncode(Rs("UserName"))&" target=_blank>"&HTMLCode(Rs("UserName"))&"</a>") end if %></TD>
<TD class=INDEX_XMALL height="28"><% if Rs("LastPost")="" then response.Write(""&ReplyIp&"") else response.Write("<a href=u.asp?/="&Server.UrlEncode(Rs("LastPost"))&" target=_blank>"&HTMLCode(Rs("LastPost"))&"</a>") end if %></TD>
<TD class=INDEX_XMALL height="28"><%Response.Write(rs(12))%></TD></TR>
<%
else
exit for
end if
rs.movenext
Next
%>
<TR>
<TD colspan="6" bgcolor="#ffffff" width="100%" height="30" class=INDEX_XMALL>
<%
response.Write("共有主题数 <font color=#cc0000>"&Total&"</font> 篇 ")
response.Write("[<a href=""?M="&M&"&N="&Server.UrlEncode(N)&"&T=1"" title=""第一页""><<</a>] ")
if MyPage > 1 then
response.Write("[<a href=""?M="&M&"&N="&Server.UrlEncode(N)&"&T="&MyPage-1&""" title=""上一页""><</a>] ")
end if
if (MyPage >= 5 and MaxPages-MyPage <1) then response.Write("[<a href=""?M="&M&"&N="&Server.UrlEncode(N)&"&T="&MyPage-4&""">"&MyPage-4&"</a>] ")
if (MyPage >= 4 and MaxPages-MyPage <2) then response.Write("[<a href=""?M="&M&"&N="&Server.UrlEncode(N)&"&T="&MyPage-3&""">"&MyPage-3&"</a>] ")
if MyPage >=3 then response.Write("<a href=""?M="&M&"&N="&Server.UrlEncode(N)&"&T="&MyPage-2&""">["&MyPage-2&"]</a> ")
if MyPage >=2 then response.Write("<a href=""?M="&M&"&N="&Server.UrlEncode(N)&"&T="&MyPage-1&""">["&MyPage-1&"]</a> ")
response.Write("[<u>"&MyPage&"</u>] ")
if MaxPages-MyPage >=1 then response.Write("[<a href=""?M="&M&"&N="&Server.UrlEncode(N)&"&T="&MyPage+1&""">"&MyPage+1&"</a>] ")
if MaxPages-MyPage >=2 then response.Write("[<a href=""?M="&M&"&N="&Server.UrlEncode(N)&"&T="&MyPage+2&""">"&MyPage+2&"</a>] ")
if (MyPage <3 and MaxPages-MyPage >=3) then response.Write("[<a href=""?M="&M&"&N="&Server.UrlEncode(N)&"&T="&MyPage+3&""">"&MyPage+3&"</a>] ")
if (MyPage <2 and MaxPages-MyPage >=4) then response.Write("[<a href=""?M="&M&"&N="&Server.UrlEncode(N)&"&T="&MyPage+4&""">"&MyPage+4&"</a>] ")
if (MyPage <1 and MaxPages-MyPage >=5) then response.Write("[<a href=""?M="&M&"&N="&Server.UrlEncode(N)&"&T="&MyPage+5&""">"&MyPage+5&"</a>] ")
if MyPage < MaxPages then
response.Write("[<a href=""?M="&M&"&N="&Server.UrlEncode(N)&"&T="&MyPage+1&""" title=""下一页"">></a>] ")
end if
response.Write("[<a href=""?M="&M&"&N="&Server.UrlEncode(N)&"&T="&MaxPages&""" title=""最后页"">>></a>]")
%>
</TD></TR></TBODY></TABLE>
<%end if%>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="end.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -