📄 qqcf_admin_manage_3.asp

📁 二、功　能： 1.系统做免费
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
      <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>&nbsp;</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>&nbsp;</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 bgcolor="#FFFFFF"> 
    <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="<%=GetConVertStr(Rs("ServerUser"))%>" size="10"> 
      </td>
      <td align="center"><input name="ServerPassword" type="text" value="<%=GetConVertStr(Rs("ServerPassword"))%>" size="10"> </td>
      <td align="center"> <input type="submit" name="Submit" value="修改"> &nbsp; <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%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="8">
  <tr>
    <td><input style="width:300px" type="button" name="Submit3322" value="修改播放页面模板" onClick="window.location='?Action=playtempletmodify';return false"></td>
  </tr>
  <tr> 
    <td><input style="width:300px" type="button" name="Submit3322" value="修改播放器模板(Real格式)" onClick="window.location='?Action=rmtempletmodify';return false"> 
    </td>
  </tr>
  <tr> 
    <td><input style="width:300px" type="button" name="Submit33226" value="修改播放器模板(WindowsMedia格式)" onClick="window.location='?Action=wmtempletmodify';return false"></td>
  </tr>
</table>
<%End If%>


<%If Action="playtempletmodify" Then%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFFilm_Admin"
Rs.open Sql,Conn,1,1

TempletCode=GetAppSet_2(Rs("Templet_Play"),"Templet_PlayWeb","|")
 
TempletDesc="<br>{player}(播放器，必须)<br>{filmname}(电影名称，可选)<br>{classname}(电影分类，可选)<br>{sysname}(系统名称，可选)<br>{partnum}(电影集数，可选)"
%>

<table width="98%" align="center" class="tba">
  <form name="form" method="post" action="QQCF.aspx?Action=playtempletmodifysave">
    <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="templetcode" cols="80" rows="20"><%=TempletCode%></textarea>
        (htm代码)</td>
    </tr>
    <tr> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit3" value="修改模板">
          </div></td>
    </tr>
	<tr> 
      <td colspan="2">此模板参数说明：<%=TempletDesc%></td>
    </tr>
    <tr> 
      <td colspan="2"><input style="width:300px" type="button" name="Submit33224" value="使用默认播放页面模板" onClick="{if(confirm('确定要使用播放页面模板吗?')){window.location='QQCF.aspx?Action=playmodifysave';return true;}return false;};"></td>
    </tr>
  </form>
</table>
<%End If%>

<%If Action="rmtempletmodify" Then%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFFilm_Admin"
Rs.open Sql,Conn,1,1

TempletCode=GetAppSet_2(Rs("Templet_Play"),"Templet_Rm","|")
 
TempletDesc="<br>{link}(电影文件链接，必须)"
%>

<table width="98%" align="center" class="tba">
  <form name="form" method="post" action="QQCF.aspx?Action=rmtempletmodifysave">
    <tr class="tba_tr_1"> 
      <td height="20" colspan="2" valign="top"><div align="center"><strong>Real格式模板修改</strong></div></td>
    </tr>
    <tr> 
      <td width="120" valign="top"><div align="right">模板修改：</div></td>
      <td width="639" height="300"><textarea name="templetcode" cols="80" rows="20"><%=TempletCode%></textarea>
</td>
    </tr>
    <tr> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit3" value="修改模板">
          </div></td>
    </tr>
	
	<tr> 
      <td colspan="2">此模板参数说明：<%=TempletDesc%></td>
    </tr>

    <tr>
      <td colspan="2"><input style="width:300px" type="button" name="Submit33222" value="使用默认播放器模板(RealPlayer播放器)" onClick="{if(confirm('确定要使用RealPlayer播放器默认页面模板吗?')){window.location='QQCF.aspx?Action=rmmodifysave';return true;}return false;};">
        <br><br>你可以在上面的模板修改里修改成任意一款播放器代码，如支持P2P在线播放的播放器的代码，如何修改因使用的播放器程序不同而异</td>
    </tr>
  </form>
</table>
<%End If%>


<%If Action="wmtempletmodify" Then%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFFilm_Admin"
Rs.open Sql,Conn,1,1

TempletCode=GetAppSet_2(Rs("Templet_Play"),"Templet_Wm","|")

TempletDesc="<br>{link}(电影文件链接，必须)"
%>

<table width="98%" align="center" class="tba">
  <form name="form" method="post" action="QQCF.aspx?Action=wmtempletmodifysave">
    <tr class="tba_tr_1"> 
      <td height="20" colspan="2" valign="top"><div align="center"><strong>WindowsMedia模板修改</strong></div></td>
    </tr>
    <tr> 
      <td width="120" valign="top"><div align="right">模板修改：</div></td>
      <td width="639" height="300"><textarea name="templetcode" cols="80" rows="20"><%=TempletCode%></textarea></td>
    </tr>
    <tr> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit3" value="修改模板">
          </div></td>
    </tr>
	<tr> 
      <td colspan="2">此模板参数说明：<%=TempletDesc%></td>
    </tr>

    <tr> 
      <td colspan="2"><input style="width:300px" type="button" name="Submit33224" value="使用默认播放器模板(WindowsMediaPlayer播放器)" onClick="{if(confirm('确定要使用WindowsMediaPlayer播放器默认页面模板吗?')){window.location='QQCF.aspx?Action=wmmodifysave';return true;}return false;};">
	  <br><br>你可以在上面的模板修改里修改成任意一款播放器代码，如支持P2P在线播放的播放器的代码，如何修改因使用的播放器程序不同而异</td>
    </tr>
  </form>
</table>
<%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=&lt;script src=&quot;http://www.a.com/a.js&quot;&gt;&lt;/script&gt;*Ad_2=&lt;script 
        src=&quot;http://www.b.com/b.js&quot;&gt;&lt;/script&gt;<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%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -