📄 qqcf_admin_manage_3.asp
字号:
<td><div align="center"><%=Rs("ClassName")%></div></td>
<td><div align="center"><%=Rs("ClassTaxis")%></div></td>
<td><div align="center"><%=Rs("MenuTaxis")%></div></td>
<td><div align="center">
<%=Rs("IndexTaxis")%>
</div></td>
<td><div align="center"><a href="?Action=classmodIfy&ID=<%=Rs("ID")%>">修改</a> <a href="QQCF.aspx?Action=classdel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></div></td>
</tr>
<%Rs.Movenext
Wend%>
<tr>
<td colspan="6" bgcolor="#FFFFFF"><font color="#FF0000"><strong>注意事项：</strong></font>类别排序为数字，数字越小，在栏目中越排在最前面，为0时表示不显示</td>
</tr>
</table>
<%End If%>
<%If Action="classadd" then%>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
<td height="19" colspan="2"><div align="center"><strong>类别增加</strong></div></td>
</tr>
<form name="form1" method="post" Action="QQCF.aspx?Action=classaddsave">
<tr>
<td><div align="right">类别名称:</div></td>
<td> <input name="ClassName" type="text" value=""> </td>
</tr>
<tr>
<td><div align="right">类别排序:</div></td>
<td><input type="text" name="ClassTaxis"></td>
</tr>
<tr>
<td><div align="right">菜单排序:</div></td>
<td><input type="text" name="MenuTaxis">
(注：为0将不出现在菜单里)</td>
</tr>
<tr>
<td><div align="right">首页排序:</div></td>
<td><input type="text" name="IndexTaxis">(注：为0将不出现在首页)</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit22" value="增加"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="classmodIfy" Then%>
<%
ID=ChkStr(Request("ID"),2)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFFilm_Class Where ID="&ID
Rs.Open Sql,Conn,1,1
%>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
<td height="19" colspan="2"><div align="center"><strong>类别修改</strong></div></td>
</tr>
<form name="form1" method="post" Action="QQCF.aspx?Action=classmodifysave&ID=<%=ID%>">
<tr>
<td><div align="right">类别名称:</div></td>
<td> <input name="ClassName" type="text" value="<%=Rs("ClassName")%>"> </td>
</tr>
<tr>
<td><div align="right">类别排序:</div></td>
<td><input type="text" name="ClassTaxis" value="<%=Rs("ClassTaxis")%>"></td>
</tr>
<tr>
<td><div align="right">菜单排序:</div></td>
<td><input type="text" name="MenuTaxis" value="<%=Rs("MenuTaxis")%>">
(注：为0将不出现在菜单里)</td>
</tr>
<tr>
<td><div align="right">首页排序:</div></td>
<td><input type="text" name="IndexTaxis" value="<%=Rs("IndexTaxis")%>">(注：为0将不出现在首页)</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit22" value="修改"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="serverlist" Then%>
<%
Sql="Select * From CFFilm_Server Order by ID"
Set Rs=Conn.Execute(Sql)
%>
<table width="98%" align="center" class="tba">
<tr>
<td height="18" colspan="4"><input type="submit" name="Submit3" value="新增服务器" onClick="location.href='?Action=serveradd';">
</td>
</tr>
<tr class="tba_tr_1">
<td height="18"><div align="center"><strong>服务器地址</strong></div></td>
<td><div align="center"><strong>用户名</strong></div></td>
<td><div align="center"><strong>用户名</strong></div></td>
<td><div align="center">操作</div></td>
</tr>
<%
While Not Rs.Eof
I=I+1
%>
<form name="<%="f"&I%>" method="post" action="QQCF.aspx?Action=servermodifysave&ID=<%=Rs("ID")%>">
<tr
<%
if I mod 2=1 then
response.write " bgcolor='#ffffff'"
else
response.write " bgcolor='#e8e8e8'"
end if
%>
>
<td align="center"> <input name="ServerIP" type="text" value="<%=Rs("ServerIP")%>" size="30">
</td>
<td align="center"> <input name="ServerUser" type="text" value="<%=Rs("ServerUser")%>" size="10">
</td>
<td align="center"><input name="ServerPassword" type="text" value="<%=Rs("ServerPassword")%>" size="10"> </td>
<td align="center"> <input type="submit" name="Submit" value="修改"> <input type="button" name="Submit2" value="删除" onclick="{if(confirm('确定要删除吗?')){window.location='QQCF.aspx?Action=serverdel&ID=<%=Rs("ID")%>';return true;}return false;};">
</td>
</tr>
</form>
<%
Rs.MoveNext
Wend
%>
</table>
<%end if%>
<%If Action="serveradd" Then%>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
<td><div align="center"><strong>服务器地址</strong></div></td>
<td><div align="center"><strong>用户名</strong></div></td>
<td><div align="center"><strong>密码</strong></div></td>
<td><div align="center">操作</div></td>
</tr>
<form name="f" method="post" action="QQCF.aspx?Action=serveraddsave">
<tr>
<td align="center">
<input name="ServerIP" type="text" size="30">
</td>
<td align="center">
<input name="ServerUser" type="text" size="10">
</td>
<td align="center"><input name="ServerPassword" type="text" size="10"></td>
<td align="center"> <input type="submit" name="Submit" value="增加"> </td>
</tr>
</form>
</table>
<%End If%>
<%If Action="templetmodify" Then%>
<%
Assort=ChkStr(Request("Assort"),1)
TempletType=ChkStr(Request("TempletType"),2)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFFilm_Admin"
Rs.open Sql,Conn,1,1
If Assort="play" Then
TempletCode=Rs("Templet_Play")
TempletCode_2="<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>"
TempletCode_2=TempletCode_2&"<TBODY>"
TempletCode_2=TempletCode_2&"<TR>"
TempletCode_2=TempletCode_2&"<TD colSpan=3> </TD></TR>"
TempletCode_2=TempletCode_2&"<TR>"
TempletCode_2=TempletCode_2&"<TD> </TD>"
TempletCode_2=TempletCode_2&"<TD width=500>{player} </TD>"
TempletCode_2=TempletCode_2&"<TD> </TD></TR>"
TempletCode_2=TempletCode_2&"<TR>"
TempletCode_2=TempletCode_2&"<TD colSpan=3> </TD></TR></TBODY></TABLE>"
TempletDesc="参数有{player}(播放器代码,必须),{filmname}(电影名称，可选),{classname}(电影分类，可选),{sysname}(系统名称，可选),{partnum}(电影集数，可选),"
End If
If TempletType=1 Then TempletCode = TempletCode_2'使用默认模板时
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><input type="button" name="Submit3322" value="修改播放页面模板" onClick="window.location='?Action=templetmodify&assort=play';return false">
</td>
</tr>
</table>
<%If Assort<>"" Then%>
<script>
function templetmodify()
{
form.templetcode.value = getHTML();
form.content.value = "";
return true;
}
</script>
<table width="98%" align="center" class="tba">
<form name="form" method="post" action="QQCF.aspx?Action=templetmodifysave&Assort=<%=Assort%>" onsubmit="javascript:return templetmodify();">
<tr class="tba_tr_1">
<td height="20" colspan="2" valign="top"><div align="center"><strong>模板修改</strong></div></td>
</tr>
<tr>
<td width="120" valign="top"><div align="right">模板修改：</div></td>
<td width="639" height="300"><input name="templetcode" type="hidden">
<input name="content" type="hidden" value="<%=Server.HTMLEncode(TempletCode)%>">
<SCRIPT src="editor/Post.js"></SCRIPT></td>
</tr>
<tr>
<td colspan="2">此模板说明：<%=TempletDesc%></td>
</tr>
<tr>
<td colspan="2"> <div align="center">
<input type="submit" name="Submit3" value="修改模板">
<input type="button" name="Submit3322" value="使用默认页面模板" onClick="window.location='?Action=templetmodify&Assort=play&TempletType=1';return false">
</div></td>
</tr>
</form>
</table>
<%End If%>
<%End If%>
<%If Action="admodify" Then%>
<table width="98%" align="center" class="tba">
<form name="form" method="post" action="QQCF.aspx?Action=admodifysave" onsubmit="javascript:return templetmodify();">
<tr class="tba_tr_1">
<td height="20" colspan="2" valign="top"><div align="center"><strong>广告修改</strong></div></td>
</tr>
<tr>
<td width="120" valign="top"><div align="right">广告修改：</div></td>
<td width="639" height="300"><textarea name="AdCode" cols="90" rows="20"><%=GetConVertStr(Server.HTMLEncode(RsSet("AdCode")))%></textarea></td>
</tr>
<tr>
<td colspan="2">格式,每个广告用*分隔，广告代码前加广告编号，例如：<br>
Ad_1=<script src="http://www.a.com/a.js"></script>*Ad_2=<script
src="http://www.b.com/b.js"></script><br><br>
系统默认有7个广告位：<br>
Ad_1=广告位1*Ad_2=广告位2*Ad_3=广告位3*Ad_4=广告位4*Ad_5=广告位5*Ad_6=广告位6*Ad_7=广告位7</td>
</tr>
<tr>
<td colspan="2"> <div align="center">
<input type="submit" name="Submit3" value="修改广告">
</div></td>
</tr>
</form>
</table>
<%End If%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -