📄 search.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="new.css" rel=stylesheet type=text/css>
<title>全球旅游网</title>
</head>
<body bgcolor="#999999" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><div align="center">
<!--#include file="head.asp"-->
<!----------------------------------------------
Powered by CFN_RedHyphone（安庆分站汪懿[QQ：9000558]制作）
娱乐搜索程式
http://www.Jxtour.Net
此版本只能在个人网站使用并要求保留中国第四网&红旋风联盟版权！
商业用途必须与本人联系！
-------------------------------------------------->
<center>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td width="220" bgcolor="#5E8BB4" valign="top">
<!--#include file="bar_left.asp"-->
</td>
<td bgcolor="#ffffff" valign="top">
<!--text begin--><a name="top">
<%
dim ersokind(902)
ersokind(101)="酒店"
dim sel(09)
sel(01)="select * FROM data where content like '%" & cstr(request("ersosearch")) & "%' or goods like '%" & cstr(request("ersosearch")) & "%' or price like '%" & cstr(request("ersosearch")) & "%' or buydate like '%" & cstr(request("ersosearch")) & "%' or buyorsell like '%" & cstr(request("ersosearch")) & "%' or province like '%" & cstr(request("ersosearch")) & "%' or city like '%" & cstr(request("ersosearch")) & "%' or trademode like '%" & cstr(request("ersosearch")) & "%' order by goods"
sel(02)="select * FROM data where goods like '%" & cstr(request("ersosearch")) & "%' order by goods"
sel(03)="select * FROM data where content like '%" & cstr(request("ersosearch")) & "%' order by goods"
sel(04)="select * FROM data where price like '%" & cstr(request("ersosearch")) & "%' order by goods"
sel(05)="select * FROM data where buydate like '%" & cstr(request("ersosearch")) & "%' order by goods"
sel(06)="select * FROM data where icq like '%" & cstr(request("ersosearch")) & "%' or city like '%" & cstr(request("ersosearch")) & "%' order by goods"
sel(07)="select * FROM data where bbcall like '%" & cstr(request("ersosearch")) & "%' order by goods"
sel(08)="select * FROM data where degree like '%" & cstr(request("ersosearch")) & "%' order by goods"
sel(09)="select * FROM data where amount like '%" & cstr(request("ersosearch")) & "%' order by goods"
sele=request("select")
on error resume next
connstr = "DBQ="+server.mappath("_database/cfn4.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("adodb.connection")
Conn.Open connstr
set rs = server.createobject("adodb.recordset")
set Rs = Conn.Execute(sqlbyname)
sqlbyname=sel(sele)
rs.open sqlbyname,conn,1,1
fl_xj=rs.recordcount
response.write "<div align=center><TABLE BORDER=0 align=center valign=middle><TR><TD >"
response.write "<br> * 你所输入的字符: <i>" + request("ersosearch") + "</i><br>"
response.write " * 共搜索到以下 <b>"
response.write cstr(fl_xj)+"</b> 个符合项目:"
response.write "</td></tr><tr><td><br>"
if Rs.bof and Rs.eof then
response.write "<p align=center>对不起，没有您要找的!</p>"
response.write "<p align=center>请您再试试其他条件,或者直接到类型栏中选择.谢谢!</p>"
response.write "<p align=center>搜索注意：你输入的关键字要简单，如果有不明白的可以用？表示！请重新搜索</p><br>"
else
do while not Rs.eof
response.write " <img src='find.gif'>"
response.write " <a href=view.ASP?id="+cstr(Rs("ID"))+">"
response.write Rs("goods")+"</A> "
response.write "<A HREF='type.asp?kind=" & Rs("kind") & "' style='text-decoration: none; color=#ff0000''><font size=2>["
typen=cstr(rs("kind"))
response.write "位于"+Rs("icq")+"的"
response.write ersokind(typen)+ "]</A></font><br>"
Rs.movenext
loop
end if
Rs.close
Conn.close
response.write "<p align=center><b><font face=Arial Unicode MS size=1>^ </font></b><font face=tahoma size=1><a href=#top>回页首</a></font></p>"
response.write "</td></tr></table> </div>"
%>
<!--text end-->
</td>
</tr>
</table>
</table> <!--#include file="adv.htm"-->
</div> </body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -