<!--#include file="QvodCms_Conn.asp"-->
<!--#include file="QvodCms_Check.asp"-->
<%
Call OpenConn()
Dim data_id,data_name,data_actor,data_director,data_erea,data_elite,data_hits,data_status,data_picurl,data_intro,data_inputer,data_pic,data_year,data_language,data_continu,data_color,data_vip,data_cu
data_id=QvodCms_CLng(Request.QueryString("data_id"))
'来源地址
session("reurl")=Request.ServerVariables("Http_Referer")
If data_id=<0 Then 
	Call QvodCms_Err("必要参数不能为空！")
	Response.End
End if
Set rs = Server.CreateObject("adodb.recordset")
sql = " select top 1 * from qvodcms_name where name_id="&data_id&" "
rs.Open sql, Conn, 1, 1
If Not(rs.bof And rs.eof) Then
	class_id=rs("class_id")
	data_name=rs("data_name")
	data_actor=rs("data_actor")
	data_director=rs("data_director")
	data_erea=rs("data_erea")
	data_picurl=rs("data_picbig")
	data_picurll=rs("data_picsmall")
	data_inputer=rs("data_inputer")
	If instr(data_picurl,"http")>0 Then
	    data_pic=data_picurl
	Else
	    data_pic="../"&data_picurl
	End If
	data_intro=rs("data_intro")
	data_lastdate=rs("data_lastdate")
	data_hits=rs("data_hits")
	data_elite=rs("data_elite")
	data_status=rs("data_status")
	data_year=rs("data_year")
	data_language=rs("data_language")
	data_continu=rs("data_continu")		
	data_color=rs("data_color")
	data_reurl=rs("data_reurl")
	data_vip=rs("data_vip")
	data_cu=rs("data_cu")
	data_Ping=rs("data_Ping")
	data_playurl=rs("data_playurl")'播放地址
	data_playpath=rs("data_playpath")'播放来源
Else
	Call QvodCms_Err("没有找到该影片的相关信息，无法编辑，请点击确定返回上一页！")
End If
rs.Close
Set rs=nothing
%><html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<TITLE>管理页面</TITLE>
<link href="skins/css/jaja_main.css" rel="stylesheet" type="text/css" />
<script type='text/javascript' src='../Js/QvodCms.Ajax.js'></script>
<script language = "javaScript" src = "QvodCms_All.js" type="text/javascript"></script>
<script language="javascript" type="text/javascript" src="Skins/js/jquery.js"></script>
<script language="javascript" type="text/javascript" src="Skins/Js/PlayUrlAdd.Js"></script>
</head>
<body>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<th colspan=5 background="Skins/images/tdbg.gif" style="text-align:center;"><strong>修改视频数据</strong></th>
</tr>
<form name="form1" method="post" action="qvodcms_data_save.asp?action=edit&name_id=<%=data_id%>" onSubmit="javascript:return CheckForm()">
<tr >
<td width="102" class="td3" style="text-align:right; border-bottom:1px solid #FFFFFF">所属类别：</td>
<td colspan="3" class="td1" style="padding-left:5px"><select name="class_id" style=" width:135px;"><%=QvodCms_Class_Name(0,"",class_id)%>
</select> <select name="data_erea" style=" width:70px;"><%Call GetEreaName(data_erea)%></select> <select name="data_year" style=" width:60px;"><%Call GetYearName(data_year)%></select> <select name="data_color" style=" width:60px;"><%Call GetDataColor(data_color)%></select>
  *&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <Font color="#FF0000">如特殊文字不能自动生成字母,请大写手动输入!A~Z</Font></td>
</tr>
<tr >
  <td width="100" class="td3" style="text-align:right; border-bottom:1px solid #FFFFFF">视频名称：</td>
  <td colspan="3" class="td1" style="padding-left:5px"><input  style="width:250px;text-align:left" value="<%=data_name%>" name="data_name"> * <font color="#FF0000">自定义连载状态</font> <input name="LianZai" type="text" style="width:120px; text-align:left" value="<%=data_reurl%>"> 首字母：<input  name="dataping"  style="font-size:12px; color:#FF0000; font-weight:bold;width:40px;"  id="pingjc" value="<%=data_Ping%>" size=20>  </td>
</tr>
<tr >
  <td width="100" class="td3" style="text-align:right; border-bottom:1px solid #FFFFFF">领衔主演：</td>
  <td colspan="3" class="td1" style="padding-left:5px"><input name="data_actor" type="text" style="width:250px; text-align:left" value="<%=data_actor%>"> * 以","号或"|"号割开！ <font  color="#FF0000">指定模板 </font> <input name="data_skin" type="text" style="width:124px; text-align:left; color:red;" value="<%=data_inputer%>"> 如:nb.html 留空为默认模板</td>
</tr>
<tr >
  <td width="100" class="td3" style="text-align:right; border-bottom:1px solid #FFFFFF">影片导演：</td>
  <td colspan="3" class="td1" style="padding-left:5px"><input name="data_director" type="text" style="width:250px; text-align:left" value="<%=data_director%>"></td>
</tr>
<tr >
  <td width="100" class="td3" style="text-align:right; border-bottom:1px solid #FFFFFF">介绍大图：</td>
  <td width="268" class="td1" style="padding-left:5px;"><input name="data_bigpic" type="text" style="width:250px; text-align:left;" value="<%=data_picurl%>"></td>
  <td width="265" class="td1" ><span style="padding-left:5px;">
    <iframe src="QvodCms_Upfile.Html.asp?name=data_bigpic" scrolling="no" topmargin="0" width="240" height="24" marginwidth="0" marginheight="0" frameborder="0" align="left"></iframe></span></td>
  <td width="603" class="td1" >&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;只有服务器支持ASPJPEG组件才生效</td>
</tr>
<%If Cint(AdminId(6))=1 Then %>
<tr>
  <td width="100" class="td3" style="text-align:right; border-bottom:1px solid #FFFFFF">列表小图：</td>
  <td width="268" class="td1" style="padding-left:5px;"><input name="data_smallpic" type="text" style="width:250px; text-align:left;" value="<%=data_picurll%>"></td>
  <td width="265" class="td1" ><span style="padding-left:5px;">
    <iframe src="QvodCms_Upfile.Html.asp?name=data_smallpic" scrolling="no" topmargin="0" width="240" height="24" marginwidth="0" marginheight="0" frameborder="0" align="left"></iframe></span></td>
  <td class="td1" >&nbsp;</td>
</tr>
<%End If%>
<tr >
  <td width="100" class="td3" style="text-align:right; border-bottom:1px solid #FFFFFF">视频语言：</td>
  <td class="td1" style="padding-left:5px"><input name="data_language" type="text" style="width:250px; text-align:left;" value="<%=data_language%>" ></td>
  <td colspan="2" class="td1" style="padding-left:5px"><%Call Language%></td>
  </tr>
<tr >
  <td width="100" class="td3" style="text-align:right; border-bottom:1px solid #FFFFFF">视频属性：</td>
  <td colspan="3" class="td1" style="padding-left:1px"><input type="checkbox" name="data_elite" value="1" style="border:none" <%Call QvodCms_Radio(data_elite,1)%>>推荐视频 <input type="checkbox" name="data_hits" value="<%=AdminId(28)%>" <%Call DataHits(data_hits)%> style="border:none">热门电影 <input name="data_status" type="checkbox" style="border:none" value="1" <%Call QvodCms_Radio(data_status,1)%>>终审通过 <input type="checkbox" name="data_lastdate" value="1" style="border:none"  checked>是否更新时间
  <input type="checkbox" name="data_vip" value="1" style="border:none" <%Call QvodCms_Radio(data_vip,1)%>><font color="#FF0000">会员电影</font>
  <input type="checkbox" name="data_cu" value="1" style="border:none" <%Call QvodCms_Radio(data_cu,1)%>><font color="#FF0000">标题加粗</font></td>
</tr>
<tr>
  <td colspan="4" >
 <div id="playarea">
 <%	
 Dim PlayArr,PlayClass,PlayContent,P,VDataArr,VDataArr1,PlayArr1
 P=0
 IF Not IsNul(data_playurl)  Then
    UrlArr1=Split(data_playurl,"$$$")
    IF Not IsNul(data_playpath) Then
	   PlayArr1=Split(data_playpath,"$$")
	   IF Ubound(UrlArr1)<Ubound(PlayArr1) Then
		  For P=0 To Ubound(UrlArr1)
			 IF P=0 Then 
			   data_playurl=PlayArr1(0)
			 Else
			   data_playurl=""
			 End IF
		  Next 
	   ElseIF Ubound(UrlArr1)>Ubound(PlayArr1) Then
		  For P=1 To Ubound(UrlArr1)-Ubound(PlayArr1)
			data_playurl=data_playurl&"$$$"&"未知"
		  Next
	   End IF 
    Else
	  For P=0 To Ubound(UrlArr1)
		 IF P=0 Then 
			data_playurl="未知"
		 Else
			data_playurl=data_playurl&"$$"&"未知"
		 End IF
	  Next
	End IF
 End IF
 
 IF Not IsNul(data_playurl) Then
   UrlArr=Split(data_playurl,"$$$")
   PathArr=Split(data_playpath,"$$")
   For P=0 To Ubound(PathArr)
	 PlayClass=PathArr(P)
	 PlayContent=UrlArr(P)
	 PlayContent=ReplaceStr(PlayContent,Chr(10),"")
	 PlayContent=ReplaceStr(PlayContent,"#",Chr(13))								
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" id="<%=P+1%>">
  <tr>
   <td width="102" height="30" class="td3" style="text-align:right; border-bottom:1px solid #FFFFFF">&nbsp;播放来源<%=P+1%>：</td>
<td width="1131"  style="padding-left:5px"><select name="data_playpath" style="width:285px;" id="data_playpath"><%=PlaySelect(PlayClass)%></select> <font color="#FF0000">＊</font> <%'IF P<>0 Then%>&nbsp;<input type="button" value="移除本组数据" class="rb1" onClick="RemoveData('确定移除本组视频数据吗?',<%=P+1%>)"><%'End IF%></td>
  </tr>
<tr>
<td class="td3" style="text-align:right;">&nbsp;数据地址<%=P+1%>：<br />&nbsp;<input style="margin-right:15px;" type='button' value='校 正' title='校正右侧文本框中的数据格式' class='rb1'  name="reg" id="<%=P+1%>"/></td>
<td  align="left" style="padding-left:5px"><textarea name="data_playurl" id="data_playurl<%=P+1%>"  cols="110" rows="12"><%=PlayContent%></textarea><font color="#FF0000">＊</font></td>
</tr>
<%IF P=Ubound(UrlArr) Then %>
<tr id="btn_addpaly<%=P%>">
<td height="30" class="td3">&nbsp;<img onClick="appendplay(<%=P+1%>,escape('<%=ReplaceStr(PlaySelect(0),"'","\'")%>'),0,escape(''))"  name="btn_addpaly" src="images/add.png" id="btn_addplay"  style="cursor:pointer" alt="添加"/></td>
<td height="30"  class="td_border">&nbsp;<font color="#FF0000"><strong>← </strong>点击增加播放组来源及地址</font></td>
</tr>
<%End IF%>
</table>
<%
Next
Else
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" >
  <tr>
   <td width="102" height="30" class="td3" style="border-bottom:1px solid #FFFFFF">&nbsp;播放来源1：</td>
<td width="1131" style="padding-left:5px"><select name="data_playpath" style="width:285px;" id="data_playpath"><option value="">暂无数据</option><%=PlaySelect(0)%></select><font color="#FF0000">＊</font> </td>
  </tr>
<tr>
<td class="td3" >&nbsp;数据地址<%=P+1%>：<br />&nbsp;<input type='button' value='校 正' title='校正右侧文本框中的数据格式' class='rb1'  name="reg" id="1"/></td>
<td  align="left" style="padding-left:5px"><textarea name="data_playurl" id="data_playurl<%=P+1%>"  cols="110" rows="12"></textarea><font color="#FF0000">＊</font></td>
</tr>
<tr id="btn_addpaly0">
<td height="30" class="td3">&nbsp;<img onClick="appendplay(<%=P+1%>,escape('<%=ReplaceStr(PlaySelect(0),"'","\'")%>'),0,escape(''))"  name="btn_addpaly" src="images/add.png" id="btn_addplay"  style="cursor:pointer" alt="添加"/></td>
<td height="30"  class="td_border">&nbsp;<font color="#FF0000"><strong>← </strong>点击增加播放组来源及地址</font></td>
</tr></table><%End If%>
</div>  
  </td>
</tr>
														
<tr>
  <td width="100" class="td3" style="text-align:right; border-bottom:1px solid #FFFFFF">影片简介：</td>
  <td colspan="3" class="td1" style="padding-left:5px; height:220px"><textarea name="data_intro" cols="80" rows="15" id="content" style="display:none"><%=data_intro%></textarea><iframe ID="Editor" name="Editor" src="fckeditor/editor/fckeditor.html?InstanceName=data_intro&amp;Toolbar=qvodcms" frameBorder="0" marginHeight="0" marginWidth="0" scrolling="No" width="791" height="220"></iframe></td>
</tr>
<tr >
  <td width="100" class="td3" style="text-align:right; border-bottom:1px solid #FFFFFF">处理方式<span class="td2" style="text-align:right; border-bottom:1px solid #FFFFFF;"></span></td>
  <td colspan="3" class="td1" style=" text-align:center"><input type="submit" name="Submit" value="提交">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="reset" name="Submit2" value="重置"></td>
</tr>
</form>
</table>
</body>
</html>