📄 user_movie.asp
字号:
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
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)
dim sTempP
IsTruePurview = False
IsTruePurview_P = False
if Cl.TrueChannelPurview_U(2,ChannelID) then
IsTruePurview = True
IsTruePurview_P = True
else
sTempP=Split(ParentPath & "," & ClassID,",")
for i=1 to Ubound(sTempP)
IsTruePurview = Cl.TrueClassPurview_U(3,ChannelID,sTempP(i))
if IsTruePurview Then Exit For
Next
for i=1 to Ubound(sTempP)
IsTruePurview_P = Cl.TrueClassPurview_U(2,ChannelID,sTempP(i))
if IsTruePurview_P Then Exit For
Next
end if
if Not IsTruePurview then
Cl.ShowErr("<br /><li>您无权在此栏目下添加或修改资料。</li>")
end if
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
if Passed="yes" then Passed=True else Passed=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 sAddIsChk=False 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 & "'")
Passed = True
elseif Passed and (IsTruePurview_P or Cint(Cl.User_Purview(ChannelID))=4) 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") = 0
Passed = False
end If
rs("Deleted") = False
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"> <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">友情提示：</font><br />
<%If Passed Then
Dim TUrl
TUrl = InstallDir & Cl.Channel.selectSingleNode("@channeldir").text & "/ShowInfo.asp?InfoID=" & InfoID
%>
您的<%=Cl.ChannelItemName%>已经正式发布，您可点击以下地址查看：<a href="<%=TUrl%>" target="_blank"><%=TUrl%></a>。
<%else%>
您的<%=Cl.ChannelItemName%>尚未正式发布，已经提交给管理员进行审核，请耐心等待！
<%End if%>
</td>
<td width="25%" align="left" valign="top">
<br />
<font color="#0000FF">快速连接：</font>
<ol>
<li><a href="User_Movie.asp?Action=Add&ChannelID=<%=ChannelID%>" class="red b">添加新的<%=Cl.ChannelItemName%></a></li><br />
<li><a href="User_Movie.asp?Action=Modify&ChannelID=<%=ChannelID%>&InfoID=<%=InfoID%>" class="b">修改当前<%=Cl.ChannelItemName%></a></li><br />
<li><a href="User_Movie.asp?ChannelID=<%=ChannelID%>&Action=Check" class="b">转到待审<%=Cl.ChannelItemName%></a></li><br />
<li><a href="User_Movie.asp?ChannelID=<%=ChannelID%>" class="b">转到<%=Cl.ChannelItemName%>管理</a></li>
<li><a href="javascript:history.go(-2);" class="blue b">返回到上一步</a></li>
</ol>
</td>
</tr>
</table>
<%
if Clng(Cl.Channel.sel⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -