📄 user_movie.asp
字号:
Case 0
response.write " <a href='User_Property.asp?ChannelID="&SQL(1,i)&"&Action=SetPassed&InfoID=" & InfoID & "' class='red'>通过</a>"
response.write " <a href='User_NoPass.asp?ChannelID="&SQL(1,i)&"&InfoID=" & InfoID & "'>退回</a>"
Case Else
response.write " <a href='User_Property.asp?ChannelID="&SQL(1,i)&"&Action=SetPassed&InfoID=" & InfoID & "' class='red'>通过</a>"
response.write " <a href=""User_InfoDel.asp?Action=DelRecyclebin&ChannelID="&SQL(1,i)&"&InfoID="&InfoID&""" onclick=""return confirm('确定要彻底删除此记录吗？本操作将不可恢复！');"">删除</a>"
End Select
End If
%></td>
</tr>
<%Next%>
<tr class="tdbg">
<td colspan="2" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick="CheckAll(this.form)" value="checkbox">选中所有</td>
<td colspan="7"><% Call InfoManegeOptionBottom("movie") %></td>
</tr>
</form>
</table>
<%
end sub
Sub EditMain()
Dim rsInfo,strCusTom,ShortcutMenu
Dim sKeyword,sDirector,sActName,sMovieFormat,sMovieLong,sMovieCorner,sMovieLanguage
strCusTom = Split(Cl.Channel.selectSingleNode("@custom").text,"@@@")
sKeyword = Split(strCusTom(0),"$")
sDirector = Split(strCusTom(1),"$")
sActName = Split(strCusTom(2),"$")
sMovieFormat = Split(strCusTom(3),"$")
sMovieLong = Split(strCusTom(4),"$")
sMovieCorner = Split(strCusTom(5),"$")
sMovieLanguage = Split(strCusTom(6),"$")
if Action="Modify" then
InfoID = Cl.GetClng(request("InfoID"))
if InfoID=0 then Cl.ShowErr("<li>请指定要修改的影片ID</li>")
Set rsInfo = Cl.Execute("select * from Cl_Movie where InfoID=" & InfoID)
if rsInfo.bof and rsInfo.eof then
Cl.ShowErr("<li>找不到"&Cl.ChannelItemName&"</li>")
else
ClassID = rsInfo("ClassID")
set tClass=Cl.Execute("select ClassName,RootID,ParentID,Depth,ParentPath,ClassMaster From Cl_Class where ChannelID="&ChannelID&" and ClassID=" & ClassID)
if tClass.bof and tClass.eof then
tClass.Close :Set tClass=Nothing
Cl.ShowErr("<li>找不到指定的栏目</li>")
else
ClassName = tClass(0) : RootID = tClass(1)
ParentID = tClass(2) : Depth = tClass(3)
ParentPath = tClass(4) : ClassMaster= tClass(5)
tClass.Close :Set tClass=Nothing
if Not Cl.TrueChannelPurview_U(1,ChannelID) then
dim sTempP,IsTruePurview
sTempP=Split(ParentPath & "," & ClassID,",")
IsTruePurview=False
if rsInfo("Status")=1 then
for i=1 to Ubound(sTempP)
IsTruePurview = Cl.TrueClassPurview_U(1,ChannelID,sTempP(i))
if IsTruePurview Then Exit For
Next
elseif rsInfo("Editor")=Cl.MemberName then
IsTruePurview=True
else
for i=1 to Ubound(sTempP)
IsTruePurview = Cl.TrueClassPurview_U(2,ChannelID,sTempP(i))
if IsTruePurview Then Exit For
Next
end if
if Not IsTruePurview then
Cl.ShowErr("<li>您无权修改或查看此栏目或资料！</li>")
end if
end if
end if
end if
ClassID = rsInfo("ClassID")
SpecialID = rsInfo("SpecialID")
Prefixion = rsInfo("Prefixion")
MovieName = rsInfo("MovieName")
Keyword = rsInfo("Keyword")
Director = rsInfo("Director")
ActName = rsInfo("ActName")
PicUrl = rsInfo("PicUrl")
MovieUrl = rsInfo("MovieUrl")
UploadFiles = rsInfo("UploadFiles")
Intro = rsInfo("Intro")
MovieFormat = rsInfo("MovieFormat")
MovieLong = rsInfo("MovieLong")
MovieCorner = rsInfo("MovieCorner")
MovieLanguage = rsInfo("MovieLanguage")
IsOnline = rsInfo("IsOnline")
IsDownLoad = rsInfo("IsDownLoad")
OnTop = rsInfo("OnTop")
Hot = rsInfo("Hot")
Elite = rsInfo("Elite")
Stars = rsInfo("Stars")
Hits = rsInfo("Hits")
DayHits = rsInfo("DayHits")
WeekHits = rsInfo("WeekHits")
MonthHits = rsInfo("MonthHits")
DownNums = rsInfo("DownNums")
DayDownNums = rsInfo("DayDownNums")
WeekDownNums = rsInfo("WeekDownNums")
MonthDownNums = rsInfo("MonthDownNums")
InfoGroup = rsInfo("InfoGroup")
DownLoadGroup = rsInfo("DownLoadGroup")
InfoPoint = rsInfo("InfoPoint")
DownLoadPoint = rsInfo("DownLoadPoint")
InfoMoney = rsInfo("InfoMoney")
DownLoadMoney = rsInfo("DownLoadMoney")
BackPoint = rsInfo("BackPoint")
BackPointRate = rsInfo("BackPointRate")
BackMoney = rsInfo("BackMoney")
BackMoneyRate = rsInfo("BackMoneyRate")
UpdateTime = rsInfo("UpdateTime")
Status = rsInfo("Status")
rsInfo.close:set rsInfo=Nothing
else
ClassID = Cl.GetClng(Request.Cookies("Movie")("ClassID"))
SpecialID = Trim(Request.Cookies("Movie")("SpecialID"))
Prefixion = Trim(Request.Cookies("Movie")("Prefixion"))
MovieName = ""
Keyword = Trim(Request.Cookies("Movie")("Keyword"))
If Keyword="" Then Keyword = sKeyword(0)
Director = Trim(Request.Cookies("Movie")("Director"))
If Director="" Then Director = sDirector(0)
ActName = Trim(Request.Cookies("Movie")("ActName"))
If ActName="" Then ActName = sActName(0)
PicUrl = ""
MovieUrl = ""
UploadFiles = ""
Intro = ""
MovieFormat = Trim(Request.Cookies("Movie")("MovieFormat"))
MovieLong = Trim(Request.Cookies("Movie")("MovieLong"))
MovieCorner = Trim(Request.Cookies("Movie")("MovieCorner"))
MovieLanguage = Trim(Request.Cookies("Movie")("MovieLanguage"))
If MovieFormat = "" Then MovieFormat = sMovieFormat(0)
If MovieLong="" Then MovieLong = sMovieLong(0)
If MovieCorner="" Then MovieCorner = sMovieCorner(0)
If MovieLanguage="" Then MovieLanguage = sMovieLanguage(0)
IsOnline = True
IsDownLoad = False
OnTop = False
Hot = False
Elite = False
IsDownLoad = False
Stars = 3
Hits = 0
DayHits = 0
WeekHits = 0
MonthHits = 0
DownNums = 0
DayDownNums = 0
WeekDownNums = 0
MonthDownNums = 0
DownLoadGroup = "5"
DownLoadPoint = 0
DownLoadMoney = 0
InfoGroup = Trim(Request.Cookies("Movie")("InfoGroup"))
If InfoGroup="" Then InfoGroup = "5"
InfoPoint = Cl.GetClng(Request.Cookies("Movie")("InfoPoint"))
InfoMoney = Cl.GetClng(Request.Cookies("Movie")("InfoMoney"))
BackPoint = Cl.GetClng(Request.Cookies("Movie")("BackPoint"))
BackPointRate = Cl.GetClng(Request.Cookies("Movie")("BackPointRate"))
BackMoney = Cl.GetClng(Request.Cookies("Movie")("BackMoney"))
BackMoneyRate = Cl.GetClng(Request.Cookies("Movie")("BackMoneyRate"))
UpdateTime = Now()
Status = 1
end if
%>
<script language="JavaScript" type="text/javascript">
function CheckForm()
{
document.myform.Intro.value=editor.Editor.document.body.innerHTML;
if (document.myform.ClassID.value=="0")
{
alert("<%=Cl.ChannelItemName%>所属栏目为外部栏目或您无此栏目添加权限！");
document.myform.ClassID.focus();
return false;
}
if (document.myform.MovieName.value=="")
{
alert("<%=Cl.ChannelItemName%>名称不能为空！");
document.myform.MovieName.focus();
return false;
}
if (document.myform.Keyword.value=="")
{
alert("关键字不能为空！");
document.myform.Keyword.focus();
return false;
}
if (document.myform.PicUrl.value=="")
{
alert("缩略图地址不能为空！");
document.myform.PicUrl.focus();
return false;
}
if (document.myform.Intro.value=="")
{
alert("<%=Cl.ChannelItemName%>说明不能为空！");
document.myform.Intro.focus();
return false;
}
if (document.myform.MovieLanguage.value=="")
{
alert("<%=Cl.ChannelItemName%>语言不能为空！");
document.myform.MovieLanguage.focus();
return false;
}
if(document.myform.MovieUrl.length==0)
{
alert("<%=Cl.ChannelItemName%>地址不能为空，最少要添加一条地址！");
document.myform.MovieUrl.focus();
return false;
}
for(var i=0;i<document.myform.MovieUrl.length;i++){
if (document.myform.MovieUrls.value=="") document.myform.MovieUrls.value=document.myform.MovieUrl.options[i].value;
else document.myform.MovieUrls.value+="@@@"+document.myform.MovieUrl.options[i].value;
}
for(var i=0;i<document.myform.TempUploadFiles.length;i++){
if (document.myform.UploadFiles.value=="") document.myform.UploadFiles.value=document.myform.TempUploadFiles.options[i].value;
else document.myform.UploadFiles.value+="@@@"+document.myform.TempUploadFiles.options[i].value;
}
return true;
}
</script>
<form method="POST" name="myform" onSubmit="return CheckForm();" action="User_Movie.asp" target="_self">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="title">
<td height="22" align="center" colspan="3"><b><%if Action="Modify" then%>修改<%else%>添加<%end if%><%=Cl.ChannelItemName%></b></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>所属栏目：</strong></td>
<td colspan="2">
<select name="ClassID" style="width:200px;">
<option value="0" selected="selected">请选择<%=Cl.ChannelItemName%>栏目</option>
<%=ShowClass_Option(ChannelID,ClassID,0,1)%>
</select>
<font color="#FF0000"><strong>注意：</strong></font><font color="#0000FF">不能指定为外部栏目</font>
<%if Action="Add" then%>
<input type="checkbox" id="IsShowSpecial" onclick="chkShowSpecial();" />
指定专题
<%end if%>
</td>
</tr>
<tr class="tdbg" <%If Action="Add" Then Response.write " style='display:none;'"%> id="ShowSpecial">
<td width="100" align="right"><strong>所属专题：</strong></td>
<td colspan="2">
<select name="SpecialID" id="SpecialID" multiple="multiple" style="height:90px;width:200px;">
<%=ShowSpecial_Option(ChannelID,SpecialID,1)%>
</select>
<font color="#FF0000"><strong>说明：</strong></font><font color="#0000FF">按“Shift”“Ctrl”可多选</font>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>名称：</strong></td>
<td colspan="2"><input name="MovieName" type="text" id="MovieName" value="<%=MovieName%>" size="65" maxlength="255" />
<font color="#FF0000">*</font> <select name="FontType" id="FontType" onChange="updateTitleFont('MovieName');">
<option value="0">字 形</option>
<option value="0">规 则</option>
<option value="1" <%if FontType=1 then response.write " selected"%>>粗 体</option>
<option value="2" <%if FontType=2 then response.write " selected"%>>斜 体</option>
<option value="3" <%if FontType=3 then response.write " selected"%>>粗+斜</option>
</select>
<input name="FontColor" type="hidden" id="FontColor" value="<%=FontColor%>" size="10" onclick="Getcolor(ColorBG,'FontColor');updateTitleFont('MovieName');" readonly="Readonly" />
<img border="0" src="../images/Gcolor.gif" style="cursor:pointer;background-Color:<%=FontColor%>;" onclick="Getcolor(this,'FontColor');updateTitleFont('MovieName');" title="选取标题颜色!" align="absmiddle" id="ColorBG" />
<script type="text/javascript">updateTitleFont('MovieName')</script> <input name="Check" type="button" id="Check" value="检测名称" onClick="CheckTitle('MovieName','<%=ChannelID%>');" /></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>关 键 字：</strong></td>
<td colspan="2"><input name="Keyword" type="text" id="Keyword" size="80" maxlength="255" value="<%=Keyword%>" />
<font color="#FF0000">*</font> <a onclick="SelectCustom('Keyword',<%=ChannelID%>,0,1)" style="cursor:hand;"><font color="#66666">Select...</font></a><br />
<font color="#0000FF">用来查找相关<%=Cl.ChannelItemName%>，可输入多个关键字，中间用<font color="#FF0000">“|”</font>隔开。不能出现""'*?,.()等字符。</font></td>
</tr>
<tr class="tdbg"<%=CheckUse("1",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>导 演：</strong></td>
<td colspan="2"> <input name="Director" type="text" id="Director" size="80" maxlength="250" value="<%=Director%>" />
<font color="#FF0000">*</font> <a onclick="SelectCustom('Director',<%=ChannelID%>,1,1)" style="cursor:hand;"><font color="#66666">Select...</font></a> <font color="#0000FF">多个请用<font color="#FF0000">“|”</font>隔开。</font></td>
</tr>
<tr class="tdbg"<%=CheckUse("2",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>主 演：</strong></td>
<td colspan="2"><input name="ActName" type="text" id="ActName" size="80" maxlength="250" value="<%=ActName%>" />
<font color="#FF0000">*</font> <a onclick="SelectCustom('ActName',<%=ChannelID%>,2,1)" style="cursor:hand;"><font color="#66666">Select...</font></a> <font color="#0000FF">多个请用<font color="#FF0000">“|”</font>隔开。</font></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -