admin_movie.asp

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

	if Keyword="" then
		founderr=true
		errmsg=errmsg & "<br /><li>请输入影片关键字</li>"
	end if
	if Director="" then
		founderr=true
		errmsg=errmsg & "<br /><li>请输入影片导演.</li>"
	end if
	if ActName="" then
		founderr=true
		errmsg=errmsg & "<br /><li>请输入影片主演</li>"
	end if
	if PicUrl="" then
		founderr=true
		errmsg=ErrMsg & "<br /><li>缩略图地址不能为空</li>"
	end if
	if MovieUrl="" then
		founderr=true
		errmsg=errmsg & "<br /><li>影片地址不能为空</li>"
	end if
	if FoundErr=True then Cl.ShowErr(ErrMsg)
	set tClass=Cl.Execute("select ClassName,Depth,ParentID,ParentPath,Child,ClassMaster,BrowsePurview,DisabledAdd,AddPoint,AddIsChk,MaxLimit,IsOuter From Cl_Class where ClassID=" & ClassID)
	if tClass.bof and tClass.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>找不到指定的栏目</li>"
	else
		if tClass(11)=1 then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>不能指定外部栏目</li>"
		elseif tClass(7)<>0 then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>对不起，此栏目禁止添加资料</li>"
		else
			ClassName	= tClass(0) : Depth		= tClass(1)
			ParentID	= tClass(2) : ParentPath= tClass(3)
			Child		= tClass(4) : ClassMaster= tClass(5)
			sAddPoint	= tClass(8) : sAddIsChk	= tClass(9)
			sMaxLimit	= tClass(10)
			if request("GetClassPurviewV")="yes" then InfoGroup="5"
			if request("GetClassPurviewD")="yes" then DownLoadGroup="5"
		end if
		if sAddIsChk=False then
			Passed=True
		elseif Passed = "yes" then
			if ParentID>0 then
				dim sqlPath,rsPath
				sqlPath="select ClassMaster From Cl_Class where ChannelID="&ChannelID&" and ClassID in (" & ParentPath & ") order by Depth"
				set rsPath=Cl.Execute(sqlPath)
				if Not rsPath.eof then
					sqlPath=rsPath.GetRows(-1)
					for i=0 to Ubound(sqlPath,2)
						ClassMaster = ClassMaster & "|" & sqlPath(0,i)
					Next
					sqlPath=Empty
				End if
				rsPath.Close:Set rsPath=Nothing
			end if
			IsClassMaster=Cl.TrueClassMaster(ClassMaster,Cl.Admin_Info(1))
			if IsClassMaster then
				Passed = True
			elseif Cl.TrueChannelPurview(2,ChannelID) then
				Passed = True
			else
				Passed = Cl.TrueClassPurview(2,ChannelID,ParentPath & "," & ClassID)
			end if
		else
			Passed=False
		end if
	end if
	tClass.Close :Set tClass=Nothing
	if Intro="" then
		Intro="暂无简介"
	else
		if Cl.strLength(Intro)>sMaxLimit and sMaxLimit<>0 then
			founderr=true
			errmsg=errmsg & "<br /><li>简介内容大小超过了最大限制（"&sMaxLimit&" 字节！）</li>"
		end if
		if Trim(Cl.Web_Setting(9))="Yes" then
			Intro=Cl.DeCode(Intro,Trim(Cl.Web_Setting(10)))
		end if
	end if
	if IsOnline<>"yes" and IsDownLoad<>"yes" then
		founderr=true
		errmsg=errmsg & "<br /><li>在线观看或者下载，至少要选一个。</li>"
	end if
	if FoundErr=True then Cl.ShowErr(ErrMsg)
	if SpecialID="" Or SpecialID="0" then
		SpecialID="0"
	else
		SpecialID=Replace(SpecialID," ","")
		if Len(SpecialID)>250 then
			Dim TempStr,SpecialStr
			TempStr=Split(SpecialID,",")
			For i=0 to Ubound(TempStr)
				if TempStr(i)<>"" then SpecialStr=SpecialStr & "," & TempStr(i)
				if Len(SpecialStr)>=230 then Exit For
			Next
			SpecialID=SpecialStr & ","
		else
		SpecialID=","&SpecialID&","
		End If
		SpecialID=Replace(SpecialID,",0,",",")
	end if
	Keyword=Cl.ReplaceBadChar(Keyword)
	Keyword=Replace(Keyword,"||","|")
	if Left(Keyword,1)="|" then Keyword=Right(Keyword,Len(Keyword)-1)
	if Right(Keyword,1)="|" then Keyword=Left(Keyword,Len(Keyword)-1)
	if MovieFormat="" then MovieFormat="Rmvb"
	if MovieLong="" then MovieLong="50分钟"
	if MovieCorner="" then MovieCorner="大陆" 
	if Movielanguage="" then Movielanguage="国语"
	InfoGroup=Replace(InfoGroup," ","")
	if Not IsNumeric(Replace(InfoGroup,",","")) then InfoGroup="5"
	DownLoadGroup=Replace(DownLoadGroup," ","")
	if Not IsNumeric(Replace(DownLoadGroup,",","")) then DownLoadGroup="5"
	if UpdateTime<>"" and IsDate(UpdateTime)=True then
		UpdateTime=CDate(UpdateTime)
	else
		UpdateTime=now()
	end if
	if OnTop="yes" then OnTop=True else OnTop=False end if
	if Hot="yes" then Hot=True else Hot=False end if
	if Elite="yes" then Elite=True else Elite=False end if
	if IsOnline="yes" then IsOnline=True else IsOnline=False end if
	if IsDownLoad="yes" then IsDownLoad=True else IsDownLoad=False end If
	
	MovieName	= Server.HtmlEnCode(MovieName)
	Keyword		= Server.HtmlEnCode(Keyword)
	If FontColor<>""	Then FontColor		= Server.HtmlEnCode(FontColor)
	If Director<>""		Then Director		= Server.HtmlEnCode(Director)
	If ActName<>""		Then ActName		= Server.HtmlEnCode(ActName)
	If PicUrl<>""		Then PicUrl			= Server.HtmlEnCode(PicUrl)
	If MovieFormat<>""	Then MovieFormat	= Server.HtmlEnCode(MovieFormat)
	If MovieLong<>""	Then MovieLong		= Server.HtmlEnCode(MovieLong)
	If MovieCorner<>""	Then MovieCorner	= Server.HtmlEnCode(MovieCorner)
	If MovieLanguage<>""Then MovieLanguage	= Server.HtmlEnCode(MovieLanguage)

	set rs=server.createobject("adodb.recordset")
	if Action="SaveAdd" then
		Dim MaxTID
		MaxTID=Cl.Execute("select max(InfoID) from Cl_Movie")(0)
		if isnull(MaxTID) or Not IsNumeric(MaxTID) then MaxTID=0
		InfoID=MaxTID+1
		sql="select Top 1 * from Cl_Movie" 
		OpenConn : rs.open sql,Conn,1,3
		rs.addnew
		rs("InfoID")=InfoID
		rs("ChannelID")=ChannelID
		call SaveData()
		rs("Editor")=Editor
		rs.update
	elseif Action="SaveModify" then
  		if InfoID=0 then
			Cl.ShowErr("<br /><li>不能确定InfoID的值</li>")
		else
			sql="select * from Cl_Movie where InfoID=" & InfoID
			OpenConn : rs.open sql,Conn,1,3
			if rs.bof and rs.eof then
				rs.close : set rs=Nothing
				Cl.ShowErr("<br /><li>找不到此影片，可能已经被其他人删除。</li>")
 			else
				Editor	= rs("Editor")
				if rs("Status")=1 then
					Cl.Execute_U("update " & Db.UserTable & " set " & Db.UserPoint & "=" & Db.UserPoint & "-"&sAddPoint&"," & Db.DataCount & "=" & Db.DataCount & "-1 where " & Db.UserName & "='" & Editor & "'")
				end if
				call SaveData()
				rs.update
			end if
		end if
	else
		Cl.ShowErr("<br /><li>参数错误!</li>")
	end if
	rs.close : set rs=Nothing
	Cl.ChkUploadFile InfoID,PicUrl & MovieUrl & Intro,UploadFiles
	Cl.SaveAdminLog
Rem 用Cookies保存用户最后录入的资料信息
	Response.Cookies("Movie")("ClassID")	= ClassID
	Response.Cookies("Movie")("SpecialID")	= SpecialID
	Response.Cookies("Movie")("Prefixion")	= Prefixion
	Response.Cookies("Movie")("FontColor")	= FontColor
	Response.Cookies("Movie")("FontType")	= FontType
	Response.Cookies("Movie")("Keyword")	= Keyword
	Response.Cookies("Movie")("InfoGroup")	= InfoGroup
	Response.Cookies("Movie")("InfoPoint")	= InfoPoint
	Response.Cookies("Movie")("InfoMoney")	= InfoMoney
	Response.Cookies("Movie")("BackPoint")	= BackPoint
	Response.Cookies("Movie")("BackPointRate")= BackPointRate
	Response.Cookies("Movie")("BackMoney")	= BackMoney
	Response.Cookies("Movie")("BackMoneyRate")= BackMoneyRate
	Response.Cookies("Movie")("Director")	= Director
	Response.Cookies("Movie")("ActName")	= ActName
	Response.Cookies("Movie")("MovieFormat")= MovieFormat
	Response.Cookies("Movie")("MovieLong")	= MovieLong
	Response.Cookies("Movie")("MovieCorner")= MovieCorner
	Response.Cookies("Movie")("MovieLanguage")= MovieLanguage
Rem End
	SaveSuccess
end sub

sub SaveData()
	rs("ChannelDir")	= Cl.Channel.selectSingleNode("@channeldir").text
	rs("ClassID")		= ClassID
	rs("SpecialID")		= SpecialID
	rs("MovieName")		= MovieName
	rs("FontColor")		= FontColor
	rs("FontType")		= FontType
	rs("Keyword")		= Keyword
	rs("Director")		= Director
	rs("ActName")		= ActName
	rs("PicUrl")		= PicUrl
	rs("MovieUrl")		= MovieUrl
	rs("Intro")			= Intro
	rs("MovieFormat")	= MovieFormat
	rs("MovieLong")		= MovieLong
	rs("MovieCorner")	= MovieCorner
	rs("MovieLanguage")	= MovieLanguage
	rs("Stars")			= Stars
	rs("IsOnline")		= IsOnline
	rs("IsDownLoad")	= IsDownLoad
	rs("OnTop")			= OnTop
	rs("Hot")			= Hot
	rs("Elite")			= Elite
	rs("Hits")			= Hits
	rs("DayHits")		= DayHits
	rs("WeekHits")		= WeekHits
	rs("MonthHits")		= MonthHits
	rs("DownNums")		= DownNums
	rs("DayDownNums")	= DayDownNums
	rs("WeekDownNums")	= WeekDownNums
	rs("MonthDownNums")	= MonthDownNums
	rs("InfoGroup")		= InfoGroup
	rs("InfoPoint")		= InfoPoint
	rs("InfoMoney")		= InfoMoney
	'rs("DownLoadGroup")	= DownLoadGroup
	'rs("DownLoadPoint")	= DownLoadPoint
	'rs("DownLoadMoney")	= DownLoadMoney
	rs("UpdateTime")	= UpdateTime
	rs("LastHitTime")	= Now()
	rs("UploadFiles")	= UploadFiles
	rs("BackPoint")		= BackPoint
	rs("BackPointRate")	= BackPointRate
	rs("BackMoney")		= BackMoney
	rs("BackMoneyRate")	= BackMoneyRate
	if Passed=True then
		rs("Status")	= 1
		rs("Censor")	= Cl.MemberName
		rs("CensorTime")= Date()
		Cl.Execute_U("update " & Db.UserTable & " set " & Db.UserPoint & "=" & Db.UserPoint & "+"&sAddPoint&"," & Db.DataCount & "=" & Db.DataCount & "+1 where " & Db.UserName & "='" & Editor & "'")
	else
		rs("Status")	= 1
	end If
	rs("Deleted")		= False
	rs("ProjectID")		= ProjectID
	rs("TemplateID")	= TemplateID
	rs("CssID")			= CssID
	Rem 自定义字段By GDW
	Call SaveField(ChannelID,4)
End Sub
	
Sub SaveSuccess()
%>
<br /><br />
<!--<meta http-equiv="refresh" content="3;url=javascript:history.go(-2);" />-->
<table class="border" align="center" border="0" cellpadding="0" cellspacing="1" style="width:600px;">
	<tr class="title"> 
		<td height="22" align="left" colspan="3">&nbsp;&nbsp;<b>恭喜您，操作成功，请选择快速连接返回！</b></td>
	</tr>
	<tr class="tdbg">
		<td width="30%" align="center">
			<%If PicUrl="" then%>
			<img src="../Images/NoPic.gif" border="0" width="160" />
			<%else%>
			<img src="<%=Cl.ReplaceDir(PicUrl)%>" border="0" width="160" />
			<%End if%>
		</td>
		<td width="45%" valign="top">
		<br />
		<font color="#0000FF">友情提