?? searchadv.asp
字號:
<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_Const.asp"-->
<!--#include file="Inc/Cl_Function_Public.asp"-->
<%
Const SearchWaitTime = 0
Rem 每次使用的間隔時間，單位(秒)，可防止惡意搜索給服務(wù)器帶來嚴重負荷
Const NoModulePageSize = 12 Rem 不指定模塊時每個模塊顯示記錄數(shù)
Dim Action,ChannelID,FileName_2
Dim Dates,PointM,PointB,MoneyM,MoneyB,Elite,Hot,ModuleID
Action = LCase(request("Action"))
ChannelID = Cl.GetClng(request("ChannelID"))
'Field = Trim(request("Field"))
'keyword = Trim(request("keyword"))
Elite = Cl.GetClng(request("Elite"))
Hot = Cl.GetClng(request("Hot"))
Dates = Cl.GetClng(request("Dates"))
PageSize = Cl.GetClng(request("PageSize"))
PointM = Cl.GetClng(request("PointM"))
PointB = Trim(request("PointB"))
MoneyM = Cl.GetClng(request("MoneyM"))
MoneyB = Trim(request("MoneyB"))
ModuleID = Cl.GetClng(request("ModuleID"))
FileName = "SearchAdv.Asp?Action=do&ChannelID="&ChannelID&"&Field=" & Field & "&Keyword=" & keyword & "&Elite=" & Elite & "&Hot=" & Hot & "&Dates=" & Dates & "&PageSize=" & PageSize & "&PointM=" & PointM & "&PointB=" & PointB & "&MoneyM=" & MoneyM & "&MoneyB=" & MoneyB & "&ModuleID=" & ModuleID
FileName_2 = "SearchAdv.Asp?Action=do&ChannelID="&ChannelID&"&Field=" & Field & "&Keyword=" & keyword & "&Elite=" & Elite & "&Hot=" & Hot & "&Dates=" & Dates & "&PageSize=" & PageSize & "&PointM=" & PointM & "&PointB=" & PointB & "&MoneyM=" & MoneyM & "&MoneyB=" & MoneyB
if PageSize<=0 then PageSize=20
'if ModuleID<=0 then ModuleID=2
if Not IsNumeric(PointB) then PointB=-1 else PointB=Clng(PointB) end if
if Not IsNumeric(MoneyB) then MoneyB=-1 else MoneyB=Clng(MoneyB) end If
If Field="" Then Field="Title"
Cl.Title = "高級搜索[" & Cl.Title & "]"
Cl.Path=Cl.Language.selectSingleNode("//CurrentPath").text & "<a href='" & Cl.Web_info(4) & "'>" & Cl.Web_info(0) & "</a> >> 高級搜索"
Cl.DeScription = Cl.Title
Dim SQLStr_1, SQLStr_2, SQLStr_3, SQLStr_4, SQLStr_5, SQLStr_6
Dim LoopStr_1, LoopStr_2, LoopStr_3, LoopStr_4, LoopStr_5, LoopStr_6
SQLStr_1 = "Title, FontColor, FontType, Author, CopyFrom, Editor, UpdateTime, Censor, CensorTime, Stars, OnTop, Hot, Elite, Hits, DayHits, WeekHits, MonthHits, InfoGroup, InfoPoint, InfoMoney, PicUrl, Intro, IsLink, IsHtml, HtmlFileUrl, LastHitTime, CommentCount from Cl_Article "
LoopStr_1 = "<tr>" & _
" <td align='right'></td>" & _
" <td width='100%'><strong>【編號：{$infoid}】<a href='{$linkurl}' target='_blank'>{$prefixion}{$title}</a></strong></td>" & _
" <td align='center'> </td>" & _
"</tr>" & _
"<tr>" & _
" <td colspan='3'>" & _
" <font color='#66CCCC'> " & _
" 時間:{$updatetime} " & _
" 來源:{$author} " & _
" 金錢:<font color='#FF0000'>{$infomoney}</font>元 " & _
" 點數(shù):<font color='#0000FF'>{$infopoint}</font>點 " & _
" 點擊次數(shù):<font color='#ff0033'>{$hits}</font>" & _
" </font>" & _
" </td>" & _
"</tr>" & _
"<tr>" & _
" <td height='50' colspan='3' valign='top'>" & _
" <div class='intro'>{$intro(200)}</div>" & _
" </td>" & _
"</tr>" & _
"<tr>" & _
" <td height='5' colspan='3'></td>" & _
"</tr>"
SQLStr_2 = "SoftName, FontColor, FontType, SoftVersion, Author, AuthorEmail, Editor, UpdateTime, Censor, CensorTime, Stars, OnTop, Hot, Elite, Hits, DayHits, WeekHits, MonthHits, InfoGroup, InfoPoint, InfoMoney, Intro, SoftPassword, OperatingSystem, SoftSize, SoftType, SoftLanguage, CopyrightType, IsHtml, HtmlFileUrl, LastHitTime, CommentCount from Cl_Soft "
LoopStr_2 = "<tr>" & _
" <td align='right'></td>" & _
" <td width='100%'><strong>【編號：{$infoid}】<a href='{$linkurl}' target='_blank'>{$prefixion}{$softname} {$softversion}</a></strong></td>" & _
" <td align='center'> </td>" & _
"</tr>" & _
"<tr>" & _
" <td colspan='3'>" & _
" <font color='#66CCCC'> " & _
" 時間:{$updatetime} " & _
" 來源:{$author} " & _
" 類別:{$softtype} " & _
" 語言:{$softlanguage} " & _
" 大小:<font color='#0000ff'>{$softsize}</font> " & _
" 金錢:<font color='#FF0000'>{$infomoney}</font>元 " & _
" 點數(shù):<font color='#0000FF'>{$infopoint}</font>點 " & _
" 下載次數(shù):<font color='#ff0033'>{$hits}</font>" & _
" </font>" & _
" </td>" & _
"</tr>" & _
"<tr>" & _
" <td height='50' colspan='3' valign='top'>" & _
" <div class='intro'>{$intro(200)}</div>" & _
" </td>" & _
"</tr>" & _
"<tr>" & _
" <td height='5' colspan='3'></td>" & _
"</tr>"
SQLStr_3 = "PhotoName, FontColor, FontType, Author, AuthorEmail, Editor, UpdateTime, Censor, CensorTime, Stars, OnTop, Hot, Elite, Hits, DayHits, WeekHits, MonthHits, InfoGroup, InfoPoint, InfoMoney, Intro, IsDownLoad, DownLoadNum, IsHtml, HtmlFileUrl, LastHitTime, CommentCount from Cl_Photo "
LoopStr_3 = "<tr>" & _
" <td align='right'></td>" & _
" <td width='100%'><strong>【編號：{$infoid}】<a href='{$linkurl}' target='_blank'>{$prefixion}{$photoname}</a></strong></td>" & _
" <td align='center'> </td>" & _
"</tr>" & _
"<tr>" & _
" <td colspan='3'>" & _
" <font color='#66CCCC'> " & _
" 時間:{$updatetime} " & _
" 來源:{$author} " & _
" 金錢:<font color='#FF0000'>{$infomoney}</font>元 " & _
" 點數(shù):<font color='#0000FF'>{$infopoint}</font>點 " & _
" 查看次數(shù):<font color='#ff0033'>{$hits}</font>" & _
" </font>" & _
" </td>" & _
"</tr>" & _
"<tr>" & _
" <td height='50' colspan='3' valign='top'>" & _
" <div class='intro'>{$intro(200)}</div>" & _
" </td>" & _
"</tr>" & _
"<tr>" & _
" <td height='5' colspan='3'></td>" & _
"</tr>"
SQLStr_4 = "MovieName, FontColor, FontType, Director, ActName, Editor, UpdateTime, Censor, CensorTime, Stars, OnTop, Hot, Elite, Hits, DayHits, WeekHits, MonthHits, DownNums, InfoGroup, InfoPoint, InfoMoney, IsOnLine, IsDownLoad, Intro, MovieFormat, MovieLong, MovieCorner, MovieLanguage, IsHtml, HtmlFileUrl, LastHitTime, CommentCount from Cl_Movie "
LoopStr_4 = "<tr>" & _
" <td align='right'></td>" & _
" <td width='100%'><strong>【編號：{$infoid}】<a href='{$linkurl}' target='_blank'>{$prefixion}{$moviename}</a></strong></td>" & _
" <td align='center'> </td>" & _
"</tr>" & _
"<tr>" & _
" <td colspan='3'>" & _
" <font color='#66CCCC'> " & _
" 時間:{$updatetime} " & _
" 金錢:<font color='#FF0000'>{$infomoney}</font>元 " & _
" 點數(shù):<font color='#0000FF'>{$infopoint}</font>點 " & _
" 下載次數(shù):<font color='#ff0033'>{$hits}</font>" & _
" </font>" & _
" </td>" & _
"</tr>" & _
"<tr>" & _
" <td height='50' colspan='3' valign='top'>" & _
" <div class='intro'>{$intro(200)}</div>" & _
" </td>" & _
"</tr>" & _
"<tr>" & _
" <td height='5' colspan='3'></td>" & _
"</tr>"
SQLStr_5 = "ProductName, FontColor, FontType, ProductSn, Producer, Trademark, ProductModel, ProductUnit, Editor, UpdateTime, Censor, CensorTime, Stars, OnTop, Hot, Elite, Hits, DayHits, WeekHits, MonthHits, InfoGroup, InfoPoint, MarketPrice, MemberPrice, TruePrice, Discount, PresentExp, Intro, ProductType, CardPoint, StockNum, BuyTimes, BeginDate, EndDate, NoOver, IsHtml, HtmlFileUrl, LastHitTime, CommentCount from Cl_Product "
LoopStr_5 = "<tr>" & _
" <td align='right'></td>" & _
" <td width='100%'><strong>【編號：{$infoid}】<a href='{$linkurl}' target='_blank'>{$prefixion}{$productname}</a></strong></td>" & _
" <td align='center'> </td>" & _
"</tr>" & _
"<tr>" & _
" <td height='50' colspan='3' valign='top'>" & _
" <div class='intro'>{$intro(200)}</div>" & _
" </td>" & _
"</tr>" & _
"<tr>" & _
" <td height='5' colspan='3'></td>" & _
"</tr>"
'Response.write Template.ReplaceAllFlag(Template.Head)
SQLStr_6 = "Title, FontColor, FontType, Keyword, SupplyType, CompanyName, LinkMan, LinkAddress, LinkZipCode, LinkPhone, LinkFax, LinkMobile, LinkEmail, LinkQQ, ValidTime, Editor, UpdateTime, Censor, CensorTime, Stars, OnTop, Hot, Elite, Hits, DayHits, WeekHits, MonthHits, InfoGroup, InfoPoint, InfoMoney, PicUrl, Intro, IsHtml, HtmlFileUrl, LastHitTime, CommentCount from Cl_Supply "
LoopStr_6 = "<tr>" & _
" <td align='right'></td>" & _
" <td width='100%'><strong>【編號：{$infoid}】<a href='{$linkurl}' target='_blank'>{$prefixion}{$title}</a></strong></td>" & _
" <td align='center'> </td>" & _
"</tr>" & _
"<tr>" & _
" <td height='50' colspan='3' valign='top'>" & _
" <div class='intro'>{$intro(200)}</div>" & _
" </td>" & _
"</tr>" & _
"<tr>" & _
" <td height='5' colspan='3'></td>" & _
"</tr>"
Call SearchFormMain()
'Response.write Template.ReplaceAllFlag(Template.Bottom)
SQLStr_1 = Empty
SQLStr_2 = Empty
SQLStr_3 = Empty
SQLStr_4 = Empty
SQLStr_5 = Empty
SQLStr_6 = Empty
LoopStr_1 = Empty
LoopStr_2 = Empty
LoopStr_3 = Empty
LoopStr_4 = Empty
LoopStr_5 = Empty
LoopStr_6 = Empty
CloseAllObj
Sub SearchFormMain()
Template.ProjectID = Cl.ProjectID
Template.TemplateID = 0
Template.CssID = Cl.CssID
Call Template.Load(0,12)
TempStr = Template.Html
if Action="do" Then
TempStr = Replace(TempStr,"{$showsearchcontent}",ShowSearchContent)
Else
TempStr = Replace(TempStr,"{$showsearchcontent}","<p align='center' style='font-size:18px;color:#ff0033'>請在“輸入關(guān)鍵字”處輸入關(guān)鍵字，然后點擊搜索！</p>")
End If
TempStr = Replace(TempStr,"{$searchwaittime}",SearchWaitTime)
TempStr = Replace(TempStr,"{$channelid}",ChannelID)
TempStr = Replace(TempStr,"{$moduleid}",ModuleID)
TempStr = Replace(TempStr,"{$classid}",ClassID)
TempStr = Replace(TempStr,"{$dates}",Dates)
TempStr = Replace(TempStr,"{$pagesize}",PageSize)
TempStr = Replace(TempStr,"{$field}",Field)
TempStr = Replace(TempStr,"{$pointm}",PointM)
TempStr = Replace(TempStr,"{$pointb}",PointB)
TempStr = Replace(TempStr,"{$moneym}",MoneyM)
TempStr = Replace(TempStr,"{$moneyb}",MoneyB)
If Keyword = "" Then Keyword="輸入關(guān)鍵字"
TempStr = Replace(TempStr,"{$keyword}",Keyword)
TempStr = Replace(TempStr,"{$createchanneloptionjs}",CreateChannelOptionJs(ChannelID,ClassID,"ChannelID","ClassID"))
Response.write Template.ReplaceAllFlag(TempStr)
End Sub
Function ShowSearchContent_0()
Dim InfoTable,TitleColumn,XMLData,LoopStr
Dim sqlSearch,WhereStr,tWhereStr,HTMLStr
Dim ii
Rem 搜索條件Begin
if ChannelID>0 then WhereStr = WhereStr & " and ChannelID="&ChannelID&" "
if PointB>-1 then
if PointB > PointM then
WhereStr = WhereStr & " and InfoPoint>="&PointM&" and InfoPoint<="&PointB&" "
else
WhereStr = WhereStr & " and InfoPoint="&PointB&" "
end if
end if
if MoneyB>-1 then
if MoneyB > MoneyM then
WhereStr = WhereStr & " and InfoMoney>="&MoneyM&" and InfoMoney<="&MoneyB&" "
else
WhereStr = WhereStr & " and InfoMoney="&MoneyB&" "
end if
end if
if Elite=1 then WhereStr = WhereStr & " and Elite="&TrueType&" "
if Hot=1 then WhereStr = WhereStr & " and Hot="&TrueType&" "
if Dates>0 Then
If IsSQLDatabase = 1 then
WhereStr = WhereStr & " and Datediff(d,UpdateTime,getdate())<="&Dates&" "
Else
WhereStr = WhereStr & " and Datediff('d',UpdateTime,now())<="&Dates&" "
End if
End if
if Keyword<>"" and Keyword<>"輸入關(guān)鍵字" Then
Dim ArrKeyWord,Ki,Kn
Keyword = Cl.ReplaceBadChar(Keyword)
ArrKeyWord = Split(Keyword,";")
Kn = UBound(ArrKeyWord)
WhereStr = WhereStr & " and ("
Select Case Field
Case "Title"
WhereStr = WhereStr & " {$TitleColumn} like '%" & ArrKeyWord(0) & "%' "
If Kn > 0 Then
For Ki=1 To Kn
WhereStr = WhereStr & " Or {$TitleColumn} like '%" & ArrKeyWord(Ki) & "%' "
Next
End if
Case "Keyword"
WhereStr = WhereStr & " Keyword like '%" & ArrKeyWord(0) & "%' "
If Kn > 0 Then
For Ki=1 To Kn
WhereStr = WhereStr & " Or Keyword like '%" & ArrKeyWord(Ki) & "%' "
Next
End if
Case "Intro"
WhereStr = WhereStr & " Intro like '%" & ArrKeyWord(0) & "%' "
If Kn > 0 Then
For Ki=1 To Kn
WhereStr = WhereStr & " Or Intro like '%" & ArrKeyWord(Ki) & "%' "
Next
End if
' Case "CopyFrom"
' WhereStr = WhereStr & " Author like '%" & ArrKeyWord(0) & "%' "
' If Kn > 0 Then
' For Ki=1 To Kn
' WhereStr = WhereStr & " Or Author like '%" & ArrKeyWord(Ki) & "%' "
' Next
' End if
Case "Editor"
WhereStr = WhereStr & " Editor='" & ArrKeyWord(0) & "' "
If Kn > 0 Then
For Ki=1 To Kn
WhereStr = WhereStr & " Or Editor='" & ArrKeyWord(Ki) & "' "
Next
End if
Case "Censor"
WhereStr = WhereStr & " Censor='" & ArrKeyWord(0) & "' "
If Kn > 0 Then
For Ki=1 To Kn
WhereStr = WhereStr & " Or Censor='" & ArrKeyWord(Ki) & "' "
Next
End if
Case Else
WhereStr = WhereStr & " {$TitleColumn} like '%" & ArrKeyWord(0) & "%' "
If Kn > 0 Then
For Ki=1 To Kn
WhereStr = WhereStr & " Or {$TitleColumn} like '%" & ArrKeyWord(Ki) & "%' "
Next
End if
End Select
WhereStr = WhereStr & ")"
End if
if WhereStr="" then Call Cl.OutMsg(0,"請輸入搜索關(guān)鍵字或者選擇搜索參數(shù)！","-1")
Rem 對搜索時間進行判斷
If Request("IsSearch") = "yes" and IsDate(Session("SearchTime")) Then
If DateDiff("S",Session("SearchTime"),Now()) < SearchWaitTime Then
Call Cl.OutErr(0,"請休息60秒后再使用此功能！")
End if
End If
Session("SearchTime") = Now()
Rem End
Rem 搜索條件End
Dim ModuleName
For ii=1 To 5
sqlSearch = "select Top "&NoModulePageSize&" InfoID, ChannelID, ChannelDir, ClassID, Prefixion, "
Select Case ii
Case 2
ModuleName = "軟件"
InfoTable = "Cl_Soft"
TitleColumn = "SoftName"
sqlSearch = sqlSearch & SQLStr_2
LoopStr = "<tr>" & _
" <td align='right'></td>" & _
" <td width='100%'>【編號：{$infoid}】<a href='{$linkurl}' target='_blank'>{$prefixion}{$softname} {$softversion}</a></td>" & _
" <td align='center'> </td>" & _
"</tr>"
Case 3
ModuleName = "圖片"
InfoTable = "Cl_Photo"
TitleColumn = "PhotoName"
sqlSearch = sqlSearch & SQLStr_3
LoopStr = "<tr>" & _
" <td align='right'></td>" & _
" <td width='100%'>【編號：{$infoid}】<a href='{$linkurl}' target='_blank'>{$prefixion}{$photoname}</a></td>" & _
" <td align='center'> </td>" & _
"</tr>"
Case 4
ModuleName = "影片"
InfoTable = "Cl_Movie"
TitleColumn = "MovieName"
sqlSearch = sqlSearch & SQLStr_4
LoopStr = "<tr>" & _
" <td align='right'></td>" & _
" <td width='100%'>【編號：{$infoid}】<a href='{$linkurl}' target='_blank'>{$prefixion}{$moviename}</a></td>" & _
" <td align='center'> </td>" & _
"</tr>"
Case 5
ModuleName = "商品"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -