?!--#include file="../../inc/const.asp"--> <% dim plus set plus = new cls_plus plus.open("search") plus.state plus.newtpl("plus_search.html") dim key,Ktype key = Request("keyword") Ktype = LCase(Request("searchtype")) if Len(Ktype) = 0 then Ktype = plus.Config("mode") if Ktype <> "title" then Ktype = "titlekeywords" call plus.settpl("{tkc}"," selected ") call plus.settpl("{tc}"," ") else call plus.settpl("{tkc}"," ") call plus.settpl("{tc}"," selected ") end if if Len(key) > 0 then 'On Error Resume Next dim html dim P : P = Request("P") if P = "" or Not IsNumeric(P) then P = 1 if P < 1 then P = 1 P = Cint(P) if Len(key) < 2 then html = plus.Lang("short") else dim SQL,Rs,i,j,Searchstr,aTitle,aDescription,aUrl,aDateTime,aAuthor key = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(key,"'",""),"%",""),"<",""),">",""),"(",""),")",""),"""",""),"|",",")," ",""),"?",""),"*","") key = Left(key,10) : key = LCase(key) if Ktype = "title" then Searchstr = "Where [Title] Like '%" & key & "%'" else Searchstr = "Where [Title] Like '%" & key & "%' Or [Description] Like '%" & key & "%'" end if if Len(Searchstr) = 0 then html = plus.Lang("needkey") else SQL = "Select Top " & plus.Config("maxsize") & " [ID],[Cid],[Title],[Author],[Description],[Diyname],[Createtime],[Viewpath] From [{pre}Content] " & Searchstr & " Order BY [ID] Desc" Set Rs = DB(SQL,2) if Rs.eof then html = plus.Lang("norecords") else if Instr(Session("user_search"), "'" & key & "'") = 0 then dim Ns Set Ns = DB("Select [Name],[Count],[Modifytime] From [{pre}Tags] Where [Name]='" & key & "'",3) if Ns.Eof then Ns.AddNew Ns(0) = key if Len(Ns(1)) = 0 Or IsNull(Ns(1)) then Ns(1) = 1 else Ns(1) = Ns(1) + 1 Ns(2) = Now() Ns.Update : Ns.CLose : Set Ns = Nothing Session("user_search") = Session("user_search") & "'" & key & "'" : Session("user_search") = Replace(Session("user_search"),"''","'") end if dim TempRule,TempNow html = html & Vbcrlf & plus.skin("top") TempRule = plus.skin("list") Rs.PageSize = plus.Config("pagesize") Rs.AbsolutePage = P For i = 1 To Rs.pagesize if Rs.Eof then Exit For aUrl = BuildViewPath(Rs("ID"),Rs("Cid"),Rs("Diyname"),Rs("Createtime"),Rs("Viewpath")) aTitle = Rs("Title") aAuthor = Rs("Author") aDescription = Left(Rs("Description"),160) aDateTime = Year(Rs("createtime")) & "-" & Month(Rs("createtime")) & "-" & Day(Rs("createtime")) aTitle = Replace(aTitle,key,"" & key & "",1,-1,1) aDescription = Replacex(aDescription,key,"" & key & "") TempNow = TempRule html = html & Vbcrlf & Replace(Replace(Replace(Replace(Replace(TempNow,"$aurl", aUrl),"$atitle", atitle),"$adescription", adescription),"$adatetime", adatetime),"$aauthor", aAuthor) Rs.MoveNext Next html = html & Vbcrlf & plus.skin("page") For i=1 To Rs.PageCount if i = P then html = html & " " & i & " " else html = html & " " & i & " " end if Next html = html & Vbcrlf & plus.skin("end") html = RewriteRule(html) end if Rs.Close : Conn.CLose end if end if call plus.settpl("{searchback}",html) if err then response.write "

" & plus.lang("scripterror") & "Q? & err.description else call plus.settpl("{searchback}","") end if call plus.settpl("{keyword}",key) response.write plus.gettpl set plus = nothing %> 在线看片人成视频免费无遮挡 粗大猛烈进出高潮视频 午夜精品久久久久久久 国产人碰人摸人爱视频 一级婬片A片试看120秒
<thead id="iaqki"><rt id="iaqki"></rt></thead>
  • <track id="iaqki"></track><p id="iaqki"></p>
          <pre id="iaqki"></pre>
          天堂视频的在线 精品福利视频一区二区三区 国产高潮刺激叫喊视频 久久桃花综合桃花七七网 少妇无码av无码专区线 永久免费无码网站在线观看 中文字幕第一页 国产成人亚洲精品 久久天堂夜夜一本婷婷 婷婷网亚洲色偷偷男人的天堂 44383x3全国最大的免费观看 中国三级片 国产成人夜色高潮福利影视 色综合热无码热国产 日本学生牲交 欧美黑人肉体狂欢大派对 三上悠亚在线 日本高清不卡aⅴ免费网站 欧美牲交videossexeso 激情图区 三个水嫩大学生闺蜜多水 欧美成人午夜免费全部完 国产在线观看码高清视频 未成满18禁止免费网站福利 成年网站在线在免费线播放欧美 亚洲熟妇无码av在线播放 国产真实露脸精彩对白 试看15分钟做受视频 人人做天天爱夜夜爽 欧美人妻aⅴ中文字幕 色婷婷五月综合丁香中文字幕 巨胸的教师野外在线完整版 最近更新中文字幕2019国语1 丰满的少妇hd高清中文字幕 欧美人与动性行为视频 在线三级片 色丁香 奇米777四色影视在线看 一区二区不卡在线视频 欧洲熟妇色xxxx欧美老妇 三级片电影 日本高清不卡一区二区三区 特黄特色a级毛片视频 44383x3全国最大的免费观看 97电影院 真人裸体一进一出啪啪 黄色视屏 三级片在线 亚洲中文字幕无码一区二区三区 成年无码av片在线观看