cl_clspage.asp

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

		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(4,2)
		TempStr = Template.Html
		TempStr = Template.ReplaceInfoLoop(4,TempStr,0,"")
	End Sub

	Public Sub Movie_Elite()
		PageSize=Cl.ChannelOtherSetting(6)
		Cl.Path=CurrentPath & " >> 推荐列表"
		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(4,3)
		TempStr = Template.Html
		TempStr = Template.ReplaceInfoLoop(4,TempStr,0,"and Elite="&TrueType)
	End Sub

	Public Sub Movie_Hot()
		PageSize=Cl.ChannelOtherSetting(7)
		Cl.Path=CurrentPath & " >> 热门列表"
		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(4,4)
		TempStr = Template.Html
		TempStr = Template.ReplaceInfoLoop(4,TempStr,0,"and Hot="&TrueType)
	End Sub

	Public Sub Movie_Update()
		PageSize=Cl.ChannelOtherSetting(5)
		Cl.Path	= CurrentPath & " >> 更新列表"
		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(4,5)
		TempStr = Template.Html
		TempStr = Template.ReplaceInfoLoop(4,TempStr,0,"")
	End Sub

	Public Sub Movie_Search()
		PageSize=Cl.ChannelOtherSetting(8)
		Cl.Path=CurrentPath & " >> 搜索结果"
		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 "keyword"
			KeywordTitle="关键字含有 "&KeywordTitle
			WhereStr = " and Keyword like '%" & Keyword & "%' "
		Case "intro"
			KeywordTitle="简介含有 "&KeywordTitle
			WhereStr = " and Intro like '%" & Keyword & "%' "
		Case "director"
			KeywordTitle="导演含有 "&KeywordTitle
			WhereStr = " and Director like '%" & Keyword & "%' "
		Case "actname"
			KeywordTitle="主演含有 "&KeywordTitle
			WhereStr = " and ActName like '%" & Keyword & "%' "
		Case "movielanguage"
			KeywordTitle="语言含有 "&KeywordTitle
			WhereStr = " and MovieLanguage like '%" & Keyword & "%' "
		Case "moviecorner"
			KeywordTitle="地区含有 "&KeywordTitle
			WhereStr = " and MovieCorner like '%" & Keyword & "%' "
		Case "editor"
			KeywordTitle=KeywordTitle & " 添加"
			WhereStr = " and Editor='" & Keyword & "' "
		Case "censor"
			KeywordTitle=KeywordTitle & " 审核"
			WhereStr = " and Censor='" & Keyword & "' "
		Case "point"
			KeywordTitle=""&Cl.Web_Setting(28)&"小于或等于 "&KeywordTitle
			WhereStr = " and MoviePoint <= "&Cl.GetClng(Keyword)&" "
		Case Else
			KeywordTitle="名称含有 "&KeywordTitle
			WhereStr = " and MovieName 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(4,6)
		TempStr = Template.Html
		TempStr = Replace(TempStr,"{$keywordtitle}",KeywordTitle)
		TempStr = Template.ReplaceInfoLoop(4,TempStr,0,WhereStr)
	End Sub

	Public Sub Movie_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(4,7)
		TempStr = Template.Html
		TempStr = Template.ReplaceInfoLoop(4,TempStr,0,"and SpecialID like (',"&SpecialID&",')")
	End Sub

	Public Sub Movie_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(4,8)
		TempStr = Template.Html
		TempStr = Template.ReplaceCl_Rs(TempStr)
		TempStr = Cl.ReplaceField(TempStr)
		If InStr(TempStr,"{$movieviewurl}")>0 Then
			if rs("IsOnline")=True then
				TempStr=Replace(TempStr,"{$movieviewurl}",GetMovieUrl(rs("MovieUrl"),"MoviePlay.asp"))
			else
				TempStr=Replace(TempStr,"{$movieviewurl}",Cl.Language.selectSingleNode("//Movie/NoOnline").text)
			end if
		End If
		If InStr(TempStr,"{$moviedownurl}")>0 Then
			if rs("IsDownLoad")=True then
				TempStr=Replace(TempStr,"{$moviedownurl}",GetMovieUrl(rs("MovieUrl"),"MovieDown.asp"))
			else
				TempStr=Replace(TempStr,"{$moviedownurl}",Cl.Language.selectSingleNode("//Movie/NoDownLoad").text)
			end if
		End If
		If InStr(TempStr,"{$declarecomment}")>0 Then TempStr = Replace(TempStr,"{$declarecomment}","")
		if Cl.UserID>0 and Cl.UserGroupID<>5 then
			If InStr(TempStr,"{$isdisabled}")>0 Then TempStr = Replace(TempStr,"{$isdisabled}"," disabled")
			If InStr(TempStr,"{$username}")>0 Then TempStr = Replace(TempStr,"{$username}",Cl.MemberName&"")
			If InStr(TempStr,"{$useremail}")>0 Then TempStr = Replace(TempStr,"{$useremail}",Cl.User_Info(7) & "")
		else
			If InStr(TempStr,"{$isdisabled}")>0 Then TempStr = Replace(TempStr,"{$isdisabled}","")
			If InStr(TempStr,"{$username}")>0 Then TempStr = Replace(TempStr,"{$username}","")
			If InStr(TempStr,"{$useremail}")>0 Then TempStr = Replace(TempStr,"{$useremail}","")
		end if
		If InStr(TempStr,"{$attribute}")>0 Then
			Dim Attribute
			if rs("OnTop") then Attribute="<font color='blue'>顶</font>"
			if rs("Hot") then Attribute=Attribute & "&nbsp;<font color='#ff0033'>热</font>"
			if rs("Elite") then Attribute=Attribute & "&nbsp;<font color='green'>荐</font>"
			TempStr=Replace(TempStr,"{$attribute}",Attribute)
		End If
		If InStr(TempStr,"{$picurl}")>0 Then
			if IsNull(rs("picurl")) or rs("picurl")="" then
				TempStr = Replace(TempStr,"{$picurl}",InstallDir & "images/nopic.gif")
			else
				TempStr = Replace(TempStr,"{$picurl}",rs("picurl")&"")
			end If
		End If
		If InStr(TempStr,"{$infogroup}")>0 Then
			TempStr = Replace(TempStr,"{$infogroup}",Cl.GetUserGroupName(rs("InfoGroup")))
		End If
		If InStr(TempStr,"{$stars}")>0 Then
			TempStr = Replace(TempStr,"{$stars}",Cl.Getstar(rs("Stars")))
		End If
		If InStr(TempStr,"{$intro}")>0 Then
			TempStr = Replace(TempStr,"{$intro}",Cl.Ubbcode(rs("Intro")))
		End If
	End Sub

	Public Sub Movie_Play()
		Dim PlayUrl,UrlID,ComeUrl,sPlayType
		UrlID=Cl.GetClng(request("UrlID"))
		ComeUrl=Cstr(Request.ServerVariables("HTTP_REFERER"))
		sPlayType=Lcase(Trim(request("Type")))
		if InfoID<=0 then Call Cl.OutMsg(0,"请指定ID",ComeUrl)
		if UrlID<0 then UrlID=0
		if Cl.TrueInfoPurview=False then
			Response.write Cl.ErrMessage
			Response.end
		end if
		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.CssID = Rs("CssID")
		End If
		Template.TemplateID = 0
		Call Template.Load(4,10)
		TempStr = Template.Html
		TempStr = Template.ReplaceCl_Rs(TempStr)
		TempStr = Cl.ReplaceField(TempStr)
		If InStr(TempStr,"{$declarecomment}")>0 Then TempStr = Replace(TempStr,"{$declarecomment}","")
		if Cl.UserID>0 and Cl.UserGroupID<>5 then
			If InStr(TempStr,"{$isdisabled}")>0 Then TempStr = Replace(TempStr,"{$isdisabled}"," disabled")
			If InStr(TempStr,"{$username}")>0 Then TempStr = Replace(TempStr,"{$username}",Cl.MemberName&"")
			If InStr(TempStr,"{$useremail}")>0 Then TempStr = Replace(TempStr,"{$useremail}",Cl.User_Info(7) & "")
		else
			If InStr(TempStr,"{$isdisabled}")>0 Then TempStr = Replace(TempStr,"{$isdisabled}","")
			If InStr(TempStr,"{$username}")>0 Then TempStr = Replace(TempStr,"{$username}","")
			If InStr(TempStr,"{$useremail}")>0 Then TempStr = Replace(TempStr,"{$useremail}","")
		end if
		If InStr(TempStr,"{$attribute}")>0 Then
			Dim Attribute
			if rs("OnTop") then Attribute="<font color='blue'>顶</font>"
			if rs("Hot") then Attribute=Attribute & "&nbsp;<font color='#ff0033'>热</font>"
			if rs("Elite") then Attribute=Attribute & "&nbsp;<font color='green'>荐</font>"
			TempStr=Replace(TempStr,"{$attribute}",Attribute)
		End If
		If InStr(TempStr,"{$picurl}")>0 Then
			if IsNull(rs("picurl")) or rs("picurl")="" then
				TempStr = Replace(TempStr,"{$picurl}",InstallDir & "images/nopic.gif")
			else
				TempStr = Replace(TempStr,"{$picurl}",rs("picurl")&"")
			end If
		End If
		If InStr(TempStr,"{$infogroup}")>0 Then
			TempStr = Replace(TempStr,"{$infogroup}",Cl.GetUserGroupName(rs("InfoGroup")))
		End If
		If InStr(TempStr,"{$stars}")>0 Then
			TempStr = Replace(TempStr,"{$stars}",Cl.Getstar(rs("Stars")))
		End If
		If InStr(TempStr,"{$intro}")>0 Then
			TempStr = Replace(TempStr,"{$intro}",Cl.Ubbcode(rs("Intro")))
		End If
		Dim PlayTemplate,DownLoadUrl,DownUrlStr,ArrayUrl,sFileExt
		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
		if Instr(DownLoadUrl,".")>0 then
			ArrayUrl = Split(DownLoadUrl,".")
			sFileExt = ArrayUrl(Ubound(ArrayUrl))
		end if
		Select Case Lcase(sFileExt)
		Case "swf"
			PlayTemplate = Template.Read(InstallDir&"Skins/FlashPlayer.html")
			PlayTemplate = Replace(PlayTemplate,"{$playurl}",DownLoadUrl)
		Case "rmvb","rm"
			PlayTemplate = Template.Read(InstallDir&"Skins/RealPlayer.html")
			PlayTemplate = Replace(PlayTemplate,"{$playurl}","GetPlayUrl.asp?UrlID="&UrlID&"&InfoID="&InfoID)
		Case else
			PlayTemplate = Template.Read(InstallDir&"Skins/MediaPlayer.html")
			PlayTemplate = Replace(PlayTemplate,"{$playurl}","GetPlayUrl.asp?UrlID="&UrlID&"&InfoID="&InfoID)
		End Select