<!-- #include file="conn.asp" -->
<!-- #include file="check.asp" -->
<!-- #include file="inc/function.asp" -->

<% 
 '===========================================================================================
	'软件名称：126 cms 视频影视管理系统
	'程序版权：126电影               '咨询QQ：479025
	'开发作者：magicblack(479025)    '官方网站：http://www.126oo.com/
	'Copyright (C) 2009 - ... 126oo.com  All Rights Reserved.
	'郑重声明:
	'    1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
	'    2、任何个人或组织不得以盈利为目的发布,修改,本软件及其他副本上一切关于版权的信息；
	'    3、126电影保留此软件的法律追究权利；
'==========================================================================================
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>影片管理 - 后台管理中心 - 126电影程序CMS</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="images/css_body.css" type=text/css rel=stylesheet>
<script language="javascript" src="images/admin.js"></script>
<script language="javascript" src="images/ajaxrequest.js"></script>
<script language="javascript" src="images/movie.js"></script>
</HEAD>
<BODY>
<DIV class=bodytitle>
<DIV class=bodytitleleft></DIV>
<DIV class=bodytitletxt>影片管理</DIV>
<DIV class=bodytitletxt2><a href="admin_movie.asp?action=add">添加影片</a></DIV>
</DIV>
<%
response.Charset="GBK"
dim action
action = SafeData("RQ","action",0)

Select case action
	case "add" : add
	case "addsave" : addsave
	case "edit" : edit
	case "editsave" : editsave
	case "del" : del
	case "delall" : delAll
	case else : main
End Select

sub addsave()
Dim D_Name : D_Name = SafeData("RF","D_Name",0)
Dim D_Type : D_Type = SafeData("RF","D_Type",0)
Dim D_State : D_State = SafeData("RF","D_State",0)
Dim D_Color : D_Color = SafeData("RF","D_Color",0)
Dim D_Pic : D_Pic = SafeData("RF","pic",0)
Dim D_Starring : D_Starring = SafeData("RF","D_Starring",0)
Dim D_Directed : D_Directed = SafeData("RF","D_Directed",0)
Dim D_Area : D_Area = SafeData("RF","D_Area",0)
Dim D_Year : D_Year = SafeData("RF","D_Year",0)
Dim D_Language : D_Language = SafeData("RF","D_Language",0)
Dim D_Level : D_Level = SafeData("RF","D_Level",0)
Dim D_Hits : D_Hits = SafeData("RF","D_Hits",0)
Dim D_Topic : D_Topic = SafeData("RF","D_Topic",0)
Dim D_Content : D_Content = SafeData("RF","D_Content",0)
Dim D_Source1 : D_Source1 = SafeData("RF","D_Source1",0)
Dim D_PlayUrl1 : D_PlayUrl1 = SafeData("RF","D_PlayUrl1",0)
Dim D_Remarks : D_Remarks = SafeData("RF","D_Remarks",0)
Dim D_Source2 : D_Source2 = SafeData("RF","D_Source2",0)
Dim D_PlayUrl2 : D_PlayUrl2 = SafeData("RF","D_PlayUrl2",0)
Dim D_AddTime : D_AddTime = now()
Dim D_Stint : D_Stint = SafeData("RF","D_Stint",0)


if isN(D_Name) then ErrMsg "影片管理","影片名称不能为空，请检查!"
if isN(D_Type) or D_Type= 0 then ErrMsg "影片管理","影片分类不能为空，请检查!"


if isN(D_Area) or not isNum(D_Area) then D_Area =0 
if isN(D_Language) or not isNum(D_Language) then D_Language =0 
if isN(D_Level) or not isNum(D_Level) then D_Level =0 
if isN(D_Hits) or not isNum(D_Hits) then D_Hits =0 
if isN(D_Topic) or not isNum(D_Topic) then D_Topic =0 
if isN(D_Level) or not isNum(D_Level) then D_Level =0 
if isN(D_Stint) or not isNum(D_Stint) then D_Stint=0


Dim result : result = DataBase.AddRecord("Tbl_Datas",Array("D_Name:"&D_Name, "D_Type:"&D_Type, "D_State:"&D_State, "D_Color:"&D_Color, "D_Pic:"&D_Pic,"D_Starring:"&D_Starring,"D_Directed:"&D_Directed,"D_Area:"&D_Area,"D_Year:"&D_Year,"D_Language:"&D_Language,"D_Level:"&D_Level,"D_Hits:"&D_Hits,"D_Topic:"&D_Topic,"D_Content:"&D_Content,"D_Source1:"&D_Source1,"D_PlayUrl1:"&D_PlayUrl1,"D_Remarks:"&D_Remarks,"D_Source2:"&D_Source2,"D_PlayUrl2:"&D_PlayUrl2,"D_AddTime:"&D_AddTime,"D_Stint:"&D_Stint))  
 
If result<>0 Then  
    ShowMsg "添加影片成功！"  ,"admin_movie.asp" 
End If  
end sub

sub editsave()
Dim D_ID : D_ID = SafeData("RF","D_ID",0)
Dim D_Name : D_Name = SafeData("RF","D_Name",0)
Dim D_Type : D_Type = SafeData("RF","D_Type",0)
Dim D_State : D_State = SafeData("RF","D_State",0)
Dim D_Color : D_Color = SafeData("RF","D_Color",0)
Dim D_Pic : D_Pic = SafeData("RF","pic",0)
Dim D_Starring : D_Starring = SafeData("RF","D_Starring",0)
Dim D_Directed : D_Directed = SafeData("RF","D_Directed",0)
Dim D_Area : D_Area = SafeData("RF","D_Area",0)
Dim D_Year : D_Year = SafeData("RF","D_Year",0)
Dim D_Language : D_Language = SafeData("RF","D_Language",0)
Dim D_Level : D_Level = SafeData("RF","D_Level",0)
Dim D_Hits : D_Hits = SafeData("RF","D_Hits",0)
Dim D_Topic : D_Topic = SafeData("RF","D_Topic",0)
Dim D_Content : D_Content = SafeData("RF","D_Content",0)
Dim D_Source1 : D_Source1 = SafeData("RF","D_Source1",0)
Dim D_PlayUrl1 : D_PlayUrl1 = SafeData("RF","D_PlayUrl1",0)
Dim D_Remarks : D_Remarks = SafeData("RF","D_Remarks",0)
Dim D_Source2 : D_Source2 = SafeData("RF","D_Source2",0)
Dim D_PlayUrl2 : D_PlayUrl2 = SafeData("RF","D_PlayUrl2",0)
Dim D_AddTime : D_AddTime = now()
Dim D_Stint : D_Stint = SafeData("RF","D_Stint",0)

if isN(D_Name) then ErrMsg "影片管理","影片名称不能为空，请检查!"
if isN(D_Type) or D_Type= 0 then ErrMsg "影片管理","影片分类不能为空，请检查!"

if isN(D_Area) or not isNum(D_Area) then D_Area =0 
if isN(D_Language) or not isNum(D_Language) then D_Language =0 
if isN(D_Level) or not isNum(D_Level) then D_Level =0 
if isN(D_Hits) or not isNum(D_Hits) then D_Hits =0 
if isN(D_Topic) or not isNum(D_Topic) then D_Topic =0 
if isN(D_Level) or not isNum(D_Level) then D_Level =0 
if isN(D_Stint) or not isNum(D_Stint) then D_Stint=0

Dim result : result = DataBase.UpdateRecord("Tbl_Datas","D_ID = "& D_ID ,Array("D_Name:"&D_Name, "D_Type:"&D_Type, "D_State:"&D_State, "D_Color:"&D_Color, "D_Pic:"&D_Pic,"D_Starring:"&D_Starring,"D_Directed:"&D_Directed,"D_Area:"&D_Area,"D_Year:"&D_Year,"D_Language:"&D_Language,"D_Level:"&D_Level,"D_Hits:"&D_Hits,"D_Topic:"&D_Topic,"D_Content:"&D_Content,"D_Source1:"&D_Source1,"D_PlayUrl1:"&D_PlayUrl1,"D_Remarks:"&D_Remarks,"D_Source2:"&D_Source2,"D_PlayUrl2:"&D_PlayUrl2,"D_AddTime:"&D_AddTime,"D_Stint:"&D_Stint))  
 
If result<>0 Then  
    ShowMsg "修改影片成功！"  ,"admin_movie.asp" 
End If 
end sub

sub del()
	Dim D_ID : D_ID = SafeData("RQ","D_ID",0)
	Dim rs : Set rs = Database.GetRecordDetail("Tbl_Datas","D_ID=" & D_ID) 
	if rs.eof then ShowMsg "找不到此ID的影片!","admin_movie.asp"
	Dim D_Pic : D_Pic = rs("D_Pic")
	
	Dim result : result = Database.DeleteRecord("Tbl_Datas", "D_ID:" & D_ID)   
	If result<>0 Then  
		if inStr(D_Pic,"http://") <=0 and FSOOBJ.IsExists("../"&D_Pic) then
			FSOOBJ.delfile "../"&D_Pic
		end if
		ShowMsg "删除记录成功!" ,"admin_movie.asp"  
	End If  
end sub

sub delall()
	Dim D_ID : D_ID = SafeData("RF","D_ID",0)
	if isN(D_ID) then ShowMsg "没有选择任何数据!" ,"admin_movie.asp"
	Dim arraymovie,i
	arraymovie = split(D_ID,",")
	for i=0 to ubound(arraymovie)
		Dim rs : Set rs = Database.GetRecordDetail("Tbl_Datas","D_ID=" & arraymovie(i)) 
		Dim D_Pic : D_Pic = rs("D_Pic")
		Dim result : result = Database.DeleteRecord("Tbl_Datas", "D_ID:" & arraymovie(i))   
		If result<>0 Then  
			if inStr(D_Pic,"http://") <=0 and FSOOBJ.IsExists("../"&D_Pic) then
				FSOOBJ.delfile "../"&D_Pic
			end if
		End If  
	next
	ShowMsg "批量删除记录成功!" ,"admin_movie.asp"  
end sub


sub main()

Dim aWhere,pagePars

Dim s_KeyWord : s_KeyWord = SafeData("RQ","KeyWord",0)
Dim s_Type : s_Type = SafeData("R","Tbl_Type",0)
Dim s_Area : s_Area = SafeData("R","Tbl_Area",0)
Dim s_Topic : s_Topic = SafeData("R","Tbl_Topic",0)
Dim s_Level : s_Level = SafeData("R","D_Level",0)

aWhere = aWhere & " 1=1 "
if not isN(s_KeyWord) then aWhere = aWhere & " and D_Name like '%"&s_KeyWord&"%' "
if not isN(s_Type) then aWhere = aWhere & " and D_Type = "&s_Type&" "
if not isN(s_Area) then aWhere = aWhere & " and D_Area = "&s_Area&""
if not isN(s_Topic) then aWhere = aWhere & " and D_Topic = "&s_Topic&""
if not isN(s_Level) then aWhere = aWhere & " and D_Level = "&s_Level&""


Dim rs : Set rs = DataBase.GetPageRecord(0,Array("Tbl_Datas:D_ID,D_Name,D_Type,D_Area,D_Language,D_Level,D_AddTime,D_Hits,D_Topic,D_State,D_Source1",aWhere,"D_AddTime Desc","D_ID")) 

Dim Page

 Page = DataBase.GetPager ("")

%>
<TABLE width="96%" border=0 align=center cellpadding=0 cellSpacing=1 class=tbtitle style="BACKGROUND: #cad9ea;">
  <TBODY>
    <TR>
      <TD bgColor=#f5fafe><table width="96%" border="0" align="center" cellpadding="3" cellspacing="1">
        <tr>
		<form action="admin_movie.asp" method="get"> 
          <td width="20%" class="bline"><strong>搜索影片：</strong></td>
          <td colspan="2"  class="bline"><input id=KeyWord size=40 name=keyword></td>
		  <td width="20%" align="center" class="bline">
		  <INPUT class=inputbut type=submit value=搜索 name=Submit></td>
          </form>
          <td width="15%"><strong>推荐查看：</strong></td>
          <td width="20%">
		  <select onchange=javascript:window.location.href=this.options[this.selectedIndex].value>			          <option value="admin_movie.asp">全部影片</option>
		  <option value=admin_movie.asp?D_Level=1>文字推荐</option>
		  <option value=admin_movie.asp?D_Level=2>图片推荐</option>
		  </select>		  
		  </td>
        </tr>
		
        <tr>
          <td width="15%"><strong>栏目查看：</strong></td>
          <td width="20%"><%=GetsSlectByUrl("Tbl_Type","T_Name","T_ID","T_Sort")%></td>
          <td width="15%"><strong>地区查看：</strong></td>
          <td width="20%"><%=GetsSlectByUrl("Tbl_Area","A_Name","A_ID","A_Sort")%></td>
          <td width="15%"><strong>专题查看：</strong></td>
          <td width="20%"><%=GetsSlectByUrl("Tbl_Topic","T_Name","T_ID","T_Sort")%></td>
        </tr>
      </table></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="96%" border=0 align=center cellpadding="5" cellSpacing=1 class=tbtitle style="BACKGROUND: #cad9ea;">
<form name="form" method="post">
  <TBODY>
    <TR align="center" bgColor=#f5fafe>
      <TD width="4%">&nbsp;</TD>
	  <TD width="5%">ID</TD>
      <TD>影片名称</TD>
      <TD width="10%">影片栏目</TD>
	  <TD width="8%">数据类型</TD>
      <TD width="8%">人气</TD>
      <TD width="8%">推荐</TD>
      <TD width="5%">连载</TD>
      <TD width="5%">专题</TD>
      <TD width="15%">更新时间</TD>
      <TD width="11%">操作</TD>
    </TR>
	<%
		While Not rs.eof
	%>
    <TR bgcolor="#FFFFFF" onMouseOver="this.bgColor='#f5fafe'" onMouseOut="this.bgColor='#FFFFFF'">
      <TD align="center"><input name="D_ID" type="checkbox" id="D_ID" value="<%=rs("D_ID")%>"></TD>
	  <TD align="center"><%=rs("D_ID")%></TD>
      <TD><%=rs("D_Name")%>&nbsp;<%=rs("D_State")%></TD>
      <TD align="center"><%=GetDicText("Tbl_Type","T_Name","T_ID",rs("D_Type"))%></TD>
	  <TD align="center"><%=rs("D_Source1")%></TD>
      <TD align="center"><%=rs("D_Hits")%></TD>

	<TD align="center" id="tj<%=rs("D_ID")%>"><%if Rs("D_Level") = 1 then
	Response.Write"<img src=""images/icon_01.gif"" border=""0"" style=""cursor: pointer;"" onClick=""ajaxdivdel('"&Rs("D_ID")&"','tj')""/>文"
	elseif Rs("D_Level") = 2 then  
	Response.Write"<img src=""images/icon_01.gif"" border=""0"" style=""cursor: pointer;"" onClick=""ajaxdivdel('"&Rs("D_ID")&"','tj')""/>图"
	else
Response.Write"<img src=""images/icon_02.gif"" border=""0"" style=""cursor: pointer;"" onClick=""setday('tj','"&Rs("D_ID")&"')""/>" 
	end if%>
	</TD>
	
      <TD align="center" id="lz<%=rs("D_ID")%>"><%if isN(Rs("D_State")) then
	Response.Write"<img src=""images/icon_02.gif"" border=""0"" style=""cursor: pointer;"" onClick=""setday('lz','"&Rs("D_ID")&"')""/>" 
	else 
	Response.Write"<img src=""images/icon_01.gif"" border=""0"" style=""cursor: pointer;"" onClick=""ajaxdivdel('"&Rs("D_ID")&"','lz')""/>"
	end if%>
	</TD>
      <TD align="center" id="zt<%=rs("D_ID")%>"><%if Rs("D_Topic")=0 then
	Response.Write"<img src=""images/icon_02.gif"" border=""0"" style=""cursor: pointer;"" onClick=""setday('zt','"&Rs("D_ID")&"')""/>" 
	else 
	Response.Write"<img src=""images/icon_01.gif"" border=""0"" style=""cursor: pointer;"" onClick=""ajaxdivdel('"&Rs("D_ID")&"','zt')""/>"
	end if%></TD>
      <TD align="center">
	  <%if cstr(formatdatetime(rs("D_AddTime"),2))=cstr(date()) then response.write"<FONT COLOR=""#FF0000"">"&rs("D_AddTime")&"</FONT>" else response.write""&rs("D_AddTime")%>
	  </TD>
      <TD align="center"><A href="admin_movie.asp?action=edit&id=<%=rs("D_ID")%>">修改</a> | <A href="admin_movie.asp?action=del&D_ID=<%=rs("D_ID")%>" onClick="return confirm('确定要删除吗?');">删除</a></TD>
    </TR>
	<%rs.MoveNext
	Wend 
	%>
	<TR bgcolor="#f8fbfb">
      <TD align="center"><input name="chkall" type="checkbox" id="chkall" value="checkbox" onClick="checkAll(this.checked,'input','D_ID');"/></TD>
      <TD colspan="10"> <input type="button" name="del" value="批量删除"  onClick="document.form.action='?action=delall';{if(confirm('确定删除您所选择的影片吗？')){this.document.form.submit();return true;}}" class=inputbut>

	  </TD>
    </TR>
    <TR align="center" bgcolor="#f8fbfb">
      <TD colspan="11"><%=Page%></TD>
    </TR>
  </TBODY>
  </form>
</TABLE>
<%
Database.C(rs)
end sub

sub add()
%>
<TABLE width="96%" border=0 align=center cellpadding="5" cellSpacing=1 class=tbtitle style="BACKGROUND: #cad9ea;">
  <TBODY>
<form name="form2" method="post" action="?action=addsave">
<TBODY>
   <tr> 
    <TD width="20%" bgColor=#f5fafe>影片名称：</td>
    <TD bgColor=#ffffff>
	<input name="d_name" type="text" size="20" value="" onBlur="if(this.value){ajaxckname(this.value);}" autocomplete="off">
&nbsp;<span id="d_name_ok"></span>
&nbsp;状态：<input name="D_State" type="text" size="10" value="">
&nbsp;颜色：
<select name="D_Color" >
<option value="" selected>选择文字颜色</option>
<option style="background-color:#FF0000;color: #FF0000" value="#FF0000">#FF0000</option>
<option style="background-color:#FFFF00;color: #FFFF00" value="#FFFF00">#FFFF00</option>
<option style="background-color:#FF33CC;color: #FF33CC" value="#FF33CC">#FF33CC</option>
<option style="background-color:#00FF00;color: #00FF00" value="#00FF00">#00FF00</option>
</select>
</td>
  </tr>
  
<tr> 
    <TD bgColor=#f5fafe>类			型：</td>
    <TD bgColor=#ffffff>
    &nbsp;
<%=Getshowselect("Tbl_Type","T_Name","D_Type","请选择栏目","","T_ID","T_Sort")%>
	&nbsp; 专题：
	<%=Getshowselect("Tbl_Topic","T_Name","D_topic","请选择专题","","T_ID","T_Sort")%>
    &nbsp; 收费积分(0为不需要积分)
    <input name="D_Stint" type="text" size="8" value="0">
	</td>
  </tr>
  
 <tr> 
    <TD vAlign=center width="20%" bgColor=#f5fafe>图片地址：</td>
    <TD bgColor=#ffffff><input name="pic" type="text" size="40" value="">&nbsp;<iframe src="up/upload.htm" scrolling="no" topmargin="0" width="320" height="24" marginwidth="0" marginheight="0" frameborder="0" align="center"></iframe></td>
  </tr>
  <tr> 
    <TD bgColor=#f5fafe>主			演：</td>
    <TD bgColor=#ffffff><input name="D_Starring" type="text" size="20" value=""> 
      &nbsp;导演：
      <input name="D_Directed" type="text" size="20" value="">
	  &nbsp; 上映日期：
    <input name="D_Year" type="text" id="D_Year" value="<%=DateTime(now(),"yy年")%>" size="8">
	  </td>
  </tr>
<tr> 
    <TD bgColor=#f5fafe>地			区：</td>
    <TD bgColor=#ffffff>
	 &nbsp;
    <%=Getshowselect("Tbl_Area","A_Name","D_Area","请选择地区","","A_ID","A_Sort")%>
     &nbsp; 语言 ：
    <%=Getshowselect("Tbl_Language","L_Name","D_Language","请选择语言","","L_ID","L_Sort")%>
	&nbsp; 影片人气 (默认是0)
    <input name="D_Hits" type="text" size="8" value="0">
	</td>
  </tr>
  
<tr> 
    <TD bgColor=#f5fafe>备			注：</td>
    <TD bgColor=#ffffff>
	 <input name="D_Remarks" type="text" size="70" value=""> 
	  </td>
  </tr>
  
  <tr> 
    <TD bgColor=#f5fafe>播放器选择1：</td>
    <TD bgColor=#ffffff>
	<select name="D_Source1">
	<option value="" selected>暂没有数据</option><%=GetShowPlaySelect("")%>
	</select>
    &nbsp; <input type="button" name="SubmitSever" value="采集" onClick="getTool();">
	</td>
  </tr>
      
  <tr> 
    <TD bgColor=#f5fafe>数据地址1：</td>
    <TD bgColor=#ffffff>
	<TEXTAREA NAME="D_PlayUrl1" ROWS="8" style="width:550px;table-layout:fixed; word-wrap:break-word;"></TEXTAREA>
	</td>
  </tr>
  
   <tr> 
    <TD bgColor=#f5fafe>播放器选择2：</td>
    <TD bgColor=#ffffff><select name="D_Source2"><option value="" selected>暂没有数据</option><%=GetShowPlaySelect("")%></select></td>
  </tr>
  
 <tr> 
    <TD bgColor=#f5fafe>数据地址2：</td>
    <TD bgColor=#ffffff><TEXTAREA NAME="D_PlayUrl2" ROWS="8" style="width:550px;table-layout:fixed; word-wrap:break-word;"></TEXTAREA></td>
  </tr>
   
   <tr> 
    <TD bgColor=#f5fafe></td>
    <TD bgColor=#ffffff>说明:程序默认每行为一个播放地址，多集请分行，不能有空行</td>
  </tr>
  <tr> 
    <TD bgColor=#f5fafe>相关介绍：</td>
    <TD bgColor=#ffffff><textarea name="D_Content" cols="80" rows="15" id="content" style="display:none"></textarea>
<iframe ID="Editor" name="Editor" src="Editor/index.html?ID=content" frameBorder="0" marginHeight="0" marginWidth="0" scrolling="No" style="height:320px;width:100%"></iframe>
</td>
  </tr>
  <tr> 
    <TD align="center" colspan="2" bgColor=#ffffff><input type=Submit class=button value="确认保存" name=Submit>&nbsp;<input type=reset name=Submit2 class=button value="清 除"></td>
  </tr>
  </form>
  </tbody>
</table>
<%
end sub

sub edit()
Dim D_ID : D_ID = SafeData("RQ","ID",0)
Dim rs : Set rs = Database.GetRecordDetail("Tbl_Datas","D_ID=" & D_ID)  

if rs.eof then ShowMsg "找不到此ID的影片!","admin_movie.asp"

%>
<TABLE width="96%" border=0 align=center cellpadding="5" cellSpacing=1 class=tbtitle style="BACKGROUND: #cad9ea;">
  <TBODY>
<form name="form2" method="post" action="?action=editsave">
<input name="D_ID" type="hidden" value="<%=rs("D_ID")%>">
<TBODY>
   <tr> 
    <TD width="20%" bgColor=#f5fafe>影片名称：</td>
    <TD bgColor=#ffffff>
	<input name="d_name" type="text" size="20" value="<%=rs("d_name")%>"  autocomplete="off">
&nbsp;<span id="d_name_ok"></span>
&nbsp;状态：<input name="D_State" type="text" size="10" value="<%=rs("D_State")%>">
&nbsp;颜色：
<select name="D_Color" >
<option style="background-color:<%=rs("d_color")%>;color: <%=rs("d_color")%>" value="<%=rs("d_color")%>"><%=rs("d_color")%></option>
<option style="background-color:#FF0000;color: #FF0000" value="#FF0000">#FF0000</option>
<option style="background-color:#FFFF00;color: #FFFF00" value="#FFFF00">#FFFF00</option>
<option style="background-color:#FF33CC;color: #FF33CC" value="#FF33CC">#FF33CC</option>
<option style="background-color:#00FF00;color: #00FF00" value="#00FF00">#00FF00</option>
</select>
</td>
  </tr>
  
<tr> 
    <TD bgColor=#f5fafe>类			型：</td>
    <TD bgColor=#ffffff>
    &nbsp;
<%= Getshowselect("Tbl_Type","T_Name","D_Type","请选择栏目",rs("d_type"),"T_ID","T_Sort")%>
	&nbsp; 专题：
	<%= Getshowselect("Tbl_Topic","T_Name","D_topic","请选择专题",rs("d_topic"),"T_ID","T_Sort")%>
    &nbsp; 收费积分(0为不需要积分)
    <input name="D_Stint" type="text" size="10" value="<%=rs("D_Stint")%>">
	</td>
  </tr>
  
 <tr> 
    <TD vAlign=center width="20%" bgColor=#f5fafe>图片地址：</td>
    <TD bgColor=#ffffff><input name="pic" type="text" size="40" value="<%=rs("d_pic")%>">&nbsp;<iframe src="up/upload.htm" scrolling="no" topmargin="0" width="320" height="24" marginwidth="0" marginheight="0" frameborder="0" align="center"></iframe></td>
  </tr>
  <tr> 
    <TD bgColor=#f5fafe>主			演：</td>
    <TD bgColor=#ffffff><input name="D_Starring" type="text" size="20" value="<%=rs("D_Starring")%>"> 
      &nbsp;导演：
      <input name="D_Directed" type="text" size="20" value="<%=rs("D_Directed")%>">
	  &nbsp; 上映日期：
    <input name="D_Year" type="text" id="D_Year" value="<%=rs("D_Year")%>" size="8">
	  </td>
  </tr>
<tr> 
    <TD bgColor=#f5fafe>地			区：</td>
    <TD bgColor=#ffffff>
	 &nbsp;
    <%= Getshowselect("Tbl_Area","A_Name","D_Area","请选择地区",rs("D_Area"),"A_ID","A_Sort")%>
     &nbsp; 语言 ：
    <%= Getshowselect("Tbl_Language","L_Name","D_Language","请选择语言",rs("D_Language"),"L_ID","L_Sort")%>
	&nbsp; 影片人气 
    <input name="D_Hits" type="text" size="8" value="<%=rs("D_Hits")%>">
	</td>
  </tr>
  
<tr> 
    <TD bgColor=#f5fafe>备			注：</td>
    <TD bgColor=#ffffff>
	 <input name="D_Remarks" type="text" size="70" value="<%=rs("D_Remarks")%>"> 
	  </td>
  </tr>
  
  <tr> 
    <TD bgColor=#f5fafe>播放器选择1：</td>
    <TD bgColor=#ffffff>
	<select name="D_Source1">
	<option value="" selected>暂没有数据</option><%=GetShowPlaySelect(rs("D_Source1"))%>
	</select>
    &nbsp; <input type="button" name="SubmitSever" value="采集" onClick="getTool();">
	</td>
  </tr>
      
  <tr> 
    <TD bgColor=#f5fafe>数据地址1：</td>
    <TD bgColor=#ffffff>
	<TEXTAREA NAME="D_PlayUrl1" ROWS="8" style="width:550px;table-layout:fixed; word-wrap:break-word;"><%=rs("D_PlayUrl1")%></TEXTAREA>
	</td>
  </tr>
  
   <tr> 
    <TD bgColor=#f5fafe>播放器选择2：</td>
    <TD bgColor=#ffffff><select name="D_Source2"><option value="" selected>暂没有数据</option><%=GetShowPlaySelect(rs("D_Source2"))%></select></td>
  </tr>
  
 <tr> 
    <TD bgColor=#f5fafe>数据地址2：</td>
    <TD bgColor=#ffffff><TEXTAREA NAME="D_PlayUrl2" ROWS="8" style="width:550px;table-layout:fixed; word-wrap:break-word;"><%=rs("D_PlayUrl2")%></TEXTAREA></td>
  </tr>
   
   <tr> 
    <TD bgColor=#f5fafe></td>
    <TD bgColor=#ffffff>说明:程序默认每行为一个播放地址，多集请分行，不能有空行</td>
  </tr>
  <tr> 
    <TD bgColor=#f5fafe>相关介绍：</td>
    <TD bgColor=#ffffff><textarea name="D_Content" cols="80" rows="15" id="content" style="display:none"><%=rs("D_Content")%></textarea>
<iframe ID="Editor" name="Editor" src="Editor/index.html?ID=content" frameBorder="0" marginHeight="0" marginWidth="0" scrolling="No" style="height:320px;width:100%"></iframe>
</td>
  </tr>
  <tr> 
    <TD align="center" colspan="2" bgColor=#ffffff><input type=Submit class=button value="确认保存" name=Submit>&nbsp;<input type=reset name=Submit2 class=button value="清 除"></td>
  </tr>
  </form>
  </tbody>
</table>
<%
Database.C(rs)
end sub
%>
</BODY>
</HTML>
