cf_admin_manage_3.asp

支持多种播放器RealPlayer,MediaPlayer

    <td><div align="center">操作</div></td>
  </tr>
  <%
While Not Rs.Eof
I=I+1
%>
  <form name="<%="f"&I%>" method="post" action="Admin.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 name="ServerDesc" type="text" value="<%=GetConVertStr(Rs("ServerDesc"))%>" size="15"></td>
	  <td align="center"> <input type="submit" name="Submit" value="修改"> &nbsp; <input type="button" name="Submit2" value="删除" onclick="{if(confirm('确定要删除吗?')){window.location='Admin.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"><strong>描述</strong></div></td>
    <td><div align="center">操作</div></td>
  </tr>
  <form name="f" method="post" action="Admin.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 name="ServerDesc" type="text" value="" size="15"></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>
  <tr> 
    <td><input style="width:300px" type="button" name="Submit33226" value="修改播放器模板(Swf格式)" onClick="window.location='?Action=swftempletmodify';return false"></td>
  </tr>
  <tr> 
    <td><input style="width:300px" type="button" name="Submit33226" value="修改播放器模板(Flv格式)" onClick="window.location='?Action=flvtempletmodify';return false"></td>
  </tr>
  <tr> 
    <td><input style="width:300px" type="button" name="Submit33226" value="修改自定义播放器" onClick="window.location='?Action=selfplayertempletmodify';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=Rs("Templet_Play")
 
TempletDesc="<br>&lt;body&gt; (页面代码,小写,必须)<br>{player}(播放器，必须)<br>{filmname}(电影名称，可选)<br>{classname}(电影分类，可选)<br>{sysname}(系统名称，可选)<br>{id}(电影id，可选)<br>{partnum}(电影集数，可选)"
%>

<table width="98%" align="center" class="tba">
  <form name="form" method="post" action="Admin.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='Admin.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=Rs("Templet_Rm")
 
TempletDesc="<br>{link}(电影文件链接，必须)"
%>

<table width="98%" align="center" class="tba">
  <form name="form" method="post" action="Admin.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='Admin.aspx?Action=rmmodifysave';return true;}return false;};">
</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=Rs("Templet_Wm")

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

<table width="98%" align="center" class="tba">
  <form name="form" method="post" action="Admin.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='Admin.aspx?Action=wmmodifysave';return true;}return false;};">
	  </td>
    </tr>
  </form>
</table>
<%End If%>



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

TempletCode=Rs("Templet_Swf")

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

<table width="98%" align="center" class="tba">
  <form name="form" method="post" action="Admin.aspx?Action=swftempletmodifysave">
    <tr class="tba_tr_1"> 
      <td height="20" colspan="2" valign="top"><div align="center"><strong>Swf模板修改</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="使用默认播放器模板(Swf播放器)" onClick="{if(confirm('确定要使用Swf播放器默认页面模板吗?')){window.location='Admin.aspx?Action=swfmodifysave';return true;}return false;};">
      </td>
    </tr>
  </form>
</table>
<%End If%>

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

TempletCode=Rs("Templet_Flv")

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

<table width="98%" align="center" class="tba">
  <form name="form" method="post" action="Admin.aspx?Action=flvtempletmodifysave">
    <tr class="tba_tr_1"> 
      <td height="20" colspan="2" valign="top"><div align="center"><strong>Flv模板修改</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="使用默认播放器模板(Flv播放器)" onClick="{if(confirm('确定要使用Flv播放器默认页面模板吗?')){window.location='Admin.aspx?Action=flvmodifysave';return true;}return false;};">
      </td>
    </tr>
  </form>
</table>
<%End If%>

<%If Action="selfplayertempletmodify" Then%>
<%
SelfPlayer=ChkStr(Request("SelfPlayer"),2)
If SelfPlayer="" Then SelfPlayer="0"

SelfPlayer=CInt(SelfPlayer)

Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFFilm_Admin"
Rs.open Sql,Conn,1,1

If SelfPlayer=1 Then
 TempletCode=Rs("Templet_SelfPlayer1")
 SelfPlayerStr="自定义播放器1"
ElseIf SelfPlayer=2 Then
 TempletCode=Rs("Templet_SelfPlayer2")
 SelfPlayerStr="自定义播放器2"
ElseIf SelfPlayer=3 Then
 TempletCode=Rs("Templet_SelfPlayer3")
 SelfPlayerStr="自定义播放器3"
End If

TempletDesc="<br>{link}(文件链接，必须),<br>{id}(电影id，可选),<br>{partnum}(电影集数，可选)"
%>

<table width="98%" align="center" class="tba">
  <form name="form2" method="post" action="">
    <tr class="tba_tr_1"> 
      <td height="20" colspan="2" valign="top"><strong>选择要修改的自定义模板</strong> <select name="page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
          <option value="?Action=<%=Action%>&SelfPlayer=0"<%If SelfPlayer=0 Then Response.write " selected"%> >请选择要修改的自定义模板</option>
          <option value="?Action=<%=Action%>&SelfPlayer=1"<%If SelfPlayer=1 Then Response.write " selected"%>>自定义播放器1</option>
          <option value="?Action=<%=Action%>&SelfPlayer=2"<%If SelfPlayer=2 Then Response.write " selected"%>>自定义播放器2</option>
          <option value="?Action=<%=Action%>&SelfPlayer=3"<%If SelfPlayer=3 Then Response.write " selected"%>>自定义播放器3</option>
        </select> <input type="submit" name="Submit4" value="修改"> </td>
    </tr>
  </form>
  
<%If SelfPlayer<>0 Then%>
  <form name="form" method="post" action="Admin.aspx?Action=selfplayertempletmodifysave&SelfPlayer=<%=SelfPlayer%>">
    <tr> 
      <td height="20" colspan="2" valign="top"><div align="center">你正在修改<%=SelfPlayerStr%></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%>
	  <br><br>你可以在上面的模板修改里修改成任意一款播放器代码，如支持P2P在线播放的播放器的代码，如何修改因使用的播放器程序不同而异</td>
    </tr>
  </form>
 <%End if%>
 
</table>
<%End If%>

<%If Action="admodify" Then%>
<table width="98%" align="center" class="tba">
  <form name="form" method="post" action="Admin.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%>