📄 search1.asp
字号:
<%headtitle="论坛"%>
<%url="/bbs/search.asp?page_code="&request("page_code")&"&search="&trim(request("search"))&""%>
<html>
<head>
<title><%=application("title")%> <%=headtitle%></title>
<link rel="stylesheet" href="/gzoa.css" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="head.asp" -->
<table width="780" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td width="15" bgcolor="#CAC8C8"> </td>
<td width="690" valign="top" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right"><img src="images/conner1.gif" width="23" height="22"></td>
</tr>
</table>
<%
sql="select * from yfindex where title like '%" &trim(request("search"))&"%'"
sql=sql&" order by time DESC"
set rscust=server.createobject("adodb.recordset")
rscust.cursortype=3
rscust.open sql,conn,1,3
%>
<div align="center">
<% if rscust.recordcount=0 then%>
<br>
<br>
<br>
<br>
<br>
没有找到要搜索的文章! <br>
<br>
<br>
<br>
<br>
<% else%>
<%
rscust.pagesize=20
if request("page_code")="" then
page=0
else
page=clng(request("page_code"))
end if
if page<1 then page=1
if page>rscust.pagecount then page=rscust.pagecount
rscust.AbsolutePage=page
%>
<table width="609" border="0" cellspacing="0" cellpadding="0" background="../images/bothline.gif">
<tr>
<td background="../images/top_line.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="18%" valign="top">
<% if page<>1 then %>
<a href=search.asp?page_code=<%=(page-1)%>&search=<%=trim(request("search"))%>><img src="../images/propage.gif" border=0></a>
<%else%>
<img src="../images/top_line1.gif">
<%end if%>
</td>
<td width="66%" align="center">共找到文章<%=rscust.recordcount%>篇
共有<%=rscust.pagecount%>页 本页是第<%=page%>页</td>
<td width="16%" align="right" valign="top">
<% if page<>rscust.pagecount then %>
<a href=search.asp?page_code=<%=(page+1)%>&search=<%=trim(request("search"))%>><img src="../images/nextpage.gif" border=0></a>
<%else%>
<img src="../images/top_line1.gif">
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="96%" border="0" align="center" bgcolor="#EFEFEF">
<tr>
<td height="23" colspan="3">
<div align="center"><a href="writebbs.asp" class="10t"><b>发表文章</b></a>
</div>
</td>
<form method="post" action="search.asp" name="form1" id="form1">
<td width="41%" height="23">
<div align="center">
<input type="text" name="search" maxlength="60" class="input" size="18" value="<%=trim(request("search"))%>">
<input type="submit" name="Submit22" value="标题查询" class="9t">
</div>
</td>
<td width="26%" height="23" class="10t">
<center>
</center>
</td>
</form>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<%if adm="asean" then%>
<form method="post" action="indexbbs.asp">
<%end if%>
<table width="96%" border="1" bordercolor="#FF9900" cellspacing="0" cellpadding="2" align="center">
<tr align="center" bgcolor="#FFDDAA" class="10t">
<td width="34" height="25"><font color="#000099">回应</font>
</td>
<td width="34" height="25"> </td>
<td width="381" height="25"> <font color="#000099">主 题</font>
</td>
<td width="109" height="25"> <font color="#000099">作 者</font>
</td>
<td width="58" height="25"><font color="#000099">人气值</font></td>
<td width="120" height="25"> <font color="#000099">发表时间</font></td>
</tr>
<%for ipage=1 to rscust.pagesize
sql="select nickname from users where userid="&rscust("userid")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3%>
<tr bgcolor="#FFF5E8">
<td width="34" height="27" align="center"><font color="#FF0000"><%=rscust("renum")%></font></td>
<td width="34" height="27" align="center"> <img src="images/<%=trim(rscust("classid"))%>.gif"></td>
<td width="381" height="27">
<%if adm="asean" then%>
<input type="checkbox" name="del_update" value="<%=rscust("indexid")%>">
<%end if%>
<a href="showbbs.asp?indexid=<%=rscust("indexid")%>&page_code=<%=page_code%>"><%=server.HTMLEncode(rscust("title"))%></a>
</td>
<td width="109" height="27" align="center"><a href="../personal.asp?userid=<%=rscust("userid")%>" title="看看<%=trim(rs("nickname"))%>的资料"><%=rs("nickname")%></a></td>
<td width="58" height="27" align="center"><%=rscust("visit")%></td>
<td width="120" height="27" align="center"> <%=year(rscust("time"))&"-"&(month(rscust("time"))&"-"&day(rscust("time"))&" "&hour(rscust("time"))&":"&minute(rscust("time")))%>
</td>
</tr>
<%
rs.Close
set rs=nothing
rscust.movenext
if rscust.eof then exit for
next
%>
</table>
<%if adm="asean" then%>
<input type="submit" name="Submit2" value="删除文章" class="9t">
<input type="submit" name="Submit2" value="精选文章" class="9t">
</form>
<%end if%>
</td>
</tr>
<tr>
<td background="../images/bottom_line.gif" align="right" valign="bottom">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="14">
<tr>
<td width="17%"><img src="../images/bottom_line1.gif" width="1" height="14"></td>
<td width="68%"></td>
<td width="15%" align="right" valign="bottom"><img src="../images/lb_conner.gif" width="14" height="14"></td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<table width="609" border="0" background="../images/xuxian.gif">
<tr>
<td align="right">
<% if page<>1 then
' response.write "<a href=search.asp?page_code=1&search="&trim(request("search"))&">第一页</a>"
response.write "<a href=search.asp?page_code="&(page-1)&"&search="&trim(request("search"))&">上一页</a>"
end if
if page<>rscust.pagecount then
response.write "<a href=search.asp?page_code="&(page+1)&"&search="&trim(request("search"))&">下一页</a> "
' response.write "<a href=search.asp?page_code="&rscust.pagecount&"&search="&trim(request("search"))&">最后一页</a>"
end if %>
</td>
</tr>
</table>
<%
rscust.Close
set rscust=nothing
end if%>
<br>
</div>
</td>
<td width="75" bgcolor="#CAC8C8" align="center" valign="top">
<!--#include file="../rightdoc.asp" -->
</td>
</tr>
</table>
<div align="center">
<!--#include virtual="/include/right.htm" -->
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -