cl_clspage.asp

正版创力4.1SQL商业版!!!ASP版。

		TempStr = Replace(TempStr,"{$movieplay}",PlayTemplate)
		PlayTemplate = Empty
		DownLoadUrl = Empty
		ArrayUrl = Empty
	End Sub

	Public Sub Movie_GetPlayUrl()
		dim UrlID,ComeUrl,DownloadUrl,DownUrlStr
		UrlID=Cl.GetClng(request("UrlID"))
		if InfoID<=0 then Exit Sub
		if Cl.TrueInfoPurview=False then
			Response.write Cl.ErrMessage
			Response.end
		end if
		if UrlID < 0 then UrlID=0
		DownUrlStr=rs("MovieUrl")
		On Error Resume Next
		if InStr(DownUrlStr,"@@@")>0 then
			DownUrlStr=Split(DownUrlStr,"@@@")
			if UrlID>Ubound(DownUrlStr) then UrlID=Ubound(DownUrlStr)
			DownLoadUrl=Split(DownUrlStr(UrlID),"|")(1)
			DownUrlStr=Empty
		else
			DownLoadUrl=Split(DownUrlStr,"|")(1)
		end if
		On Error GoTo 0
		if DownloadUrl="" or DownloadUrl="http://" then Response.end
		if Cl.GetCookies("View_"&ChannelID&"_" & InfoID)<>"OK" then
			Call Cl.UpdateInfoHits("Cl_Movie",InfoID,rs("LastHitTime"))
			Cl.SetCookies "View_"&ChannelID&"_" & InfoID,"OK"
		end if
		DownloadUrl=Lcase(DownloadUrl)
		if left(DownloadUrl,7)<>"http://" and left(DownloadUrl,6)<>"mms://" and left(DownloadUrl,7)<>"rtsp://" then
			DownloadUrl=Cl.ServerName & "/" & Cl.ReplaceDir(DownloadUrl)
			DownloadUrl="http://" & Replace(DownloadUrl,"//","/")
		End if
		Response.write DownloadUrl
	End Sub

	Public Sub Movie_Down()
		if InfoID<=0 then Call Cl.OutMsg(0,"请指定软件ID",ComeUrl)
		if Cl.TrueInfoPurview=False then
			Response.write Cl.ErrMessage
			Response.end
		end if
		dim UrlID,ComeUrl
		dim DownloadUrl,DownUrlStr
		UrlID=Cl.GetClng(request("UrlID"))
		ComeUrl=Cstr(Request.ServerVariables("HTTP_REFERER"))
		if UrlID<0 then UrlID=0
		DownUrlStr=rs("MovieUrl")
		On Error Resume Next
		if InStr(DownUrlStr,"@@@")>0 then
			DownUrlStr=Split(DownUrlStr,"@@@")
			if UrlID>Ubound(DownUrlStr) then UrlID=Ubound(DownUrlStr)
			DownLoadUrl=Split(DownUrlStr(UrlID),"|")(1)
			DownUrlStr=Empty
		else
			DownLoadUrl=Split(DownUrlStr,"|")(1)
		end if
		On Error GoTo 0
		if DownloadUrl="" or DownloadUrl="http://" then
			Call Cl.OutMsg(0,"找不到有效下载地址，请点确定返回，然后点击其它下载地址！",ComeUrl)
		end if
		if Cl.GetCookies("Down_"&ChannelID&"_" & InfoID)<>"Yes" then
			dim StrUpdate
			StrUpdate="Update Cl_Movie Set DownNums=DownNums+1"
			if datediff("D",rs("LastHitTime"),now())<=0 then
				StrUpdate=StrUpdate & ",DayDownNums=DayDownNums+1"
			else
				StrUpdate=StrUpdate & ",DayDownNums=1"
			end if
			if datediff("ww",rs("LastHitTime"),now())<=0 then
				StrUpdate=StrUpdate & ",WeekDownNums=WeekDownNums+1"
			else
				StrUpdate=StrUpdate & ",WeekDownNums=1"
			end if
			if datediff("m",rs("LastHitTime"),now())<=0 then
				StrUpdate=StrUpdate & ",MonthDownNums=MonthDownNums+1"
			else
				StrUpdate=StrUpdate & ",MonthDownNums=1"
			end if
			StrUpdate=StrUpdate & ",LastHitTime='"&Now&"' where InfoID=" & InfoID
			Cl.Execute(StrUpdate)
			Cl.SetCookies "Down_"&ChannelID&"_" & InfoID,"Yes"
		end if
		DownloadUrl=Cl.ReplaceDir(DownloadUrl)
		if left(lcase(DownloadUrl),7)="http://" or left(lcase(DownloadUrl),6)="ftp://" or Not Cl.ChkObjInstalled(Trim(Cl.Web_Info(13))) or Trim(Cl.Web_Setting(11))="Yes" then
			response.redirect DownloadUrl
		else
			Call Cl.downloadFile(Server.MapPath(DownloadUrl),InfoTitle)
		end if
	End Sub
	Rem =========================================
	Rem 商城模块 ================================
	Public Sub Product_Index()
		PageSize=Cl.ChannelOtherSetting(9)
		Cl.Path=CurrentPath & " &gt;&gt; 首页"
		If CLng(Cl.Channel.selectSingleNode("@index_projectid").text)>0 Then
			Template.ProjectID = CLng(Cl.Channel.selectSingleNode("@index_projectid").text)
			Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@index_templateid").text)
			Template.CssID = CLng(Cl.Channel.selectSingleNode("@index_cssid").text)
		End if
		if Clng(Cl.Channel.selectSingleNode("@iscreatehtml").text)=1 and Cl.Web_Info(15) = "1" Then
			Rem 定时生成首页（待测试）
			Dim CurrentHour,IndexFileUrlStr
			CurrentHour		= Hour(Now())
			IndexFileUrlStr = Cl.WebDir & Cl.GetItemIndexPath(Cl.CreatePathType, Cl.HtmlDir, Cl.ChannelDir) & "Index." & Cl.CreateFileExt
			If InStr(","&Cl.Web_Info(17)&",",","&CurrentHour&",")>0 Then
				Cl.Name="CreateIndex"
				If InStr(","&Cl.value&",",","&ChannelID&"_"&CurrentHour&",")=0 Then
				Call Template.Load(5,1)
				TempStr = Template.Html
				TempStr = Template.ReplaceAllFlag(TempStr)
				Call Cl.MakeHtml(TempStr,IndexFileUrlStr)
				Cl.Name	= "CreateIndex"
				Cl.Value= Cl.Value & ","&ChannelID&"_" & CurrentHour
				End If
			End If
			Response.redirect(IndexFileUrlStr)
			Response.end
		End if
		Call Template.Load(5,1)
		TempStr = Template.Html
	End Sub

	Public Sub Product_Class()
		PageSize=Cl.ChannelOtherSetting(3)
		Cl.Path=CurrentPath
		if ClassID>0 then
			if Not Cl.TrueBrowsePurview and CreateHtmlIng=False then Call Cl.OutErr(0,Cl.Language.selectSingleNode("//ClassNoPurview").text)
			Cl.Title= ClassName & "--" & Cl.NoHtml(Cl.ChannelName) & " " & Cl.GotTopic(Cl.ChannelReadMe,50) & "[" & Cl.Web_info(1) & "]"
		end if
		FileName="ShowClass.asp?ClassID=" & ClassID
		Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@class_templateid").text)
		If CLng(ClassTemplateID)>0 Then Template.TemplateID = ClassTemplateID
		Call Template.Load(5,2)
		TempStr = Template.Html
		TempStr = Template.ReplaceInfoLoop(5,TempStr,0,"")
	End Sub

	Public Sub Product_Elite()
		PageSize=Cl.ChannelOtherSetting(6)
		Cl.Path=CurrentPath & " &gt;&gt; 推荐列表"
		Cl.Title= "推荐列表--" & Cl.NoHtml(Cl.ChannelName) & " " & Cl.GotTopic(Cl.ChannelReadMe,50) & "[" & Cl.Web_info(1) & "]"
		FileName="ShowElite.asp?ClassID=" & ClassID
		If CLng(Cl.Channel.selectSingleNode("@elite_projectid").text)>0 Then
			Template.ProjectID = CLng(Cl.Channel.selectSingleNode("@elite_projectid").text)
			Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@elite_templateid").text)
			Template.CssID = CLng(Cl.Channel.selectSingleNode("@elite_cssid").text)
		End if
		Call Template.Load(5,3)
		TempStr = Template.Html
		TempStr = Template.ReplaceInfoLoop(5,TempStr,0,"and Elite="&TrueType)
	End Sub

	Public Sub Product_Hot()
		PageSize=Cl.ChannelOtherSetting(7)
		Cl.Path=CurrentPath & " &gt;&gt; 热门列表"
		Cl.Title= "热门列表--" & Cl.NoHtml(Cl.ChannelName) & " " & Cl.GotTopic(Cl.ChannelReadMe,50) & "[" & Cl.Web_info(1) & "]"
		FileName="ShowHot.asp?ClassID=" & ClassID
		If CLng(Cl.Channel.selectSingleNode("@hot_projectid").text)>0 Then
			Template.ProjectID = CLng(Cl.Channel.selectSingleNode("@hot_projectid").text)
			Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@hot_templateid").text)
			Template.CssID = CLng(Cl.Channel.selectSingleNode("@hot_cssid").text)
		End if
		Call Template.Load(5,4)
		TempStr = Template.Html
		TempStr = Template.ReplaceInfoLoop(5,TempStr,0,"and Hot="&TrueType)
	End Sub

	Public Sub Product_Update()
		PageSize=Cl.ChannelOtherSetting(5)
		Cl.Path=CurrentPath & " &gt;&gt; 推荐列表"
		Cl.Title= "推荐列表--" & Cl.NoHtml(Cl.ChannelName) & " " & Cl.GotTopic(Cl.ChannelReadMe,50) & "[" & Cl.Web_info(1) & "]"
		FileName="ShowUpdate.asp?ClassID=" & ClassID
		If CLng(Cl.Channel.selectSingleNode("@update_projectid").text)>0 Then
			Template.ProjectID = CLng(Cl.Channel.selectSingleNode("@update_projectid").text)
			Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@update_templateid").text)
			Template.CssID = CLng(Cl.Channel.selectSingleNode("@update_cssid").text)
		End if
		Call Template.Load(5,5)
		TempStr = Template.Html
		TempStr = Template.ReplaceInfoLoop(5,TempStr,0,"")
	End Sub

	Public Sub Product_Search()
		PageSize=Cl.ChannelOtherSetting(8)
		Cl.Path=CurrentPath & " &gt;&gt; 搜索结果"
		Cl.Title= "搜索结果--" & Cl.NoHtml(Cl.ChannelName) & " " & Cl.GotTopic(Cl.ChannelReadMe,50) & "[" & Cl.Web_info(1) & "]"
		FileName="ShowSearch.asp?Field=" & Field & "&Keyword=" & Keyword & "&ClassID=" & ClassID & "&SpecialID=" & SpecialID
		Rem 搜索Begin
		Dim KeywordTitle,TopNum,WhereStr
		if Keyword="" then Call Cl.OutErr(0,"<p align='center'><br /><br />请输入关键字！</p>")
		TopNum	= Cl.GetClng(Request("TopNum"))
		Keyword = Cl.ReplaceBadChar(Keyword&"")
		KeywordTitle = "<font color=""#ff0033"">"&Keyword&"</font>"
		Select Case LCase(Field)
		Case "id"
			KeywordTitle="ID号为 "&KeywordTitle
			WhereStr = " and InfoID = "&Cl.GetClng(Keyword)&" "
		Case "productsn"
			KeywordTitle="编号为 "&KeywordTitle
			WhereStr = " and ProductSn='" & Keyword & "' "
		Case "keyword"
			KeywordTitle="关键字含有 "&KeywordTitle
			WhereStr = " and Keyword like '%" & Keyword & "%' "
		Case "intro"
			KeywordTitle="简介含有 "&KeywordTitle
			WhereStr = " and Intro like '%" & Keyword & "%' "
		Case "producer"
			KeywordTitle="生产商含有 "&KeywordTitle
			WhereStr = " and Producer like '%" & Keyword & "%' "
		Case "trademark"
			KeywordTitle="品牌商标含有 "&KeywordTitle
			WhereStr = " and Trademark like '%" & Keyword & "%' "
		Case "productmodel"
			KeywordTitle="型号含有 "&KeywordTitle
			WhereStr = " and ProductModel like '%" & Keyword & "%' "
		Case "editor"
			KeywordTitle=KeywordTitle&" 添加"
			WhereStr = " and Editor='" & Keyword & "' "
		Case "censor"
			KeywordTitle=KeywordTitle&" 审核"
			WhereStr = " and Censor='" & Keyword & "' "
		Case "marketprice"
			KeywordTitle="市场价小于或等于 "&KeywordTitle
			WhereStr = " and MarketPrice <= "&Cl.GetClng(Keyword)&" "
		Case "memberprice"
			KeywordTitle="会员价小于或等于 "&KeywordTitle
			WhereStr = " and MemberPrice <= "&Cl.GetClng(Keyword)&" "
		Case "point"
			KeywordTitle=""&Cl.Web_Setting(28)&"小于或等于 "&KeywordTitle
			WhereStr = " and InfoPoint <= "&Cl.GetClng(Keyword)&" "
		Case Else
			KeywordTitle="名称含有 "&KeywordTitle
			WhereStr = " and ProductName like '%" & Keyword & "%' "
		End Select
		KeywordTitle = KeywordTitle & " 的"&Cl.ChannelItemName
		Rem 搜索End
		If CLng(Cl.Channel.selectSingleNode("@search_projectid").text)>0 Then
			Template.ProjectID = CLng(Cl.Channel.selectSingleNode("@search_projectid").text)
			Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@search_templateid").text)
			Template.CssID = CLng(Cl.Channel.selectSingleNode("@search_cssid").text)
		End if
		Call Template.Load(5,6)
		TempStr = Template.Html
		TempStr = Replace(TempStr,"{$keywordtitle}",KeywordTitle)
		TempStr = Template.ReplaceInfoLoop(5,TempStr,0,WhereStr)
	End Sub

	Public Sub Product_Special()
		Call Special_Setting()
		PageSize=Cl.ChannelOtherSetting(4)
		Cl.Path=CurrentPath & " &gt;&gt; 专题列表"
		Cl.Title= "专题列表--" & Cl.NoHtml(Cl.ChannelName) & " " & Cl.GotTopic(Cl.ChannelReadMe,50) & "[" & Cl.Web_info(1) & "]"
		FileName="ShowSpecial.asp?SpecialID=" & SpecialID
		If CLng(Cl.Channel.selectSingleNode("@special_projectid").text)>0 Then
			Template.ProjectID = CLng(Cl.Channel.selectSingleNode("@special_projectid").text)
			Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@special_templateid").text)
			Template.CssID = CLng(Cl.Channel.selectSingleNode("@special_cssid").text)
		End if
		Call Template.Load(5,7)
		TempStr = Template.Html
		TempStr = Template.ReplaceInfoLoop(5,TempStr,0,"and SpecialID like (',"&SpecialID&",')")
	End Sub

	Public Sub Product_Show()
		Cl.Path			= CurrentPath & " &gt;&gt; " & Cl.ChannelItemName & "信息"
		Cl.Title		= InfoTitle & "[" & Cl.Web_info(1) & "]"
		if Not IsNull(rs("Intro")) then
			Cl.DeScriptIon=InfoTitle & "[" & Replace(Left(Cl.NoHtml(rs("Intro")),150),VbCrlf,"") & "]"
		else
			Cl.DeScriptIon=InfoTitle & "、" & Cl.Web_info(3)
		end if
		Cl.Keywords=InfoTitle & "|" & rs("Keyword") & "|" & Cl.Web_Info(2)
		Cl.Keywords=Replace(Cl.Keywords,"||","|")
		If Rs("ProjectID")>0 Then
			Template.ProjectID = Rs("ProjectID")
			Template.TemplateID = Rs("TemplateID")
			Template.CssID = Rs("CssID")
		End if
		Call Template.Load(5,8)
		TempStr = Template.Html
		TempStr = Template.Replace