📄 research.asp
字号:
<!--
┌─9911.com.cn────────────┐
│ 动感购物 WWW.9911.com.cn 版权所有 │
│ 动感购物2005Vb 联系：web@snsn.net │
└───────────9911.com.cn──┘
-->
<!--#include file="conn.asp"-->
<!--#include file="fuction.asp"-->
<!--#include file="webconfig.asp"-->
<%dim action,searchkey,anclassid,jiage,selectname,lx
anclassid=nosql(request("anclassid"))
lx=nosql(request("lx"))
searchkey=nosql(trim(request("searchkey")))
searchkey=Replace(searchkey, "'", "")
searchkey=Replace(searchkey, "‘", "")
searchkey=checkFFSQLStr(Replace(searchkey,"’",""))
selectname=nosql(request("selectname"))
jiage=nosql(request("jiage"))
jiage2=nosql(request("jiage2"))
action=nosql(request("action"))
%>
<html>
<head>
<title><%=webname%>--商品搜索结果</title>
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
.style1 { color: #FF6600;
font-weight: bold;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onMouseOver="window.status='【<%=webname%>】 <%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！：）';return true">
<!--#include file="webtop.asp"-->
<table width="940" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="17"><img src="/img/index_1.gif" width="15" height="16"></td>
<td valign="bottom">您现在的位置是：<a href="<%=weburl%>"><%=webname%></a> -> <span class="table-shangxia"><span class="fontglow"><span class="b14">站内搜索</span></span></span></td>
<td valign="bottom">
</td>
</tr>
<tr>
<td height="6" colspan="3"></td>
</tr>
</table>
<table width="945" border="0" align="center" cellpadding="0" cellspacing="0" class="sm_debrown">
<tr>
<td colspan="3" height="4" bgcolor="ffffff"></td>
</tr>
<tr>
<td width="7" height="24"><img src="/img/skin<%=cssid%>/bott_nav_lf.gif" width="7" height="24"></td>
<td width="926" valign="middle" background="img/skin<%=cssid%>/bott_nav_bj.gif" bgcolor="EEE7CC" class="sm_debrown"><span class="table-shangxia"><span class="b14"><b>
<%if jiage="" then%>
<%if searchkey="" then
response.write "<script language=javascript>alert('对不起，请您输入查讯关键字');history.go(-1);</script>"
response.End
else
response.write "您查讯的关键字是： "
if (anClassId <> "") And _
IsNumeric(anClassId) Then
if anclassid<>0 then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,1
response.write "<a href=class.asp?lx=big&anid="&anclassid&"><font color=red>"&rs("anclass")&"</font></a>"&" >> "
rs.close
set rs=nothing
end if
End If
response.write "<font color=red>"&searchkey&"</font>"
s_shopname=searchkey
end if%>
<%else%>
<%if (action="1" or action="2" or action="3") and searchkey="" then
response.write "<script language=javascript>alert('对不起，请您输入查讯关键字');history.go(-1);</script>"
response.End
else
response.write "您查讯的关键字是： "
if anclassid<>0 then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,1
response.write "<a href=class.asp?lx=big&anid="&anclassid&"><font color=red>"&rs("anclass")&"</font></a>"&" >> "
rs.close
set rs=nothing
end if
if action="1" or action="3" then
response.write "<font color=red>"&searchkey&"</font>"
s_shopname=searchkey
else
response.write "<font color=red>"&selectname&"</font>"
s_shopname=selectname
end if
end if%>
<%end if%>
</b></span></span></td>
<td width="7"><img src="/img/skin<%=cssid%>/bott_nav_rg.gif" width="7" height="24"></td>
</tr>
</table>
<table width="945" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8"></td>
</tr>
</table>
<%'开始分页
Const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
if jiage="" and jiage2="" then '//普通查询
if anclassid<>"" then '//判断查讯分类,分类不为空。
if anclassid<>0 then
sql1=" shopname like '%"&searchkey&"%' and anclassid="&request("anclassid")&" "
else
sql1=" shopname like '%"&searchkey&"%' "'//分类为空。
end if
else
sql1=" shopname like '%"&searchkey&"%' "'//分类为空。
end if
else'//高级查讯
if anclassid<>0 and anclassid<>"" then '//判断查讯分类,分类不为空。
select case action
case "1"
sql1=" shopname like '%"&searchkey&"%' and (shichangjia>"&jiage&" and shichangjia<"&jiage2&" or huiyuanjia>"&jiage&" and huiyuanjia<"&jiage2&" or vipjia>"&jiage&" and vipjia<"&jiage2&") and anclassid="&anclassid&" "
case "2"
sql1=" pingpai like '%"&selectname&"%' and (shichangjia>"&jiage&" and shichangjia<"&jiage2&" or huiyuanjia>"&jiage&" and huiyuanjia<"&jiage2&" or vipjia>"&jiage&" and vipjia<"&jiage2&") and anclassid="&anclassid&" "
case "3"
sql1=" shopcontent like '%"&searchkey&"%' and (shichangjia>"&jiage&" and shichangjia<"&jiage2&" or huiyuanjia>"&jiage&" and huiyuanjia<"&jiage2&" or vipjia>"&jiage&" and vipjia<"&jiage2&") and anclassid="&anclassid&" "
end select
else
'//分类为空//模糊视线改于2004年10月12日16点42分,版本属于动感购物系统2005v-b
select case action
case "1"
sql1=" shopname like '%"&searchkey&"%' and (shichangjia>"&jiage&" and shichangjia<"&jiage2&" or huiyuanjia>"&jiage&" and huiyuanjia<"&jiage2&" or vipjia>"&jiage&" and vipjia<"&jiage2&") "
case "2"
sql1=" pingpai like '%"&selectname&"%' and (shichangjia>"&jiage&" and shichangjia<"&jiage2&" or huiyuanjia>"&jiage&" and huiyuanjia<"&jiage2&" or vipjia>"&jiage&" and vipjia<"&jiage2&") "
case "3"
sql1=" shopcontent like '%"&searchkey&"%' and (shichangjia>"&jiage&" and shichangjia<"&jiage2&" or huiyuanjia>"&jiage&" and huiyuanjia<"&jiage2&" or vipjia>"&jiage&" and vipjia<"&jiage2&") "
end select
end if
end if
call sss()
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_snsn where "&sql1&" order by adddate desc",conn,1,1
if rs.eof And rs.bof then
Response.Write "<p align='center' > 对不起，没有查讯到您需要的商品！</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -