📄 searchadv.asp

📁 淘客网上商店网站程序淘客网上商店网站程序淘客网上商店网站程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_Const.asp"-->
<!--#include file="Inc/Cl_Function_Public.asp"-->
<%
Const SearchWaitTime = 0
Rem 每次使用的间隔时间，单位(秒)，可防止恶意搜索给服务器带来严重负荷
Const NoModulePageSize = 12 Rem 不指定模块时每个模块显示记录数
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> &gt;&gt; 高级搜索"
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'>&nbsp;</td>" & _
	"</tr>" & _
	"<tr>" & _
	"	<td colspan='3'>" & _
	"	<font color='#66CCCC'>&nbsp;&nbsp;&nbsp;&nbsp;" & _
	"	时间:{$updatetime} &nbsp;" & _
	"	来源:{$author} &nbsp;" & _
	"	金钱:<font color='#FF0000'>{$infomoney}</font>元 &nbsp;" & _
	"	点数:<font color='#0000FF'>{$infopoint}</font>点 &nbsp;" & _
	"	点击次数:<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}&nbsp;&nbsp;{$softversion}</a></strong></td>" & _
	"	<td align='center'>&nbsp;</td>" & _
	"</tr>" & _
	"<tr>" & _
	"	<td colspan='3'>" & _
	"	<font color='#66CCCC'>&nbsp;&nbsp;&nbsp;&nbsp;" & _
	"	时间:{$updatetime} &nbsp;" & _
	"	来源:{$author} &nbsp;" & _
	"	类别:{$softtype} &nbsp;" & _
	"	语言:{$softlanguage} &nbsp;" & _
	"	大小:<font color='#0000ff'>{$softsize}</font> &nbsp;" & _
	"	金钱:<font color='#FF0000'>{$infomoney}</font>元 &nbsp;" & _
	"	点数:<font color='#0000FF'>{$infopoint}</font>点 &nbsp;" & _
	"	下载次数:<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'>&nbsp;</td>" & _
	"</tr>" & _
	"<tr>" & _
	"	<td colspan='3'>" & _
	"	<font color='#66CCCC'>&nbsp;&nbsp;&nbsp;&nbsp;" & _
	"	时间:{$updatetime} &nbsp;" & _
	"	来源:{$author} &nbsp;" & _
	"	金钱:<font color='#FF0000'>{$infomoney}</font>元 &nbsp;" & _
	"	点数:<font color='#0000FF'>{$infopoint}</font>点 &nbsp;" & _
	"	查看次数:<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'>&nbsp;</td>" & _
	"</tr>" & _
	"<tr>" & _
	"	<td colspan='3'>" & _
	"	<font color='#66CCCC'>&nbsp;&nbsp;&nbsp;&nbsp;" & _
	"	时间:{$updatetime} &nbsp;" & _
	"	金钱:<font color='#FF0000'>{$infomoney}</font>元 &nbsp;" & _
	"	点数:<font color='#0000FF'>{$infopoint}</font>点 &nbsp;" & _
	"	下载次数:<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'>&nbsp;</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'>&nbsp;</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'>请在“输入关键字”处输入关键字，然后点击搜索！</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="输入关键字"
	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<>"输入关键字" 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,"请输入搜索关键字或者选择搜索参数！","-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}&nbsp;&nbsp;{$softversion}</a></td>" & _
	"	<td align='center'>&nbsp;</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'>&nbsp;</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'>&nbsp;</td>" & _
	"</tr>"
		Case 5
			ModuleName = "商品"
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -