📄 user_movie.asp
字号:
</tr>
<%=ShowField(Action,InfoID,4)%>
<tr class="tdbg">
<td width="100" align="right"><strong>缩 略 图：</strong></td>
<td colspan="2"><input name="PicUrl" type="text" id="PicUrl" size="80" maxlength="200" value="<%=PicUrl%>" onclick="doPreview('PicUrl','<%=Cl.WebDir%>','<%=Cl.UploadDir%>')" />
<font color="#FF0000">*</font> <input type="checkbox" id="IsShowUploadFiles" onclick="chkShowUploadFiles();"> 查看已上传文件<br />
<iframe style="top:2px" id="UpFile" src="../User/Upload.asp?ID=<%=ChannelID%>&Type=0&Obj=PicUrl&TObj=TempUploadFiles" frameborder="0" scrolling="No" width="530" height="25"></iframe></td>
</tr>
<tr class="tdbg" id="ShowUploadFiles" style="display:none;">
<td width="100" align="right"><strong>已 上 传：</strong></td>
<td><select name="TempUploadFiles" style="width:500;height:132" size="2" onclick="doPreview('TempUploadFiles','<%=Cl.WebDir%>','<%=Cl.UploadDir%>')"><%
Dim sUploadFiles
sUploadFiles = Trim(UploadFiles)
if Instr(sUploadFiles,"@@@") >0 then
sUploadFiles = Split(sUploadFiles,"@@@")
for i=0 to Ubound(sUploadFiles)
%>
<option value="<%=sUploadFiles(i)%>"><%=sUploadFiles(i)%></option>
<%
Next
ElseIf sUploadFiles<>"" Then
%>
<option value="<%=sUploadFiles%>"><%=sUploadFiles%></option>
<%end if%></select><br />
<input type="button" name="SetDefaultPic" value="设为首页图片" onclick="SetPicUrl('TempUploadFiles','PicUrl');" />
<input type="button" name="InsEditor" value="插入编辑器" onclick="InsertEditor('TempUploadFiles','<%=Cl.WebDir%>','<%=Cl.UploadDir%>');" />
<input type="hidden" name="UploadFiles" value="" />
</td>
<td width="180">
<fieldset style="height:100%">
<legend>预览</legend>
<table border="0" cellpadding="0" cellspacing="1" width="180" height="150" valign="top">
<tr><td align="center" valign="middle" id="tdPreview" height="100%">
</td>
</tr>
</table>
</fieldset>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>地址：</strong></td>
<td colspan="2"><input type="hidden" name="MovieUrls" value="" />
<select name="MovieUrl" style="width:95%;height:146" size="2" ondblclick="return ModifyUrl('<%=Cl.ChannelItemName%>地址','MovieUrl');">
<%
dim strMovieUrl
strMovieUrl=Trim(MovieUrl)
if Instr(strMovieUrl,"@@@") >0 then
strMovieUrl=Split(strMovieUrl,"@@@")
for i=0 to Ubound(strMovieUrl)
%>
<option value="<%=strMovieUrl(i)%>"><%=strMovieUrl(i)%></option>
<%
Next
elseif strMovieUrl<>"" then
%>
<option value="<%=strMovieUrl%>"><%=strMovieUrl%></option>
<%end if%>
</select><br />
<input type="button" name="addurl" value="添加<%=Cl.ChannelItemName%>地址" onclick="AddUrl('<%=Cl.ChannelItemName%>地址','MovieUrl');" />
<input type="button" name="addurl" value="修改当前地址" onclick="ModifyUrl('<%=Cl.ChannelItemName%>地址','MovieUrl');" />
<input type="button" name="addurl" value="删除当前地址" onclick="DelUrl('<%=Cl.ChannelItemName%>地址','MovieUrl');" />
<input type="button" name="upurl" value="↑" onclick="UpUrl('<%=Cl.ChannelItemName%>地址','MovieUrl');" />
<input type="button" name="downurl" value="↓" onclick="DownUrl('<%=Cl.ChannelItemName%>地址','MovieUrl');" /><br />
<iframe style="top:2px" id="UpFile" src="../User/Upload.asp?ID=<%=ChannelID%>&Type=2&Obj=MovieUrl&TObj=TempUploadFiles" frameborder="0" scrolling="No" width="530" height="25"></iframe>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right" valign="middle"><strong><%=Cl.ChannelItemName%>简介：</strong></td>
<td colspan="2"><textarea name="Intro" style="display:none"><%=Intro%></textarea>
<iframe id="editor" src="../Editor/Editor.asp?id=Intro&style=other&cid=<%=ChannelID%>&TObj=TempUploadFiles" frameborder="0" scrolling="No" width="95%" height="350"></iframe>
</td>
</tr>
<tr class="tdbg"<%=CheckUse("5",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>格 式：</strong></td>
<td colspan="2"><input name="MovieFormat" type="text" id="MovieFormat" size="25" maxlength="20" value="<%=MovieFormat%>" /> <a onclick="SelectCustom('MovieFormat',<%=ChannelID%>,3,0)" style="cursor:hand;"><font color="#66666">Select...</font></a>
<strong>片长：</strong><input name="MovieLong" type="text" id="MovieLong" size="25" maxlength="20" value="<%=MovieLong%>" /> <a onclick="SelectCustom('MovieLong',<%=ChannelID%>,4,0)" style="cursor:hand;"><font color="#66666">Select...</font></a>
</td>
</tr>
<tr class="tdbg"<%=CheckUse("6",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>地 区：</strong></td>
<td colspan="2"><input name="MovieCorner" type="text" id="MovieCorner" size="25" maxlength="20" value="<%=MovieCorner%>" /> <a onclick="SelectCustom('MovieCorner',<%=ChannelID%>,5,0)" style="cursor:hand;"><font color="#66666">Select...</font></a>
<strong>语言：</strong><input name="MovieLanguage" type="text" id="MovieLanguage" size="25" maxlength="20" value="<%=MovieLanguage%>" /> <a onclick="SelectCustom('MovieLanguage',<%=ChannelID%>,6,0)" style="cursor:hand;"><font color="#66666">Select...</font></a>
</td>
</tr>
<!--
<tr class="tdbg">
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>等级：</strong></td>
<td colspan="2"> <select name="Stars" id="Stars">
<option value="5" <%if Stars=5 then response.write " selected"%>>★★★★★</option>
<option value="4" <%if Stars=4 then response.write " selected"%>>★★★★</option>
<option value="3" <%if Stars=3 then response.write " selected"%>>★★★</option>
<option value="2" <%if Stars=2 then response.write " selected"%>>★★</option>
<option value="1" <%if Stars=1 then response.write " selected"%>>★</option>
<option value="0" <%if Stars=0 then response.write " selected"%>>无</option>
</select></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>属性：</strong></td>
<td colspan="2"> <input name="IsOnline" type="checkbox" id="IsOnline" value="yes" <%if IsOnline=True then response.write " checked"%> />
在线观看
<input name="IsDownLoad" type="checkbox" id="IsDownLoad" value="yes" <%if IsDownLoad=True then response.write " checked"%> />
提供下载
<input name="OnTop" type="checkbox" id="OnTop" value="yes" <%if OnTop=True then response.write " checked"%> />
固顶
<input name="Hot" type="checkbox" id="Hot" value="yes" <%if Hot=True then response.write " checked"%> />
热门
<input name="Elite" type="checkbox" id="Elite" value="yes" <%if Elite=True then response.write " checked"%> />
推荐</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>观看次数：</strong></td>
<td colspan="2">本日：
<input name="DayHits" type="text" id="DayHits" value="<%=DayHits%>" size="10" maxlength="10" />
本周：
<input name="WeekHits" type="text" id="WeekHits" value="<%=WeekHits%>" size="10" maxlength="10" />
本月：
<input name="MonthHits" type="text" id="MonthHits" value="<%=MonthHits%>" size="10" maxlength="10" />
总计：
<input name="Hits" type="text" id="Hits" value="<%=Hits%>" size="10" maxlength="10" /></td>
</tr>
<tr class="tdbg"<%=CheckUse("7",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>下载次数：</strong></td>
<td colspan="2">本日：
<input name="DayDownNums" type="text" id="DayDownNums" value="<%=DayDownNums%>" size="10" maxlength="10" />
本周：
<input name="WeekDownNums" type="text" id="WeekDownNums" value="<%=WeekDownNums%>" size="10" maxlength="10" />
本月：
<input name="MonthDownNums" type="text" id="MonthDownNums" value="<%=MonthDownNums%>" size="10" maxlength="10" />
总计：
<input name="DownNums" type="text" id="DownNums" value="<%=DownNums%>" size="10" maxlength="10" /></td>
</tr>
<tr class="tdbg"<%=CheckUse("8",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>观看等级：</strong></td>
<td colspan="2">
<input name="InfoGroup" type="hidden" id="InfoGroup" value="<%=InfoGroup%>" />
<input name="InfoGroupView" type="text" id="InfoGroupView" value="<%=Cl.GetUserGroupName(InfoGroup)%>" size="80" onclick="SelectUserGroup('InfoGroup');" readonly="Readonly" />
<input type="checkbox" name="GetClassPurview" id="GetClassPurview" value="yes" onclick="document.myform.InfoGroupView.disabled=this.checked" />
继承栏目权限<br /><font color="#0000FF">只有具有相应权限的人才能查看此<%=Cl.ChannelItemName%>。</font></td>
</tr>
<tr class="tdbg"<%=CheckUse("9",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>观看<%=Cl.Web_Setting(28)%>：</strong></td>
<td colspan="2"><input name="InfoPoint" type="text" id="InfoPoint" value="<%=InfoPoint%>" size="8" maxlength="5" />
<%=Cl.Web_Setting(29)%> <font color="#0000FF">如果大于0，则用户观看此<%=Cl.ChannelItemName%>时将消耗相应<%=Cl.Web_Setting(28)%>。（对游客无效）</font></td>
</tr>
<tr class="tdbg"<%=CheckUse("10",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>观看<%=Cl.Web_Setting(26)%>：</strong></td>
<td colspan="2"><input name="InfoMoney" type="text" id="InfoMoney" value="<%=InfoMoney%>" size="8" maxlength="5" />
<%=Cl.Web_Setting(27)%> <font color="#0000FF">如果大于0，则用户观看此<%=Cl.ChannelItemName%>时将消耗相应<%=Cl.Web_Setting(26)%>。（对游客无效）</font></td>
</tr>
<tr class="tdbg"<%=CheckUse("11",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>回扣设置：</strong></td>
<td colspan="2">
<%=Cl.Web_Setting(28)%>：<input name="BackPoint" type="text" id="BackPoint" value="<%=BackPoint%>" size="5" maxlength="3" style="text-align: right;" />
<%=Cl.Web_Setting(29)%>＋<%=Cl.Web_Setting(28)%>的<input name="BackPointRate" type="text" id="BackPointRate" value="<%=BackPointRate%>" size="5" maxlength="2" style="text-align: right;" />
%<br />
<%=Cl.Web_Setting(26)%>：<input name="BackMoney" type="text" id="BackMoney" value="<%=BackMoney%>" size="5" maxlength="3" style="text-align: right;" />
<%=Cl.Web_Setting(27)%>＋<%=Cl.Web_Setting(26)%>的<input name="BackMoneyRate" type="text" id="BackMoneyRate" value="<%=BackMoneyRate%>" size="5" maxlength="2" style="text-align: right;" />
%<br /><font color="#0000FF">即当用户游览或下载此内容时，给予一定的回扣给添加者！</font>
</td>
</tr>
<tr class="tdbg"<%=CheckUse("12",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>录入时间：</strong></td>
<td colspan="2"><input name="UpdateTime" type="text" id="UpdateTime" value="<%=UpdateTime%>" maxlength="50" />
<font color="blue"><--【<a href='javascript:ToValue("","UpdateTime","<%=now%>")'>设为当前时间</a>】</font><br />
时间格式为“年-月-日 时:分:秒”，如：<font color="#0000FF">2003-5-12 16:32:47</font></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>立即发布：</strong></td>
<td colspan="2"><input name="Passed" type="checkbox" id="Passed" value="yes" <%if Status=1 then response.write " checked"%> />
是<font color="#0000FF">（如果选中的话将直接发布，否则审核后才能发布。）</font>
<input name="NowCreate" type="checkbox" value="yes" checked="checked" />
立即生成</td>
</tr>-->
</table>
<div align="center">
<p>
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=ChannelID%>" />
<input name="Action" type="hidden" id="Action" value="Save<%=Action%>" />
<%if Action="Modify" then%>
<input name="InfoID" type="hidden" id="InfoID" value="<%=InfoID%>" />
<input name="Save" type="submit" id="Save" value="保存修改结果" style="cursor:hand;" />
<!--
<input name="Add" type="submit" id="Add" value="添加为新<%=Cl.ChannelItemName%>" onClick="document.myform.Action.value='SaveAdd';" style="cursor:hand;" />-->
<%else%>
<input name="Add" type="submit" id="Add" value=" 添 加 " style="cursor:hand;" />
<!--<script type="text/javascript">
$("InfoGroupView").disabled=true;
$("GetClassPurview").checked=true;
</script>-->
<%end if%>
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onclick="history.go(-1)" style="cursor:hand;" />
</p>
</div>
</form>
<%
End Sub
Sub DoSaveRecord()
FoundErr = False
InfoID = Cl.GetClng(Request.Form("InfoID"))
ClassID = Cl.GetClng(request.form("ClassID"))
SpecialID = Trim(request.Form("SpecialID"))
MovieName = Trim(request.form("MovieName"))
FontColor = Trim(request.form("FontColor"))
FontType = Cl.GetClng(request.form("FontType"))
Keyword = Trim(request.form("Keyword"))
Director = Trim(request.form("Director"))
ActName = Trim(request.form("ActName"))
PicUrl = Trim(request.form("PicUrl"))
MovieUrl = Trim(request.form("MovieUrls"))
'MovieSize = Trim(request.form("MovieSize"))
Intro = Trim(request.form("Intro"))
MovieFormat = Trim(request.form("MovieFormat"))
MovieLong = Trim(request.form("MovieLong"))
MovieCorner = Trim(request.form("MovieCorner"))
MovieLanguage = Trim(request.form("MovieLanguage"))
Stars = Cl.GetClng(request.form("Stars"))
IsOnline = Trim(request.form("IsOnline"))
IsDownLoad = Trim(request.form("IsDownLoad"))
OnTop = Trim(request.form("OnTop"))
Hot = Trim(request.form("Hot"))
Elite = Trim(request.form("Elite"))
Hits = Cl.GetClng(request.form("Hits"))
DayHits = Cl.GetClng(request.form("DayHits"))
WeekHits = Cl.GetClng(request.form("WeekHits"))
MonthHits = Cl.GetClng(request.form("MonthHits"))
DownNums = Cl.GetClng(request.form("DownNums"))
DayDownNums = Cl.GetClng(request.form("DayDownNums"))
WeekDownNums = Cl.GetClng(request.form("WeekDownNums"))
MonthDownNums = Cl.GetClng(request.form("MonthDownNums"))
InfoGroup = Trim(request.form("InfoGroup"))
InfoPoint = Cl.GetClng(request.form("InfoPoint"))
InfoMoney = Cl.GetClng(request.form("InfoMoney"))
DownLoadGroup = Trim(request.form("DownLoadGroup"))
DownLoadPoint = Cl.GetClng(request.form("DownLoadPoint"))
DownLoadMoney = Cl.GetClng(request.form("DownLoadMoney"))
BackPoint = Cl.GetClng(request.form("BackPoint"))
BackPointRate = Cl.GetClng(request.form("BackPointRate"))
BackMoney = Cl.GetClng(request.form("BackMoney"))
BackMoneyRate = Cl.GetClng(request.form("BackMoneyRate"))
UpdateTime = Trim(request.form("UpdateTime"))
'LastHitTime = Trim(request.form("LastHitTime"))
Passed = Trim(request.form("Passed"))
NowCreate = Trim(request.form("NowCreate"))
UploadFiles = Trim(request.form("UploadFiles"))
Editor = Cl.MemberName
if ClassID<=0 then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>指定了非法的栏目（外部栏目或不存在的栏目）</li>"
end if
if MovieName="" then
founderr=true
errmsg=ErrMsg & "<br /><li>影片名称不能为空</li>"
end if
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -