📄 search.asp
字号:
<%
if request("addok")="" then
if request("k")="" then
response.write "请输入查找内容"
response.end
else
%>
<%MDBpath="../inc/"%>
<!--#include file="../inc/mdb_path_down.asp"-->
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from review where homepage like '%"&request("k")&"%' order by updatetime desc",conn,1,1
if not rs.eof then
do while not rs.EOF
oldcx=oldcx&"<tr height=25><td width=400> <img src=images/icon.gif><a href=F.asp?reviewid="&rs("reviewid")&"> <b>"&rs("homepage")&"</b></a></td><td width=100 align=center>"&rs("author")&"</td><td align=center width=50><font color=#0000FF>"&rs("hits")&"</font></td><td align=center width=50><font color=#FF0000>"&rs("hitss")&"</font></td><td align=center width=150>"&rs("updatetime")&"</td></tr>"
rs.MoveNext
loop
else
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "http://so.stock01.com/q/?k="&request("k")&""
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="BBS论坛搜索">
<title>BBS论坛搜索</title>
</head>
<body topmargin="1" leftmargin="1">
<!--#include file="../inc/top.asp"-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr><td height="5"></td></tr>
<tr valign="top">
<td width="756"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td> 当前位置: <a href="../">网站首页 - </a><a href="">证券论坛</a> - 搜索</td><td><div align='right'><a class=class href="javascript:window.location.reload()">刷新</a> <a href="guestadd.asp" class=class><img src='images/post.gif' alt='签写留言' border='0' align=absmiddle></a> </div></td></tr>
</table>
<table border="0" width="760" cellspacing="1" align="center" bgcolor="#ffffff">
<form onsubmit="window.location=this.field.options[this.field.selectedIndex].value+this.k.value; return false;">
<tr>
<td height=40 align="center" bgcolor="#FFFFFF">
<input name="k" size="50" value='<%=request("k")%>' maxlength='60' onFocus='this.select();' />
<select name="field">
<option value="search.asp?k="&request("k")&"">BBS论坛</option>
<option value="../stock/search.asp?k="&request("k")&"">资讯中心</option>
<option value="../down/search.asp?k="&request("k")&"">下载中心</option>
</select>
<input type="submit" value="开始搜索" /></td></form></tr>
<tr><td height=20> <font color=ff0000><b>当前搜索关键字：</font></b><%=request("k")%></td></tr><tr><td>
<%if oldcx<>"" then%>
<table width=740 cellspacing=1 border="1" bordercolor="7A9FD1" style="border-collapse: collapse" cellpadding=0 align=center>
<tr height=25 bgcolor=7a9fd1><td width=400 align=center><font color=ffffff>【帖子标题】</font></td><td width=100 align=center><font color=ffffff>【发贴人】</font></td><td align=center width=50><font color=ffffff>【浏览】</font></td><td align=center width=50><font color=ffffff>【回复】</font></td><td align=center width=150><font color=ffffff>【发贴日期】</font></td></tr>
<%=oldcx%>
<%end if%>
</table><br><br></td></tr></table>
<!--#include file="../inc/foot.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -