<html>
<head>
<META content=ywnt,云网互动影视管理系统 name=keywords>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>云网互动影视6.0--采集影片管理</title>
<LINK href="css/css.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
.RefreshLen {
	BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; MARGIN-top: 10px;MARGIN-BOTTOM: 5px; BORDER-LEFT: #000000 1px solid; WIDTH: 400px; BORDER-BOTTOM: #000000 1px solid; HEIGHT: 20px; TEXT-ALIGN: left
}
-->
</style>
</head>
<BODY leftMargin=0 topMargin=0 scroll=yes MARGINHEIGHT="0" MARGINWIDTH="0">
<!--#include file="../../Conn.asp"-->
<!--#include file="conn.asp" -->
<!--#include file="QvodCms_Add.asp" -->
<!--#include file="Inc/YWNT_TMS_Function.asp" -->
<!--#include file="Inc/YWNT_TMS_Page.asp" -->
<script language="JavaScript" src="Inc/Movie_Inflow.js"></script>
<%
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net  All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net 
'郑重声明:
'    1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================
'Call CheckLogin("Collect")
sub Inflow(Action,ID)
Response.Write"<table class=table cellspacing=1 cellpadding=3 width=""98%"" align=center border=0>" &vbcrlf
Response.Write"<tbody>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td colspan=""4"" class=xingmu>影片入库</td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<form action=""QvodCms_Inflow.asp?Action="&Action&""" method=""post"" name=""form"">" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td width=""21%"" height=32 align=""right"" class=""hback"">选择服务器：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback"">"
Response.Write("<select name='svid' id='svid' style='width:78px;'>")
Set RsC=Server.CreateObject("ADODB.RecordSet")
RsC.Open "Select * From 服务器 Order By svid desc",connx,3,3
If Not RsC.Eof Then
	Do While Not RsC.Eof
%>
<option value="<%= RSC("svid") %>"><%= RSC("svname") %></option>
<% 
		RsC.MoveNext
	Loop
End If
RsC.Close
Set RsC=Nothing
'选择分类结束
Response.Write("</select>")
'选择服务器
Rem 选择服务器

Response.Write"</td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">选择分类：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback"">"

'选择分类
Rem 入库选择分类
Response.Write("<select name='ClassID' id='ClassID' style='width:78px;'>")
Set RsC=Server.CreateObject("ADODB.RecordSet")
RsC.Open "Select * From 电影分类 ",connx,3,3
If Not RsC.Eof Then
	Do While Not RsC.Eof
%>
<option value="<%= RSC("电影分类") %>"><%= RSC("分类名称") %></option>
<% 
		RsC.MoveNext
	Loop
End If
RsC.Close
Set RsC=Nothing
'选择分类结束
Response.Write("</select>")

Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">播放类型：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback""><select name='data_sv' style='width:78px;'><option value='快播QVOD' >快播QVOD</option><option value='迅播GVOD' >迅播GVOD</option><option value='百度影音' >百度影音</option><option value='优酷视频' >优酷视频</option><option value='土豆高清' >土豆高清</option><option value='奇艺视频' >奇艺视频</option><option value='ku6视频' >ku6视频</option><option value='56视频' >56视频</option><option value='FLV视频' >FLV视频</option><option value='SWF数据' >SWF数据</option><option value='Media' >Media</option></select> <font color='red'>注意：一定要仔细选择好播放器。如GVOD QVOD,下面其它不用处理!</font>"
'call MovieRegion("MovieRegion","")
Rem 入库地区选择:需要连接电影站的数据库,取出地区资料

Response.Write"</td>"
Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">所需影币：</td>" &vbcrlf
Response.Write"<td width=""16%"" height=32 class=""hback""><input name=""MovieCoin"" type=""text"" value=""2"" size=""10""></td>" &vbcrlf
Response.Write"<td width=""21%"" align=""right"" class=""hback"">初始点击数： </td>" &vbcrlf
Response.Write"<td class=""hback""><input name=""MovieClick"" type=""text"" value=""0"" size=""10""></td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">影片权限：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback""><input name=""MovieCompetence"" type=""radio"" onClick=""showThumbnail_RateOrSize(0,'UserGroup')"" value=""0"" checked>" &vbcrlf
Response.Write"所有会员组" &vbcrlf
Response.Write"<input type=""radio"" name=""MovieCompetence"" value=""1"" onClick=""showThumbnail_RateOrSize(1,'UserGroup')"">" &vbcrlf
Response.Write"指定会员组</td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
'Response.Write"<tr id=UserGroup style=""display:none"">" &vbcrlf
'Response.Write"<td height=32 colspan=""4"" class=""hback"">"& GetUserGroup_CheckBox(MovieGroup,6) &"</td>" &vbcrlf
'Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">开放方式：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback""><input name=""MovieLook"" type=""checkbox"" value=""1"" checked>" &vbcrlf
Response.Write"在线观看" &vbcrlf
Response.Write"<input type=""checkbox"" name=""MovieDown"" value=""1"">" &vbcrlf
Response.Write"影片下载 </td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">影片属性：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback""><input type=""checkbox"" name=""MovieSuggest"" value=""1"">" &vbcrlf
Response.Write"推荐影片" &vbcrlf
Response.Write"<input type=""checkbox"" name=""MovieHot"" value=""1"">" &vbcrlf
Response.Write"热点影片" &vbcrlf
Response.Write"<input type=""checkbox"" name=""MovieSerialization"" value=""1"">" &vbcrlf
Response.Write"连载影片" &vbcrlf
Response.Write"<input type=""checkbox"" name=""MovieFeature"" value=""1"" onClick=""showcheckbox('MovieFeature','Featureshow')"">" &vbcrlf
Response.Write"专题影片" &vbcrlf
Response.Write"<input name=""MovieFree"" type=""checkbox"" id=""MovieFree"" value=""1"">" &vbcrlf
Response.Write"免费试看 </td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr id=""Featureshow"" style=""display:none"">" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">所属专题：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback""><input name=""FeatureName"" type=""text"" size=""40"" readonly>" &vbcrlf
Response.Write"<input name=""FeatureID"" type=""hidden"" id=""FeatureID"" value="""">" &vbcrlf
Response.Write"<input type=""button"" name=""SubmitFeature"" value=""选择栏目"" onClick=""SelectFeature();"">" &vbcrlf
Response.Write"<input type=""button"" name=""SubmitFeatureAdd"" value=""添加栏目"" onClick=""window.location.href='../QvodCms_FeatureType.asp?Action=Add'""></td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">入库类型：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback""><input name=""InflowType"" type=""radio"" value=""1"" checked>" &vbcrlf
Response.Write"普通地址" &vbcrlf
Response.Write"<input type=""radio"" name=""InflowType"" value=""2"">" &vbcrlf
Response.Write"BOBOP2P地址" &vbcrlf
Response.Write"<input type=""radio"" name=""InflowType"" value=""3"">" &vbcrlf
Response.Write"小偷模式" &vbcrlf
Response.Write"<input type=""radio"" name=""InflowType"" value=""4"">" &vbcrlf
Response.Write"框架模式</td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 colspan=""4"" align=""center"" class=""hback""><input name=""ID"" type=""hidden"" value="""&ID&"""><input type=""Submit"" name=""Submit"" value=""入 库""></td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"</form>" &vbcrlf
Response.Write"</tbody>" &vbcrlf
Response.Write"</table>" &vbcrlf
end sub

sub WriteJD()
Response.Write"<TABLE class=table cellSpacing=1 cellPadding=3 width=""98%"" align=center border=0>" &vbcrlf
Response.Write"<TBODY>" &vbcrlf
Response.Write"<TR>" &vbcrlf
Response.Write"<TD class=xingmu>入库进度</TD>" &vbcrlf
Response.Write"</TR>" &vbcrlf
Response.Write"<TR align=""center"">" &vbcrlf
Response.Write"<TD height=32 class=""hback""><div class=""RefreshLen""><span class=""xingmu"" id=""RefreshLenx""></span></div></TD>" &vbcrlf
Response.Write"</TR>" &vbcrlf
Response.Write"<TR>" &vbcrlf
Response.Write"<TD height=32 align=""center"" class=""hback"">总共要入库<span id=""MovieNum""></span>个影片,已经入库<span id=""MovieHtmlNum"">0</span>个影片</TD>" &vbcrlf
Response.Write"</TR>" &vbcrlf
Response.Write"<TR align=""center"">" &vbcrlf
Response.Write"<TD height=32 class=""hback""><a href=""QvodCms_Inflow.asp"">返回</a></TD>" &vbcrlf
Response.Write"</TR>" &vbcrlf
Response.Write"</TBODY>" &vbcrlf
Response.Write"</TABLE>" &vbcrlf
end sub

sub EditSave()
		Set Rs=Server.CreateObject(YWNT_TMS_CJRS)
		sql="select * from movie where ID="&NoSqlHack(Request.Form("ID"))
		Rs.open sql,connx,1,3
		RS("title")=NoSqlHack(Request.Form("MovieName"))
		RS("name")=NoSqlHack(Request.Form("MovieActor"))
		RS("tupian")=NoSqlHack(Request.Form("MoviePic"))
		RS("CollectZT")=NoSqlHack(Request.Form("CollectZT"))
		RS("content")=NoSqlHack(Request.Form("Content"))
		Rs.Update
		Rs.Close
		Set Rs = Nothing
		Set Rs = server.CreateObject(YWNT_TMS_CJRS)
		sql="select * from url where nameid="&NoSqlHack(Request.Form("ID"))
		Rs.open sql,connx,1,3
		do while not Rs.eof
		i=i+1
		RS("url")=NoSqlHack(Request.Form("Url"&i))
		Rs.update
		Rs.movenext
		loop
		Rs.close
		set Rs=nothing
		'Call AddLog("采集影片修改",9)
		call Admin_ShowErr("<li>修改影片成功</li>","QvodCms_Inflow.asp",1)
end sub
sub Del()
	connx.execute "delete from movie WHERE ID in ("&NoSqlHack(Request("ID"))&")"
	connx.execute "delete from url WHERE nameid in ("&NoSqlHack(Request("ID"))&")"
	'Call AddLog("删除采集影片",9)
	call Admin_ShowErr("<li>删除影片成功！</li>","QvodCms_Inflow.asp",1)
end sub
sub DelUrl()
	connx.execute "delete from url WHERE ID="&NoSqlHack(Request.QueryString("ID"))&""
	response.redirect Request.ServerVariables("HTTP_REFERER")
end sub
sub DelAll()
	connx.execute "delete from movie"
	connx.execute "delete from url"
	'Call AddLog("删除采集影片",9)
	call Admin_ShowErr("<li>删除影片成功！</li>","QvodCms_Inflow.asp",1)
end sub
sub IDInflow()
	call Inflow("IDX",NoSqlHack(Request.Form("ID")))
end sub
sub AllInflow()
	call Inflow("All","")
end sub
sub All()
	Call WriteJD()
    MovieNumW=Connx.Execute("Select count(ID) from movie where CollectZT<>1")(0)
	Sql_Collect="select * from movie where CollectZT<>1"
	Call MovieInflow(Sql_Collect,MovieNumW)
	connx.execute("update movie set CollectZT=1")
	'Call AddLog("采集影片全部入库",9)
end sub
sub IDX()
	'Call WriteJD()
    MovieNumW=Connx.Execute("Select count(ID) from movie where ID in ("&NoSqlHack(Request.Form("ID"))&") and CollectZT<>1")(0)
	Sql_Collect="select * from movie Where id in ("&NoSqlHack(Request.Form("ID"))&") and CollectZT<>1"
	'Call MovieInflow(Sql_Collect,MovieNumW)
	connx.execute("update movie set CollectZT=1 where id in ("&NoSqlHack(Request.Form("ID"))&")")'启用入库状态
	'Call AddLog("采集影片批量入库",9)



Rem 修改MovieInflow过程来进行数据入库

		   Rem 启用QvodCms入库入库开始
		   rem 读取采集库
		   dim RS_Movie,Name_Id,tupian,nianfen
		   Id=Request("id")
		   Name_id=split(ID,", ")
		   for i=0 to ubound(Name_id)
		   set RS_Movie=Server.CreateObject("ADODB.RecordSet")
		   RS_Movie.open("Select * from Movie where id="&Name_id(i)&""),connx,2,3
		   Dim  typeid,play,Namex,t1,content,data_sv
		   class_id=Cint(Request.Form("ClassID"))
		   play="QvodCms"
		   cj_data_name=Trim(HtmlCode(RS_Movie("title")))
		   'zhuyan=replace(replace(RS_Movie("name"),",","|")," ","|")data_sv
		   cj_data_actor=RS_Movie("name")
		   t1="0"
		   data_sv=Trim(Request.Form("data_sv")) '播放器组 默认QVOD 1是GVOD
		   cj_data_intro=HtmlCode(RS_Movie("content"))
		   cj_data_director=left(RS_Movie("name"),3)
		   cj_data_erea=HtmlCode(RS_Movie("chandi"))
		   'guojia=Request.form("guojia")
		   yuyan="影片内详" 'Request.form("yuyan")
           'tupian=RS_Movie("tupian")	
		   sever="QVODCMS"
		   data_lastdate=now()
		   cj_data_picurl=RS_Movie("tupian")	
		   cj_data_picurll=RS_Movie("tupiansmall")	
           nianfen="2010"
		   data_status="1"
		   Call OpenConn()
		   Dim cj_data_playurl:cj_data_playurl=""
		   Dim reurl:reurl=0
		   '无来源有同名,编辑影片与地址
	           set cjurl=Server.CreateObject("ADODB.RecordSet")
			   cjurl.open"select weburl,url from url where nameid="&RS_Movie("id")&" order by id asc",connx,1,1
			   Do while not cjurl.eof
			   reurl=reurl+1
			   cj_data_playurl=cj_data_playurl&"第"&reurl&"集$"&cjurl("url")&"#"
			   cjurl.Movenext:Loop
			   cjurl.Close:Set cjurl=Nothing
			   cj_data_playpath=data_sv
			   cj_data_reurl="第"&reurl&"集"
			   'Response.Write cj_data_playurl&"<Br>---------------------------<BR><BR>"	
			   IF  Right(cj_data_playurl,1)="#" Then cj_data_playurl=Left(cj_data_playurl,Len(cj_data_playurl)-1) End IF
			   'Response.flush() 
		       Call InsertData(class_id,cj_data_name,cj_data_actor,cj_data_director,cj_data_erea,cj_data_picurl,cj_data_picurll,cj_data_intro,cj_data_reurl,cj_data_playpath,cj_data_playurl)
  
		Next
            RS_Movie.close:Set RS_Movie=nothing
			conn.close:Set conn=nothing
end sub

'入库过程结束

Action=Trim(request("Action"))
Select Case Action
Case "Edit"
		Set Rs=Server.CreateObject(YWNT_TMS_CJRS)
		sql="select * from movie where ID="&NoSqlHack(Request.QueryString("ID"))
		Rs.open sql,connx,1,1
		ID=RS("ID")
		title=HtmlCode(RS("title"))
		name=RS("name")
		daoyan=RS("daoyan")
		'chandi=RS("region")
		chandi=RS("chandi")
		title=RS("title")
		'tupian=RS("tupian")'因采集mtv无图片，原读取图片已经停止用，如开启，请修改这里!
		tupian=RS("tupian")
		tupian2=RS("tupiansmall")
		CollectZT=RS("CollectZT")
		content=HtmlCode(RS("content"))
		RS.close   
      	set RS=nothing
	call Edit()
Case "EditSave"
	call EditSave()
Case "Del"
	call Del()
Case "DelUrl"
	call DelUrl()
Case "DelAll"
	call DelAll()
Case "AllInflow"
	call AllInflow()
Case "IDInflow"
	call IDInflow()
Case "All"
	call All()
Case "IDX"
	call IDX()	
Case else
	call List()
End Select
sub List()
Dim int_RPP
	'int_RPP=GetConfig("PageNumber") '设置每页显示数目
	int_RPP=20
%>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class=table>
  <tr>
    <td height="25" valign="center" class="hback">选择状态：<A href="QvodCms_Inflow.asp?CollectZT=1">已入库</A> -- <A href="QvodCms_Inflow.asp?CollectZT=0">未入库</A> -- <A href="QvodCms_Inflow.asp">所有</A> </td>
  </tr>
</table>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <tbody>
    <tr>
      <td colspan="5" class=xingmu>影片查询</td>
    </tr>
  <form action="QvodCms_Inflow.asp" method="post">
    <tr>
      <td colspan="3" align="right" class="hback">按影片名称查询：</td>
    <td class="hback"><input name="MovieName" type="text" id="MovieName" size="40"></td>
      <td class="hback"><input type="submit" name="Submit2" value="查 询"></td>
    </tr>
  </form>
  </tbody>
</table>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <tbody>
    <tr>
      <td width="5%" align="center" class=xingmu>ID</td>
      <td align="center" class=xingmu>影片名称</td>
      <td width="10%" align="center" class=xingmu>状态</td>
      <td width="20%" align="center" class=xingmu>采集站点</td>
      <td width="18%" align="center" class=xingmu>添加时间</td>
      <td colspan="2" align="center" class=xingmu>操作</td>
    </tr>
<form name="forms" action="QvodCms_Inflow.asp" method="post">
<%  Set Rs = server.CreateObject(YWNT_TMS_CJRS)
		sql="Select ID,title,CollectZT,ClassName,TimeDate from movie"
		if Request.QueryString("CollectZT")<>"" then
			sql=sql&" where CollectZT="&NoSqlHack(Request.QueryString("CollectZT"))&" Order by ID desc"
		else
		if Request.Form("MovieName")<>"" then
			sql=sql&" where title Like '%"&NoSqlHack(Request.Form("MovieName"))&"%' Order by ID desc"
		else
		    sql=sql&" Order by ID desc"
		end if
		end if
		Rs.open sql,connx,1,1
	if Rs.eof then
	   Response.Write"<TR  class=""hback""><TD colspan=""7"" class=""hback"" height=""40"">没有记录。</TD></TR>"
	else
		Rs.PageSize=int_RPP
		cPageNo=NoSqlHack(Request.QueryString("Page"))
		If cPageNo="" Then cPageNo = 1
		If not isnumeric(cPageNo) Then cPageNo = 1
		cPageNo = Clng(cPageNo)
		If cPageNo>Rs.PageCount Then cPageNo=Rs.PageCount 
		If cPageNo<=0 Then cPageNo=1
		Rs.AbsolutePage=cPageNo 
	for i=1 to int_RPP
	 if Rs.eof Then exit For %>    
	 <tr>
      <td height=32 align="center" class="hback"><%=RS("ID")%></td>
      <td height=32 class="hback"><%=RS("title")%></td>
      <td height=32 class="hback" align="center"><%IF RS("CollectZT")=1 Then Response.Write"已入库" Else Response.Write"未入库"%></td>
      <td height=32 align="center" class="hback"><%=RS("ClassName")%></td>
      <td height=32 align="center" class="hback"><%=RS("TimeDate")%></td>
      <td width="10%" align="center" class="hback"><A href="QvodCms_Inflow.asp?Action=Edit&ID=<%=RS("ID")%>">修改</A>｜<A href="QvodCms_Inflow.asp?Action=Del&ID=<%=RS("ID")%>">删除</A></td>
      <td width="3%" align="center" class="hback"><input name="ID" type="checkbox" id="ID" value="<% = RS("ID")%>"></td>
    </tr>
	<%Rs.MoveNext
	next 
	end if%>
    <tr>
      <td height=32 colspan="6" align="right" class="hback">
      <input type="button" name="Submit" value="全部入库" onClick="document.forms.Action.value='AllInflow';{if(confirm('全部入库你所采集的影片吗？')){this.document.forms.submit();return true;}return false;}">
	  <input type="button" name="Submit" value="全部删除"  onClick="document.forms.Action.value='DelAll';{if(confirm('确定删除您所采集的所有影片吗？')){this.document.forms.submit();return true;}return false;}">
      <input type="button" name="Submit" value="入库" onClick="document.forms.Action.value='IDInflow';{if(confirm('确定入库您所选择的影片吗？')){this.document.forms.submit();return true;}return false;}">
      <input type="button" name="Submit" value="删除"  onClick="document.forms.Action.value='Del';{if(confirm('确定删除您所选择的影片吗？')){this.document.forms.submit();return true;}return false;}">
      </td>
      <td align="center" class="hback"><input name="Action" type="hidden" id="Action">
	<input type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(document.forms.chkall.checked);"></td>
    </tr>
	</form>
	 <tr align="right">
    <td height=32 colspan="7" class="hback"><% response.Write fPageCount(Rs,cPageNo) %></td>
	</tr>
  </tbody>
</table>
<%end sub
sub Edit()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>

  <form action="QvodCms_Inflow.asp?Action=EditSave" method="post" name="form">
    <tr>
      <td colspan="4" class=xingmu>修改影片</td>
    </tr>
  
    <tr>
      <td width="21%" height=32 align="right" class="hback">影片名称：</td>
      <td class="hback"><input name="MovieName" type="text" value="<%=title%>" size="40"></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">影片演员：</td>
      <td class="hback"><input name="MovieActor" type="text" value="<%=name%>" size="40"></td>
    </tr>
    <tr>
        <td height=32 align="right" class="hback">影片导演：</td>
        <td height=7 class="hback"><input name="MovieDaoyan" type="text" value="<%=Daoyan%>" size="40"></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片产地：</td>
        <td height=7 class="hback"><input name="Moviechandi" type="text" value="<%=chandi%>" size="40"></td>
      </tr>
    <tr>
      <td height=32 align="right" class="hback">影片大图：</td>
      <td class="hback"><input name="MoviePic" type="text" value="<%=tupian%>" size="40"></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">影片小图：</td>
      <td class="hback"><input name="MoviePic" type="text" value="<%=tupian2%>" size="40"></td>
    </tr>
	<td class="hback">
      <input type="radio" name="CollectZT" value="0" <%IF CollectZT=0 Then Response.Write"checked"%>> 未入库
	  <input name="CollectZT" type="radio" value="1" <%IF CollectZT=1 Then Response.Write"checked"%>> 已入库</td>
	</tr>
	<tr><td class="hback" align="right">影片地址：</td>
	<td class="hback"><%Set Rs = server.CreateObject(YWNT_TMS_CJRS)
sql="Select * from url where nameid="&ID&""
Rs.open sql,Connx,1,1
do while not RS.eof
i=i+1'原读取url，因采集不到地址，替换为weburl
Response.Write"<input type=""text"" name=""Url"&i&""" size=60 value="""&RS("url")&""">&nbsp;第"&i&"集&nbsp;&nbsp;&nbsp;<a href=""QvodCms_Inflow.asp?Action=DelUrl&id="&RS("ID")&"""><font color=""#FF0000"">删除</font></a><br>" &vbcrlf
RS.movenext     
loop
RS.close    
set RS=nothing%></td>
	</tr>
    <tr>
      <td align="right" class="hback">影片介绍：</td>
      <td class="hback"><textarea name="Content" style="width:100%;height:200px;"><%=Content%></textarea></td>
    </tr>
    <tr>
      <td height=32 colspan="2" align="center" class="hback"><input  type="button" name="button" value="返 回" onClick="window.location.href='javascript:history.go(-1)'">
        <input type="hidden" name="ID" value="<%=ID%>">
      <input type="submit" name="Submit" value="修 改"></td>
    </tr>
  </form>
  
</table>
<%
end sub
call connxclose()

%>
</BODY></HTML>
