<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="../YWNT_TMS_inc/YWNT_TMS_Function.asp" -->
<!--#include file="../YWNT_TMS_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=""Admin_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""><input name=""SeverName"" type=""text"" size=""40"" readonly>" &vbcrlf
Response.Write"<input name=""SeverID"" type=""hidden"" id=""SeverID"" value="""">" &vbcrlf
Response.Write"<input type=""button"" name=""SubmitSever"" value=""选择服务器"" onClick=""SelectSever();"">" &vbcrlf
Response.Write"<input type=""button"" name=""SubmitSeverAdd"" value=""添加服务器"" onClick=""window.location.href='../Admin_Sever.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=""ClassName"" type=""text"" size=""40"" readonly>" &vbcrlf
Response.Write"<input name=""ClassID"" type=""hidden"" id=""ClassID"" value="""">" &vbcrlf
Response.Write"<input type=""button"" name=""SubmitClass"" value=""选择栏目"" onClick=""SelectClass();"">" &vbcrlf
Response.Write"<input type=""button"" name=""SubmitClassAdd"" value=""添加栏目"" onClick=""window.location.href='../Admin_Type.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"">"
call MovieRegion("MovieRegion","")
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='../Admin_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=""button"" name=""Submit"" value=""入 库"" onClick=""SubmitMovie();""></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=""Admin_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>","Admin_Inflow.asp",1)
end sub
sub Del()
		Set Rs = server.CreateObject(YWNT_TMS_CJRS)
		sql="select tupian from movie where ID in ("&NoSqlHack(Request("ID"))&") and CollectZT<>1"
		Rs.open sql,connx,1,1
		do while not Rs.eof
		Call DeleteFile(Rs("tupian"))
		Rs.movenext
		loop
		Rs.close
		set Rs=nothing
	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>","Admin_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 IDInflow()
	call Inflow("IDX",NoSqlHack(Request.Form("ID")))
end sub
sub AllInflow()
	call Inflow("All","")
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)
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 MovieInflow(Sql_Collect,MovieNumW)
On Error Resume Next
set RS_Collect=Server.CreateObject(YWNT_TMS_CJRS)
RS_Collect.open Sql_Collect,connx,1,1
do while not RS_Collect.eof

		set RS_MOVIE=Server.CreateObject(YWNT_TMS_RS)
		sql_MOVIE="select * from YWNT_TMS_Movie"
		RS_MOVIE.open sql_MOVIE,conn,1,3
		RS_MOVIE.addnew
		RS_MOVIE("SeverID")=NoSqlHack(Request.Form("SeverID"))
		RS_MOVIE("TypeID")=NoSqlHack(Request.Form("ClassID"))
		RS_MOVIE("MovieName")=RS_Collect("title")
		RS_MOVIE("MovieActor")=replace(replace(RS_Collect("name"),",","|")," ","|")
		RS_MOVIE("MovieRegion")=NoSqlHack(Request.Form("MovieRegion"))
		RS_MOVIE("MoviePic")=RS_Collect("tupian")
		RS_MOVIE("MovieCoin")=NoSqlHack(Request.Form("MovieCoin"))
		RS_MOVIE("MovieClick")=NoSqlHack(Request.Form("MovieClick"))
		RS_MOVIE("MovieCompetence")=NoSqlHack(Request.Form("MovieCompetence"))
		RS_MOVIE("MovieGroup")=NoSqlHack(Request.Form("GroupID"))
		RS_MOVIE("MovieLook")=NoSqlHack(Request.Form("MovieLook"))
		RS_MOVIE("MovieDown")=NoSqlHack(Request.Form("MovieDown"))
		RS_MOVIE("MovieSuggest")=NoSqlHack(Request.Form("MovieSuggest"))
		RS_MOVIE("MovieHot")=NoSqlHack(Request.Form("MovieHot"))
		RS_MOVIE("MovieSerialization")=NoSqlHack(Request.Form("MovieSerialization"))
		if Request.Form("MovieFeature")<>"" then
		RS_MOVIE("MovieFeature")=1
		else
		RS_MOVIE("MovieFeature")=0
		end if
		if Request.Form("MovieFree")<>"" then
		RS_MOVIE("MovieFree")=NoSqlHack(Request.Form("MovieFree"))
		end if
		if Request.Form("FeatureID")<>"" then
		RS_MOVIE("MovieFeatureID")=NoSqlHack(Request.Form("FeatureID"))
		end if
		RS_MOVIE("MovieContent")=RS_Collect("content")
		RS_MOVIE("MovieAudit")=1
		RS_MOVIE("MovieDate")=Now()
		RS_MOVIE("InflowType")=NoSqlHack(Request.Form("InflowType"))
		RS_MOVIE.update
		RS_MOVIE.close
		set RS_MOVIE=nothing
		set RS_MOVIE = Conn.execute("select top 1 ID from YWNT_TMS_Movie Order by ID desc")
		MovieID=RS_MOVIE("ID")
		RS_MOVIE.Close
		Set RS_MOVIE = Nothing

Sql_Collect2="select * from url where nameid="&RS_Collect("ID")&""
set RS_Collect2=server.createobject("adodb.recordset")
RS_Collect2.open Sql_Collect2,connx,1,1
do while not RS_Collect2.eof
Select Case Request.Form("InflowType")
Case 1
conn.Execute("insert into YWNT_TMS_MovieUrl(MovieUrl,MovieID) values('"&RS_Collect2("url")&"',"&MovieID&")")
Case 2
conn.Execute("insert into YWNT_TMS_P2PUrl(P2PUrl,MovieID) values('"&RS_Collect2("url")&"',"&MovieID&")")
Case 3,4
conn.Execute("insert into YWNT_TMS_MovieUrl(MovieUrl,MovieID) values('"&RS_Collect2("weburl")&"',"&MovieID&")")
End Select
RS_Collect2.movenext
loop
RS_Collect2.close
set RS_Collect2=nothing

MovieInflowNum=MovieInflowNum+1
Response.Write "<script type=""text/javascript"" language=""javascript"">" & vbNewLine
Response.Write vbTab & "document.getElementById(""RefreshLenx"").style.width = """&(MovieInflowNum/MovieNumW)*100&"%"&""";" & vbNewLine
Response.Write vbTab & "document.getElementById(""RefreshLenx"").innerHTML = """&Round((MovieInflowNum/MovieNumW)*100)&"%"&""";" & vbNewLine
Response.Write vbTab & "document.getElementById(""MovieHtmlNum"").innerHTML = """ & MovieInflowNum & """;" & vbNewLine
Response.Write vbTab & "document.getElementById(""MovieNum"").innerHTML = """ & MovieNumW & """;" & vbNewLine
Response.Write "</script>" & vbNewLine
Response.Flush


RS_Collect.movenext
loop
RS_Collect.close
set RS_Collect=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=RS("title")
		name=RS("name")
		CollectZT=RS("CollectZT")
		tupian=RS("tupian")
		content=RS("content")
		RS.close   
      	set RS=nothing
	call Edit()
Case "EditSave"
	call EditSave()
Case "Del"
	call Del()
Case "DelUrl"
	call DelUrl()
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") '设置每页显示数目%>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class=table>
  <tr>
    <td height="25" valign="center" class="hback">选择状态：<A href="Admin_Inflow.asp?CollectZT=1">已入库</A> -- <A href="Admin_Inflow.asp?CollectZT=0">未入库</A> -- <A href="Admin_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="Admin_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="Admin_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="Admin_Inflow.asp?Action=Edit&ID=<%=RS("ID")%>">修改</A>｜<A href="Admin_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='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>
  <tbody>
    <tr>
      <td colspan="4" class=xingmu>修改影片</td>
    </tr>
  <form action="Admin_Inflow.asp?Action=EditSave" method="post" name="form">
    <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 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 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
Response.Write"<input type=""text"" name=""Url"&i&""" size=50 value="""&RS("url")&""">&nbsp;第"&i&"集&nbsp;&nbsp;&nbsp;<a href=""Admin_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:400px;"><%=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>
  </tbody>
</table>
<%end sub
call connxclose()
call connclose()%>
</BODY></HTML>
