📄 admin_mov_add_06.asp
字号:
<%Sub Add6
dim ChannelID,ClassID,SpecialID,Flag
ChannelID=Trim(Request("ChannelID"))
ClassID=0
Flag=Trim(Request("Flag"))
ItemID=Trim(Request("ItemID"))
Set rrs=server.createobject("adodb.recordset")
SqlItemR="Select * from Item Where ItemID=" & ItemID
rrs.open SqlItemR,ConnItem,1,1
if ChannelID ="" then
ChannelID=rrs("ChannelID")
ClassID=rrs("ClassID")
SpecialID=rrs("SpecialID")
End if
%>
<script language="JavaScript">
<!--
// 只允许输入数字
function IsDigit(){
return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
//-->
function CheckForm(){
if (document.form1.ClassID.value==''){
alert('文章所属栏目不能为空，或制定为外部栏目！');
document.form1.ClassID.focus();
return false;
}
if (document.form1.ClassID.value=='0'){
alert('指定的栏目不允许添加文章！只允许在其子栏目中添加文章。');
document.form1.ClassID.focus();
return false;
}
return true;
}
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href="Admin_mov_Manage.asp">管理首页</a> >> <a href="Admin_mov_Add.asp?Type=modify&ItemID=<%=ItemID%>">基本设置</a> >> <a href="Admin_movAdd.asp?action=Add1&Type=modify&ItemID=<%=ItemID%>">列表设置</a> >> <a href="Admin_mov_Add.asp?action=Add2&Type=modify&ItemID=<%=ItemID%>">链接设置</a> >> <a href="Admin_mov_Add.asp?action=Add3&Type=modify&ItemID=<%=ItemID%>">正文设置</a> >> <a href="Admin_mov_Add.asp?action=Add4&Type=modify&ItemID=<%=ItemID%>">采样测试</a> >> <a href="Admin_mov_Add.asp?action=Add5&Type=modify&ItemID=<%=ItemID%>"><font color=red>属性设置</font></a> >> 完成</td>
</tr>
</table>
<br>
<form method="post" action="Admin_mov_Add.asp" name="form1" onSubmit="return CheckForm();">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" >
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong>项 目 编 辑--文 章 属 性</strong></div></td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align="right"><strong> 项目名称： </strong></td>
<td class="tdbg">
<input name="ItemName" type="text" id="ItemName" size="30" maxlength="30" value='<%=rrs("ItemName")%>'> </td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align="right"><strong> 所属频道： </strong></td>
<td class="tdbg">
<select name='ChannelID' onChange="javascript:location.href='Admin_mov_Add.asp?Action=Add5&ItemID=<%=ItemID%>&ChannelID=' + (this.options[this.selectedIndex].value)">
<%Call Admin_ShowChannel_Option(ChannelID)%> </select>
</td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align="right"><strong> 所属栏目： </strong></td>
<td class="tdbg">
<select name='ClassID'>
<option value=''>请选择栏目</option>
<%Call Admin_ShowClass_Option(ClassID,ChannelID)%>
</select>
</td>
</tr>
<tr class="tdbg">
<td width="150" class="tdbg" align="right"><strong> 所属专题： </strong></td>
<td class="tdbg">
<select name='SpecialID'>
<option value='0'>不属于任何专题</option><%Call Admin_ShowSpecial_Option(SpecialID,ChannelID)%></select>
</td>
</tr>
<input name='ReadPoint' TYPE='hidden' value='0'> <tr class='tdbg'> <td width="150" class="tdbg" align="right"><strong>电影属性： </strong></td> <td>
<input name='OnTop' type='checkbox' id='OnTop' value='yes'<%=ftpp(rrs("OnTop"))%>> 固顶电影 <input name='Hot' type='checkbox' id='Hot' value='yes' ONKEYPRESS="event.returnValue=IsDigit();" onClick="javascript:document.form1.Hits.value='<%=ishothits%>'"<%=ftpp(rrs("Hot"))%>> 热门电影 <input name='Elite' type='checkbox' id='Elite' value='yes'<%=ftpp(rrs("Elite"))%>> 推荐电影 电影评分等级：
<select name='Stars' id='Stars'>
<option value='5'<%if rrs("Stars")=5 then Response.Write "selected"%>>★★★★★</option>
<option value='4'<%if rrs("Stars")=4 then Response.Write "selected"%>>★★★★</option>
<option value='3'<%if rrs("Stars")=3 then Response.Write "selected"%>>★★★</option>
<option value='2'<%if rrs("Stars")=2 then Response.Write "selected"%>>★★</option>
<option value='1'<%if rrs("Stars")=1 then Response.Write "selected"%>>★</option>
<option value='0'<%if rrs("Stars")=0 then Response.Write "selected"%>>无</option>
</select>
</td> </tr>
<tr class='tdbg'> <td width="150" class="tdbg" align="right"><strong>点击数初始值： </strong></td> <td> <input name='Hits' type='text' id='Hits' value='<%=rrs("Hits")%>' size='10' maxlength='10' ONKEYPRESS="event.returnValue=IsDigit();"> <font color='#0000FF'>这功能是提供给管理员作弊用的。不过尽量不要用呀！^_^</font> </td> </tr>
<tr class='tdbg'> <td width="150" class="tdbg" align="right"><strong>电影阅读点数： </strong></td> <td> <input name='SoftPoint' type='text' id='SoftPoint' value='<%=rrs("SoftPoint")%>' size='10' maxlength='10' ONKEYPRESS="event.returnValue=IsDigit();"> <font color='#0000FF'>电影播放下载点数设定,免费版用户设定无效</font> </td> </tr>
<!--<tr class="tdbg">
<td height="30" width="150" align="right"><b>评论链接：</b> </td>
<td>
<Input name="ShowCommentLink" type="radio" id="ShowCommentLink" value="yes" <%if rrs("ShowCommentLink")=True then Response.Write "Checked"%> >显示评论链接
<Input name="ShowCommentLink" type="radio" id="ShowCommentLink" value="no" <%if rrs("ShowCommentLink")<>True then Response.Write "Checked"%> >不显示评论链接
</td>
</tr>-->
<tr class='tdbg'> <td width="150" class="tdbg" align="right"><strong>配色风格： </strong></td> <td><select Name='SkinID'><option value='0' selected>系统默认风格</option></select> 相关模板中包含CSS、颜色、图片等信息</td> </tr> <tr class='tdbg'> <td width="150" class="tdbg" align="right"><strong>版面设计模板： </strong></td> <td><select Name='TemplateID'><option value='0' selected>系统默认</option></select> 相关模板中包含了版面设计的版式等信息</td> </tr> <tr class='tdbg'> <td width="150" class="tdbg" align="right"><strong>过 滤 选 项： </strong></td> <td height="22"> <input name="Script_Iframe" type="checkbox" id="Script_Iframe" value="yes" <%=ftpp(rrs("Script_Iframe"))%>>Iframe
<input name="Script_Object" type="checkbox" id="Script_Object" value="yes" <%=ftpp(rrs("Script_Object"))%>>Object
<input name="Script_Script" type="checkbox" id="Script_Script" value="yes" <%=ftpp(rrs("Script_Script"))%>>Script
<input name="Script_Class" type="checkbox" id="Script_Class" value="yes" <%=ftpp(rrs("Script_Class"))%>>Style
<input name="Script_Div" type="checkbox" id="Script_Div" value="yes" <%=ftpp(rrs("Script_Div"))%>>Div
<input name="Script_Table" type="checkbox" id="Script_Table" value="yes" <%=ftpp(rrs("Script_Table"))%>>Table
<input name="Script_Tr" type="checkbox" id="Script_tr" value="yes" <%=ftpp(rrs("Script_tr"))%>>Tr
<input name="Script_td" type="checkbox" id="Script_td" value="yes" <%=ftpp(rrs("Script_td"))%>>Td
<br>
<input name="Script_Span" type="checkbox" id="Script_Span" value="yes" <%=ftpp(rrs("Script_Span"))%>>Span
<input name="Script_Img" type="checkbox" id="Script_Img" value="yes" <%=ftpp(rrs("Script_Img"))%>>Img
<input name="Script_Font" type="checkbox" id="Script_Font" value="yes" <%=ftpp(rrs("Script_Font"))%>>FONT
<input name="Script_A" type="checkbox" id="Script_A" value="yes" <%=ftpp(rrs("Script_A"))%>>A
<input name="Script_Html" type="checkbox" id="Script_Html" value="yes" <%=ftpp(rrs("Script_Html"))%>>Html
</td>
</tr>
<tr class='tdbg'> <td width="150" class="tdbg" align="right"><strong>采 集 数 量： </strong></td> <td height="30" class="tdbg">
<input name="CollectionNum" type="text" size='5' maxlength='4' id="CollectionNum" ONKEYPRESS="event.returnValue=IsDigit();" value="<%=rrs("CollectionNum")%>">
<select name="CollectionType" id="CollectionType">
<option value=0 <%if rrs("CollectionType")<>1 then Response.Write "selected"%>>采集指定电影数</option>
<option value=1 <%if rrs("CollectionType")=1 then Response.Write "selected"%>>采集列表页数</option>
</select><font color=blue>注意 如果为空代表所有。</font>
</td>
</tr>
<tr class='tdbg'><td width="150" class="tdbg" align="right"><strong>文件保存选项： </strong></td><td height="30" class="tdbg">
<Input name="FileSavebType" type="radio" id="FileSavebType" value="0" <%if rrs("FileSavebType")=0 then Response.Write "Checked"%> >不保存文件,直接使用采集到的电影地址,速度最快<br>
<!--<Input name="FileSavebType" type="radio" id="FileSavebType" value="1" <%if rrs("FileSavebType")=1 then Response.Write "Checked"%> >保存文件名,生成文件下载列表手动下载（预留功能）<br>-->
<Input name="FileSavebType" type="radio" id="FileSavebType" value="2" <%if rrs("FileSavebType")=2 then Response.Write "Checked"%> >全自动保存文件,速度较慢<br>
<Input name="SaveNameTypeb" type="radio" id="SaveNameTypeb" value="0" <%if rrs("SaveNameTypeb")=0 then Response.Write "Checked"%> >文件不重命名<br>
<Input name="SaveNameTypeb" type="radio" id="SaveNameTypeb" value="1" <%if rrs("SaveNameTypeb")=1 then Response.Write "Checked"%> >文件随机命名<br>
<input name="SaveFiles" type="radio" id="SaveFiles" value="0" <%if rrs("SaveFiles")=0 then Response.write "Checked"%>>不保存电影缩略图<br>
<input name="SaveFiles" type="radio" id="SaveFiles" value="1" <%if rrs("SaveFiles")=1 then Response.write "Checked"%>>保存电影缩略图<br>
<input name="SaveFiles" type="radio" id="SaveFiles" value="2" <%if rrs("SaveFiles")=2 then Response.write "Checked"%>>保存电影缩略图并随机重命名<br>
<input name="SaveDir" type="text" size='20' maxlength='200' id="SaveDir" value="<%=rrs("SaveDir")%>">电影图片和文件保存目录<br>(相对于频道上传目录例如UploadSoft,UploadSoftPic),标签:年{$Year$} 月{$Month$} 日{$Day$}
</td>
</tr>
<tr class='tdbg'><td width="150" class="tdbg" align="right"><strong>文件保存限制： </strong></td><td height="30" class="tdbg">
<input name="FileSavebNum" type="text" size='3' maxlength='3' id="FileSavebNum" ONKEYPRESS="event.returnValue=IsDigit();" value="<%=rrs("FileSavebNum")%>">最多采集几个播放地址,0或留空为不限
<!--<br><input name="FileSavebstr" type="text" size='50' maxlength='1000' id="FileSavebstr" value="<%=rrs("FileSavebstr")%>"> 禁止保存的文件类型(预留功能)-->
</td>
</tr>
<tr class='tdbg'> <td width="150" class="tdbg" align="right"><strong>采 集 属 性： </strong></td> <td height="30" class="tdbg">
<!--<input name="AddWatermark" type="checkbox" value="yes" >是否对图片增加水印-->
<input name="CollecOrder" type="checkbox" value="yes" <%=ftpp(rrs("CollecOrder"))%>>倒序采集
<input name="Passed" type="checkbox" id="Passed" value="yes" <%=ftpp(rrs("Passed"))%>>立即发布 <font color=blue>注意 如果您要启用立即发布，发布后要记得生成相应的JS文件和静态页面</font>
</td>
</tr>
<tr class="tdbg">
<td colspan="2" align="center" class="tdbg" height="50">
<input name="ItemID" type="hidden" id="ItemID" value="<%=ItemID%>">
<input name="Action" type="hidden" id="Action" value="Add6">
<input name="Flag" type="hidden" id="Flag" value="<%=Flag%>">
<input name="Cancel" type="button" id="Cancel" value="返回上一步" onClick="window.location.href='javascript:history.go(-1)'" >
<input type="submit" name="Submit" value=" 完 成 " >
</td>
</tr>
</table>
</form>
</body></html>
<%
rrs.close
set rrs=nothing
End Sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -