<% '根目录 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() %>