📄 search_shop.asp
字号:
<!-- #include file="SysConfig.asp" -->
<!-- #include file="CheckAdmin.asp" -->
<!-- #include file="Sql_Shop_Function.asp" -->
<script src="js/CheckAll.js"></script>
<script src="js/DelTrue.js"></script>
<%
Dim cnBBR_S1,cnBBR_S2,cnBBR_S3,cnBBR_S4,cnBBR_CatPath,cncnBBR_ClassPath,Cur_ClassID,TempCatPath,TempCatPath2
cnBBR_S1=CheckStr(Trim(Rst("S1")))
cnBBR_S2=CheckStr(Trim(Rst("S2")))
cnBBR_S3=CheckStr(Trim(Rst("S3")))
cnBBR_S4=CheckStr(Trim(Rst("S4")))
if Not isNum(cnBBR_S1) then cnBBR_S1=0
if Not isNum(cnBBR_S2) then cnBBR_S2=0
if Not isNum(cnBBR_S3) then cnBBR_S3=0
if Not isNum(cnBBR_S4) then cnBBR_S4=0
cnBBR_CatPath=Cstr(cnBBR_S1&"|"&cnBBR_S2&"|"&cnBBR_S3&"|"&cnBBR_S4)
cnBBR_CatPath=Replace(cnBBR_CatPath,"|0","")
cncnBBR_ClassPath=CheckStr(Trim(Rst("BBRpath")))
cncnBBR_ClassPath=Replace(cncnBBR_ClassPath,"|0","")
if len(cncnBBR_ClassPath)>0 then cnBBR_CatPath=cncnBBR_ClassPath
if Cstr(cnBBR_CatPath)="0" then cnBBR_CatPath=""
TempCatPath=cnBBR_CatPath
TempCatPath2=cnBBR_CatPath
if cnBBR_CatPath="" then
With Response
.Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"& vbcrlf
.Write" <tr> "& vbcrlf
.Write" <td colspan=2 width=100% align=center height=2 class=menutdbg_1></td> "& vbcrlf
.Write" </tr> "& vbcrlf
.Write" <tr height=32> "& vbcrlf
.Write" <td width=100% colspan=2 background=""../Skins/"& SKINS_FOLDER &"/GrayBg.gif""> <img src=""../Skins/"& Skins_Folder &"/Go.gif"" border=""0""><a href=""index.asp"" class=menuColor_1><b>首页</b></a>>>> <a href=""search.asp"" class=menuColor_1><b>搜索中心</b></a>>>> <a href=""search.asp"" class=menuColor_1><b>店铺搜索</b></a> </td>"& vbcrlf
.Write" </tr>"& vbcrlf
.Write"</table>" & Vbcrlf
End With
else
if Len(cnBBR_CatPath)>0 then
Dim iiclass1,iiclass2
cnBBR_CatPath=Split(cnBBR_CatPath,"|")
iiclass2=Ubound(cnBBR_CatPath)
For iiclass1=0 to iiclass2
if Not IsNum(cnBBR_CatPath(iiclass1)) then Call AlertInfo("对不起，参数传递有误，请检查所需查询的分类1！","",0)
Next
Cur_ClassID=cnBBR_CatPath(iiclass2)
end if
if Not IsNum(Cur_ClassID) then Call AlertInfo("对不起，参数传递有误，请检查所需查询的分类2！","",0)
if i>=0 then
Call SqlClass(TempCatPath)
else
Call AlertInfo("对不起，参数传递有误，请检查所需查询的分类3！","",0)
end if
Public ClassStr
Function SqlClass(ClassID)
Dim kk
ClassID=Replace(ClassID," ","")
ClassID=Replace(ClassID,"|",",")
Sql="select ClassName,Upid from Aucclass where ClassID in ("& ClassID &") order by Classid Desc"
set Rs=Conn.execute(sql)
CnbbrConnTimes
if Rs.Eof then
Call AlertInfo("对不起，没有找到所需查询的分类！","",0)
else
Do While Not Rs.Eof
ClassID=Replace(ClassID,",","|")
ClassStr=">>><a href=""display_class.asp?BBRpath="& ClassID &""" Class=MenuFont_1>"& Rs("ClassName") &"</a>"& ClassStr & Vbcrlf
i=Instr(ClassID,"|")
kk=Len(ClassID)-i-1
ClassID=left(ClassID,kk)
Rs.MoveNext
Loop
end if
End Function
With Response
.Write"<TABLE cellSpacing=0 cellPadding=0 width=98% align=center border=0>" & Vbcrlf
.Write" <TR>" & Vbcrlf
.Write" <td colspan=3 width=100% height=2 align=center class=menutdbg_1> </td>" & Vbcrlf
.Write" </TR>" & Vbcrlf
.Write" <TR>" & Vbcrlf
.Write" <td colspan=3 width=100% height=23 align=left background=""../Skins/"& SKINS_FOLDER &"/GrayBg.Gif"">"& Vbcrlf
.Write" <img src=""../Skins/"& SKINS_FOLDER &"/go.gif"" border=""0""><b><a href=""index.asp"" class=menufont_1>首页</a>>>><a href=""Search_Shop.asp"" class=menufont_1>用户店铺</a>>>><a href=""SearchShop.asp"" class=menufont_1>店铺分类</a>" & ClassStr & "</B>"
.Write" </td>" & Vbcrlf
.Write" </TR>" & Vbcrlf
.Write" <TR height=1>" & Vbcrlf
.Write" <td width=10% align=center></td><td width=80% align=center class=menutdbg_2> </td><td width=10% align=center></td>" & Vbcrlf
.Write" </TR>" & Vbcrlf
.Write"</Table>" & Vbcrlf
.write"<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""td"">"
.write"<tr class=td>"
.write"<td>"
.Write "<Table width=98% cellpadding=0 cellspacing=0 border=0 align=center>" & Vbcrlf
.Write "<TR>" & Vbcrlf
Dim RsSonClass
Set RsSonClass=conn.execute("Select * from AucClass where UpID="&Cur_ClassID)
CnbbrConnTimes
If RsSonClass.Eof then
.Write "<TD height=28 align=left> </TD>" & Vbcrlf
else
i=1
Do While Not RsSonClass.Eof
.Write "<TD height=28 align=left>"& Vbcrlf
.Write "<a href=""Display_class.asp?BBRPath="& TempCatPath2 &"|"& RsSonClass("ClassID") &""">"& RsSonClass("ClassName") &"</a>"& Vbcrlf
.Write "</Td>"& Vbcrlf
if i mod 8=0 then
.Write "</TR>"& Vbcrlf
.Write "<TR>"& Vbcrlf
end if
i=i+1
RsSonClass.MoveNext
Loop
End if
RsSonClass.Close
Set RsSonClass=nothing
.Write "</TR>" & Vbcrlf
.Write "</Table>" & Vbcrlf
.write"</td>"
.write"</tr>"
.write"</table>"
End with
end if
Function Disp_ShopAdminMenu()
Dim TempStr
TempStr="<input name=deltrue type=button value=""确定删除"" OnClick=""return DelTrue(document.searchform,'del.asp')"">"
TempStr=TempStr&" <input name=deltrue type=button value=""首页推荐"" OnClick=""return DelTrue(document.searchform,'BBR_ShopCommend.asp?Status=1')"">"
TempStr=TempStr&" <input name=deltrue type=button value=""取消推荐"" OnClick=""return DelTrue(document.searchform,'BBR_ShopCommend.asp?Status=0')"">"
TempStr=TempStr&" <input name=deltrue type=button value=""审核"" OnClick=""return DelTrue(document.searchform,'ChangeShopCheck.asp?Status=1')"">"
TempStr=TempStr&" <input name=deltrue type=button value=""取消审核"" OnClick=""return DelTrue(document.searchform,'ChangeShopCheck.asp?Status=0')"">"
Disp_ShopAdminMenu=TempStr
End Function
Function DispAndOrder()
Dim TempDispAndOrder
TempDispAndOrder=" <img src=""../skins/"& SKINS_FOLDER &"/search_mirror.gif"" border=""0"" width=15 height=15 align=""absmiddle"">"
TempDispAndOrder=TempDispAndOrder &" 显示方式： <a href="&Page_QueryStr&"CnPerBBrPage=20&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_Amount_20.gif"" border=""0"" width=18 height=15 align=""absmiddle"" alt=""每页显示20条记录""></a> "& Vbcrlf
TempDispAndOrder=TempDispAndOrder &" <a href="&Page_QueryStr&"CnPerBBrPage=40&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_Amount_40.gif"" border=""0"" width=18 height=15 align=""absmiddle"" alt=""每页显示40条记录""></a> "& Vbcrlf
TempDispAndOrder=TempDispAndOrder &" <a href="&Page_QueryStr&"CnPerBBrPage=80&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_Amount_80.gif"" border=""0"" width=18 height=15 align=""absmiddle"" alt=""每页显示80条记录""></a> "& Vbcrlf
TempDispAndOrder=TempDispAndOrder &" 排序方式： <a href="&Page_QueryStr&"cnAucBBrOrder=1&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_click_Down.gif"" border=""0"" width=24 height=15 align=""absmiddle"" alt=""按点击率排列""></a> "& Vbcrlf
TempDispAndOrder=TempDispAndOrder &" <a href="&Page_QueryStr&"cnAucBBrOrder=5&page="&page&"><img src=""../skins/"& SKINS_FOLDER &"/Order_time_Down.gif"" border=""0"" width=24 height=15 align=""absmiddle"" alt=""按发布时间排列""></a>"& vbcrlf
Select Case JsPerPage
Case 20: TempDispAndOrder=Replace(TempDispAndOrder,"Order_Amount_20.gif","Order_CAmount_20.gif")
Case 40: TempDispAndOrder=Replace(TempDispAndOrder,"Order_Amount_40.gif","Order_CAmount_40.gif")
Case 80: TempDispAndOrder=Replace(TempDispAndOrder,"Order_Amount_80.gif","Order_CAmount_80.gif")
Case else:
End Select
Select Case BBR_ShopOrder
Case 1: TempDispAndOrder=Replace(TempDispAndOrder,"Order_click_Down.gif","Order_Cclick_Down.gif")
Case 2: TempDispAndOrder=Replace(TempDispAndOrder,"Order_time_Down.gif","Order_Ctime_Down.gif")
Case else:
End Select
DispAndOrder=TempDispAndOrder
End Function
Disp_ShopSearch
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -