📄 search.asp
字号:
<%
if request("addok")="" then
if request("k")="" then
response.write "请输入查找内容"
response.end
else
%>
<%MDBpath="../inc/"%>
<!--#include file="../inc/mdb_path_info.asp"-->
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from info where title like '%"&request("k")&"%' order by date desc",conn,1,1
if not rs.eof then
do while not rs.EOF
oldcx=oldcx&"<tr height=22><td>·<a href="&rs("id")&".asp>"&rs("title")&"</a></td><td>"&year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date"))&"</td><td>"&rs("hits")&"</td></tr><tr><td width=542 height=1 bgcolor=CCCCCC colspan=3></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="资讯搜索">
<title>资讯搜索</title>
</head>
<body topmargin="1" leftmargin="1">
<!--#include file="../inc/top.asp"-->
<table border=0 width=760 cellspacing=0 cellpadding=0 align=center bgcolor=ffffff style="border-collapse: collapse">
<%if oldcx<>"" then%>
<tr bgcolor="#FFFFFF"><td height="6" bgcolor=f7f7f7></td><td bgcolor=f7f7f7></td><td bgcolor=e6e6e6></td><td></td><td></td></tr>
<tr><td width="11" bgcolor="#f7f7f7"></td> <td width="182" valign="top" bgcolor="#f7f7f7">
<table border="0" cellspacing="0" cellpadding="0">
<tr><td width=100%><img src="../images/left_hot.gif" width="180" height="30" alt="工具"></td></tr>
<tr><td><table border="0" width="100%">
<tr height=22><td align="center"><a href="http://bjzr.gfzr.com.cn" target=_blank><b>中关村非上市公司股份交易</b></a></td></tr>
<tr height=22><td align="center" class=title><a href="../link/stock-1.asp" target=_blank><font color=ff0000><b>证券基金研究所</font></b></a></td></tr>
<tr height=22><td align="center"><b><a href="../link/stock-2.asp" target=_blank>证券公司</a> <a href="../link/stock-3.asp" target=_blank>基金公司</a></b></td></tr>
<tr height=22><td align="center"><a href="../inc/stock_income.asp" target=_blank>股票收益计算器</a></td></tr>
<tr height=22><td align="center"><a href="../inc/fund_income.asp" target=_blank>基金收益计算器</a></td></tr>
<tr height=22><td align="center"><a href="../sms" target=_blank><font color=ff0000>即将启动的短线黑马</a></font></td></tr> </table></td></tr>
<TR><TD width=100%><img src="../images/right_t.gif" width="180" height="30" alt="最新"></TD></TR>
<tr><td><table border="0" width="100%">
<%MDBpath="../suyannan/"%>
<!--#include file="../suyannan/mdb_path_info.asp"-->
<%
topsql="select top 12 * from info order by id desc; "
set toprs=server.createobject("adodb.recordset")
toprs.open topsql,conn,1,1
do while not toprs.EOF
Response.Write "<tr height=22><td>·<a href="&toprs("id")&".asp>"&left(toprs("title"),12)&"</a></td></tr>"
toprs.MoveNext
loop
toprs.Close
set toprs=nothing
%>
</table></td></tr>
</table>
</td>
<td width="1" bgcolor=e6e6e6></td><td width="8"></td>
<td width="551" valign="top" height="2" align="left">
<table border="0" width="544" cellspacing=0 cellpadding="0">
<form onsubmit="window.location=this.field.options[this.field.selectedIndex].value+this.k.value; return false;">
<tr><td height=40 colspan=5 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")&"">资讯中心</option>
<option value="../down/search.asp?k="&request("k")&"">下载中心</option>
<option value="../bbs/search.asp?k="&request("k")&"">BBS论坛</option>
</select>
<input type="submit" value="开始搜索" /></td></form></tr>
<tr><td height=20 colspan=4 bgcolor=e6e6e6> <b>当前搜索关键字：</b><font color=ff0000><%=request("k")%> </font> <b>查找到资讯.....</b></td></tr><tr><td width=542 height=1 bgcolor=333333 colspan=3></td></tr>
<%=oldcx%>
<%end if%>
</table>
</td></tr></table>
<!--#include file="../inc/foot.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -