%
'根目录
HtmlUP=""
'读取模板
Moban=ReadMoban(Moban_Type,Moban_search,"") '模板类型,对应ID
Moban1=Moban
'标题
title="searching-"&EnSiteName
'title="搜索-"&EnSiteName
LOGOS=" "
headerpic="
"
'导航信息
Strmenu=GetChildren(Conn,0,"",SiteUrl)
Strmenu=Left(Strmenu,Len(Strmenu)-5)
'接收参数
act=replace(trim(request("act")),"'","")
sbig=replace(trim(request("sbig")),"'","")
ssmall=replace(trim(request("ssmall")),"'","")
keyword=replace(trim(request("keyword")),"'","")
Page=replace(trim(request("Page")),"'","")
'验证页
if page = "" then
page = 1
else
if not isnumeric(Page) then
Page=1
elseif page < 1 then
page=1
else
page = cint(page)
End if
end if
'并生成SQl语
sqlSearch="select * from Product where Passed=True "
Select Case act
case "hot"
title="Hot Products-"&EnSiteName
'title="热门产品-"&EnSiteName
strsearchword=" > Hot Products"
'strsearchword=" > 热门产品"
sqlSearch=sqlSearch & " order by Elite, Hits desc , Updatetime desc"
case "new"
'title="New Products-"&EnSiteName
'title="新品展示-"&EnSiteName
strsearchword=" > New Products"
'strsearchword=" > 新品展示"
sqlSearch=sqlSearch & " order by newproduct, Updatetime desc , Hits desc"
case "rec"
title="Recommend Products-"&EnSiteName
'title="推荐产品-"&EnSiteName
strsearchword=" > Recommend Products"
'strsearchword=" > 推荐产品"
sqlSearch=sqlSearch & " order by Key, Hits desc , Updatetime desc"
case "spec" '规格单
spec=replace(trim(request("spec")),"'","")
if spec="" then
founderr=true
errmsg="wrong para"
call WriteErrMsg()
response.end
end if
title=spec&"-"&EnSiteName
strsearchword=strsearchword&" > "&ProdFirst&" > "&spec
sqlSearch=sqlSearch & "and enSpec='"&Spec&"' order by Key, Hits desc , Updatetime desc"
case "specs" '规格多
'接收参数
bigclassname=sbig
spec1=replace(trim(request("spec1")),"'","")
spec2=replace(trim(request("spec2")),"'","")
spec3=replace(trim(request("spec3")),"'","")
spec4=replace(trim(request("spec4")),"'","")
spec5=replace(trim(request("spec5")),"'","")
spec6=replace(trim(request("spec6")),"'","")
spec7=replace(trim(request("spec7")),"'","")
spec8=replace(trim(request("spec8")),"'","")
spec9=replace(trim(request("spec9")),"'","")
spec10=replace(trim(request("spec10")),"'","")
strsearchword=strsearchword&" > "&ProdFirst&""
if sbig="" and ssmall="" and spec1="" and spec2="" and spec3="" and spec4="" and spec5="" and spec6="" and spec7="" and spec8="" and spec9="" and spec10="" then
founderr=true
errmsg="wrong para"
call WriteErrMsg()
response.end
else
if sbig<>"" then
title=sbig&"-"&EnSiteName
strsearchword=strsearchword&" > "&sbig
sqlSearch=sqlSearch&"and EnBigClassName = '"&sbig&"' "
end if
if ssmall<>"" then
title=ssmall&"-"&title
strsearchword=strsearchword&" > "&ssmall
sqlSearch=sqlSearch&"and EnsmallClassName = '"&ssmall&"' "
end if
if spec1="" and spec2="" and spec3="" and spec4="" and spec5="" and spec6="" and spec7="" and spec8="" and spec9="" and spec10="" then
else
title=" "&title
strsearchword=strsearchword&" > "
'''''''''''''''''''''''''''''''''''''''''''''''
for i=1 to 10
if eval("spec"&i)<>"" then
title=eval("spec"&i)&","&title
strsearchword=strsearchword&eval("spec"&i)&","
sqlSearch=sqlSearch&"and spec"&i&" ='"&eval("spec"&i)&"' "
end if
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''
end If
sqlSearch=sqlSearch & " order by Hits desc , Updatetime desc"
end if
case else
if keyword<>"" then
'描述默认
keyword=Replace(keyword,"+"," ")
Dim regEx_trim
Set regEx_trim = new RegExp
regEx_trim.Global = True
regEx_trim.Pattern = "[\s]{2,}"
keyword = regEx_trim.Replace(keyword," ")
keywords=keyword
strdescription=keyword
title=keyword
'response.charset = "utf-8"
'response.write(Replace(keyword," ","0"))
'response.end
'添加关键词
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from search_key where keywords='"&keyword&"'"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
rs("num")=rs("num")+1
rs("keydate")=now()
if rs("keyword")<>"" then keywords=rs("keyword")
if rs("desc")<>"" then strdescription=rs("desc")
if rs("title")<>"" then title=rs("title")
else
rs.addnew
rs("keywords")=keyword
rs("keydate")=now()
end if
rs.update
rs.close
set rs=nothing
'替换出错字符
keyword=replace(keyword,"-","_")
'生成SQL语句
sqlSearch=sqlSearch & "and (EnTitle like '%" & keyword & "%' "
sqlSearch=sqlSearch & "or EnBigClassName like '%" & keyword & "%' "
sqlSearch=sqlSearch & "or EnsmallClassName like '%" & keyword & "%' "
sqlSearch=sqlSearch & "or EnMemo like '%" & keyword & "%' "
sqlSearch=sqlSearch & "or Model like '%" & keyword & "%' "
sqlSearch=sqlSearch & ")"
sqlSearch=sqlSearch & " order by Hits desc , Updatetime desc"
'标题,导航
title=title&"-"&EnSiteName
strsearchword=" > Search > "&keyword
'strsearchword=" > 搜索 > "&keywords
else
founderr=true
errmsg="Please Input Searching Keyword"
call WriteErrMsg()
response.end
end if
End select
'导航
strposition=""&HomeFirst&""&strsearchword
'strposition=""&HomeFirst&" > 搜索 "&strsearchword
'产品分类---catalog
catalog=spec_tree(HtmlUP,"0")
'参数配置
dim Totalnumber, PageCount1
Currentpage=page
sql=sqlSearch 'sql语句
Maxperpage=search_num '条数
layout=search_layout '版式
acts="prod" '针对哪个栏目
'产品展示
sproducts=sproducts&list(sql,Maxperpage,CurrentPage,acts,layout,HtmlUP,HtmlUrl) '调用函数
'分页
if statics=3 then
Select Case act
case "hot"
HtmlFile="search.asp?act=hot"
pagenav=plist_bottom("search_hot",HtmlFile)
case "new"
HtmlFile="search.asp?act=new"
pagenav=plist_bottom("search_new",HtmlFile)
case "rec"
HtmlFile="search.asp?act=rec"
pagenav=plist_bottom("search_rec",HtmlFile)
case "spec"
HtmlFile="#"
pagenav=plist_bottom("search_spec",HtmlFile)
case "specs"
HtmlFile="#"
pagenav=plist_bottom("search_specs",HtmlFile)
case else
HtmlFile="search.asp?keyword="&server.HTMLEncode(keyword)
pagenav=plist_bottom("search_keyword",HtmlFile)
End select
elseif statics=1 or statics=2 then
Select Case act
case "hot"
HtmlFile="hot"&HtmlExt
pagenav=plist_bottom("search_hot",HtmlFile)
case "new"
HtmlFile="new"&HtmlExt
pagenav=plist_bottom("search_new",HtmlFile)
case "rec"
HtmlFile="rec"&HtmlExt
pagenav=plist_bottom("search_rec",HtmlFile)
case "spec"
HtmlFile="#"
pagenav=plist_bottom("search_spec",HtmlFile)
case "specs"
HtmlFile="#"
pagenav=plist_bottom("search_specs",HtmlFile)
case else
HtmlFile="se-"&server.HTMLEncode(keyword)&"-1"&HtmlExt
pagenav=plist_bottom("search_keyword",HtmlFile)
End select
end if
'分类
strclass=product_tree("",HtmlUrl)
'模板替换
call Moban_search_replace()
call UTFWrite(Moban)
call CloseConn()
%>