ï»?!--#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
%> 国产3p露脸福利在线视频_亚洲中文字幕在线一区二区三区_OL湿闷的丝袜中文字幕_亚洲午夜精品无码无片在线观看