<!--#include file="../../conn/conn_other.asp"-->
<!--#include file="../check.asp"-->
<!--#include file="../../film/Incs/syscode.asp"-->
<!--#include file="../../inc/sql.asp"-->
<%
	end if
	useflag=1
%>
<!--#include file="../flag.asp"-->
<link href="css/Admin_Style.Css" rel="stylesheet">
<link href='../Include/Admin_Style.CSS' rel='stylesheet' type='text/css'>
<script language="javascript" src="js/Admin_Js.js"></script>
<script language="javascript" src="../Js/ajax.js"></script>
<script language="javascript">
function checkvideo(o){
	if(!check_in(o,"VideoName","视频名称！")){return false;};
	if(!check_in(o,"Player","主要演员！")){return false;};
	if(!check_in(o,"PlayUrl","播放地址！")){return false;};
	//if(!check_in(o,"Content","视频简介！")){return false;};
}

function setvideo(){
	var vpath=gID("vPath").value;
	var vnum=gID("vNum").value;
	var vtype=gID("vType").value;
	if (vnum==""){
		alert("请输入集数");
		return false;
	}
	if (vtype==""){
		alert("请输入影片格式");
		return false;
	}
	vnum=parseInt(vnum);
	var tempstr;
	tempstr=""
	if (vnum==1){
		tempstr=tempstr+"全集$"+vpath+"all"+vtype;
	}
	if (vnum==2){
		for(var i=1;i<=vnum;i++){
			if (i==1){
				tempstr=tempstr+"上集$"+vpath+i+vtype+"\n";
			}
			else{
				tempstr=tempstr+"下集$"+vpath+i+vtype;
			}
		}
	}
	if (vnum>=3){
		for(var i=1;i<=vnum;i++){
		
			tempstr=tempstr+"第"+i+"集$"+vpath+i+vtype+"\n";
		}
	}
	gID("PlayUrl").value=tempstr;
}
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="sortbutton">
<tr>    
<td height="23" align="center" valign="middle">视频管理导航</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<form id="search" name="search" method="post" action="Admin_Video.asp">
  <tr>
    <td colspan="4" class="title">视频管理导航</td>
  </tr>
  <tr>
    <td width="15%" class="tabletd tc"><a href="?Action=VideoNew">添加视频</a></td>
    <td width="15%" class="tabletd tc"><a href="Admin_Video.asp">视频列表</a></td>
    <td width="15%" class="tabletd tc"><a href="Admin_Video.asp?ErrNum=1">错误视频</a></td>
    <td width="25%" class="tabletd tr">
    <input name="Key" type="text" class="text" id="Key" size="15" />
    <%=GetClassSelect(0,0)%> <input name="button" type="submit" class="button" id="button" value="搜索" /></td>
    </tr>
</form>
</table>
<%
Dim Action,VideoID
Action=CheckStr(Request("Action"))
VideoID=CheckNum(Request("VideoID"))
Select Case Action
	Case "VideoNew"
		Call VideoNew()
	Case "VideoEdit"
		Call VideoNew()
	Case "VideoSave"
		Call VideoSave()
	Case "VideoDel"
		Call VideoDel()
	Case "IsShow"
		Call IsShow()
	Case "NoShow"
		Call NoShow()
	Case "DelErr"
		Call DelErr()
	Case "VideoShow"
		Call VideoShow()
	Case "VideoLock"
		Call VideoLock()
	Case "VideoChange"
		Call VideoChange()
	Case "VideoChSave"
		Call VideoChSave()
	Case Else
		Call VideoList()
End Select
%>
<%
Function VideoList()
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<form id="dform" name="dform" method="post" action="?Action=VideoDel">
  <tr>
    <td colspan="10" class="title">网站视频列表</td>
  </tr>
  <tr>
    <td width="4%" class="tabletd tc">ID</td>
    <td width="28%" class="tabletd tc">视频标题</td>
    <td width="12%" class="tabletd tc">所属分类</td>
    <td width="12%" class="tabletd tc">来源</td>
    <td width="6%" class="tabletd tc">推荐</td>
    <td width="6%" class="tabletd tc">HTML</td>
    <td width="6%" class="tabletd tc">人气</td>
    <td width="10%" class="tabletd tc">发布时间</td>
    <td width="5%"class="tabletd tc">报错</td>
    <td class="tabletd tc">管理操作</td>
  </tr>
<%
	Dim Tag,Table,TagStr,Order,PageSize,PageUrl
	Tag="VideoID"										
	Table="[Dm_Video]"								
	TagStr="*"	
	Order="VideoID"									
	PageSize=20									
	PageUrl="Admin_Video.asp"								
	LinkNum=5										
	Dim TotalCount,PageCount,Page
	Dim Rs,Sql,WhereStr
	Dim Key,ClassID
	Key=CheckStr(Request("Key"))
	ClassID=CheckNum(Request("ClassID"))
	ErrNum=CheckNum(Request("ErrNum"))
	If Key<>"" And ClassID<>"" Then
		If ClassID=0 Then
			WhereStr="Where VideoName Like '%"&Key&"%'"
			PageUrl=PageUrl&"?Key="&Key&"&ClassID="&ClassID&""
		Else
			WhereStr="Where VideoName Like '%"&Key&"%' And ClassID="&ClassID&""
			PageUrl=PageUrl&"?Key="&Key&"&ClassID="&ClassID&""
		End If
	ElseIf ClassID<>0 Then
		ClassID=CheckNum(Request("ClassID"))
		WhereStr="Where ClassID="&ClassID&""
		PageUrl=PageUrl&"?ClassID="&ClassID&""
	End If
	If ErrNum<>0 Then
		WhereStr="Where ErrNum>0"
		PageUrl=PageUrl&"?ErrNum=1"
	End If
	TotalCount=GetTotalCount(Tag,Table,WhereStr)
	PageCount=GetPageCount(TotalCount,PageSize)
	Page=GetPageNow(PageCount)
	Sql=GetPageSql(Tag,Table,TagStr,Order,PageSize,WhereStr,Page)
	Set Rs=Server.CreateObject("Adodb.RecordSet")
	Rs.Open Sql,Conn,1,1
	If Rs.Bof And Rs.Eof Then
		Rw("<tr>")
    	Rw("<td colspan='10' class=""tabletd tc"">暂无数据！</td>")
  		Rw("</tr>")
	Else
		Do While Not Rs.Eof
%>
  <tr onmouseover="this.className='tabletr';" onmouseout="this.className='tabletr2';">
    <td class="tabletd tc"><input name="VideoID" type="checkbox" value="<%=Rs("VideoID")%>"></td>
    <td class="tabletd tl"><%=Rs("VideoID")%>.<%=LeftStr(Rs("VideoName"),30)%></td>
    <td class="tabletd tc"><a href="?ClassID=<%=Rs("ClassID")%>"><%=DBGetValue("Dm_Class","ClassName","ClassID="&Rs("ClassID")&"")%></a></td>
    <td class="tabletd tc"><%=Rs("PlayType")%><%If Rs("PlayType2")<>"no" Then Rw(","&Rs("PlayType2")&"")%></td>
    <td class="tabletd tc">
    <%
	If Rs("IsShow")=0 Then
		Rw("<a href=""?Action=IsShow&VideoID="&Rs("VideoID")&"""><img src=""Images/nook.gif"" border=""0"" align=""absmiddle""></a>")
	Else
		Rw("<a href=""?Action=NoShow&VideoID="&Rs("VideoID")&"""><img src=""Images/ok.gif"" border=""0"" align=""absmiddle""></a>")
	End If
	%>    </td>
    <td class="tabletd tc">
    <%
	If Rs("IsHtml")=0 Then
		Rw("<a href=""Admin_MakeHtml.asp?Action=VideoMake&sType=2&StartID="&Rs("VideoID")&"&EndID="&Rs("VideoID")&"""><img src=""Images/nook.gif"" border=""0"" align=""absmiddle""></a>")
	Else
		Rw("<a href=""Admin_MakeHtml.asp?Action=VideoMake&sType=2&StartID="&Rs("VideoID")&"&EndID="&Rs("VideoID")&"""><img src=""Images/ok.gif"" border=""0"" align=""absmiddle"" alt='重新生成'></a>")
	End If
	%>    </td>
    <td class="tabletd tc"><%=Rs("Hits")%></td>
    <td class="tabletd tc"><%=FormatTime(Rs("PostTime"),3)%></td>
    <td class="tabletd tc">
    <%
	If ErrNum<>0 Then
		Rw ("<a href=""?Action=DelErr&VideoID="&Rs("VideoID")&""">除错</a>")
	Else
		Rw (Rs("ErrNum"))
	End If
	%>
    </td>
    <td class="tabletd tc">
    <a href="?Action=VideoEdit&VideoID=<%=Rs("VideoID")%>"><img src="Images/edit.gif" align="absmiddle" border="0" /> 修改</a>
    </td>
  </tr>
<%
		Rs.MoveNext
		Loop
%>
  <tr>
    <td colspan="10" class="tabletd tr">
    <input type='checkbox' name='chkall' value='on' onclick='CheckSel(this.form)' />全选
    <input name="submit" type="submit" class="button" value="批量推荐" onClick="javascript:document.dform.action='?Action=VideoShow';">
    <input name="submit" type="submit" class="button" value="取消推荐" onClick="javascript:document.dform.action='?Action=VideoLock';">
    <input name="submit" type="submit" class="button" value="批量生成" onClick="javascript:document.dform.action='Admin_MakeHtml.asp?Action=VideoMake&sType=4';">
    <input name="submit" type="submit" class="button" value="转移栏目" onClick="javascript:document.dform.action='?Action=VideoChange';">
    <input name="submit" type="submit" class="button" value="删除视频" onClick="javascript:document.dform.action='?Action=VideoDel';">
    </td>
  </tr>
  <tr>
    <td colspan="10" class="tbove tr"><%Call PageShow(TotalCount,PageSize,Page,PageCount,PageUrl,LinkNum)%></td>
  </tr>
<%
	End If
	Rs.Close
	Set Rs=Nothing
%>
</form>
</table>
<%
End Function
%>
<%
Function VideoNew()
	If Action="VideoEdit" And VideoID<>0 Then
		Dim Rs,Sql
		Set Rs=Server.Createobject("Adodb.Recordset")
		Sql="Select * From Dm_Video Where VideoID="&VideoID&""
		Rs.Open Sql,Conn,1,3
		If Not(Rs.Bof And Rs.Eof) Then
			VideoName=Rs("VideoName")
			VideoEName=Rs("VideoEName")
			VideoState=Rs("VideoState")
			ClassID=Rs("ClassID")
			VideoPic=Rs("VideoPic")
			VideoColor=Rs("VideoColor")
			Player=Rs("Player")
			PlayType=Rs("PlayType")
			PlayUrl=Rs("PlayUrl")
			PlayType2=Rs("PlayType2")
			PlayUrl2=Rs("PlayUrl2")
			Content=Rs("Content")
			ErrNum=Rs("ErrNum")
		End If
		Rs.Close
		Set Rs=Nothing
	End If
	If Request.Form("VideoName")<>"" Then VideoName=CheckStr(Request.Form("VideoName"))
	If Request.Form("PlayType")<>"" Then PlayType=CheckStr(Request.Form("PlayType"))
	If Request.Form("PlayUrl")<>"" Then PlayUrl=Request.Form("PlayUrl")
	If CheckNum(Request.Form("Order"))=1 And Request.Form("PlayUrl")<>"" Then
		Dim Key,I,KeyEnd,OrderStr
		PlayUrl=Request.Form("PlayUrl")
		Key=Split(PlayUrl,Chr(13))
		If Key(Ubound(Key))="" Or Len(Key(Ubound(Key)))<=1 Then 
			KeyEnd=Ubound(Key)-1
		Else
			KeyEnd=Ubound(Key)
		End If
		For I = 0 To KeyEnd
			OrderStr=OrderStr&Key(KeyEnd-I)&Chr(13)
		Next
		PlayUrl=OrderStr
	End If
%>
<iframe width="260" height="165" id="colorPalette" src="Images/selcolor.htm" style="visibility:hidden; position: absolute;border:1px gray solid;" frameborder="0" scrolling="no" ></iframe>
<div style="height:0px;font-size:0px;"></div>
<table width="100%" border="0" align="center" cellpadding="0" class="table">
<form id="addnew" name="addnew" method="post" action="?Action=VideoSave" onsubmit="return checkvideo(this);">
  <tr>
    <td colspan="2" class="title">添加视频数据</td>
  </tr>
  <tr>
    <td width="10%" class="tabletd tl">视频名称：</td>
    <td class="tabletd tl">
      <input name="VideoName" type="text" class="text" id="VideoName" value="<%=VideoName%>" size="35"  onblur="checkvtitle();"/>
      标题颜色：
      <input name="VideoColor" id="VideoColor" class="text" type="hidden">
      <img src="images/<%If Action="VideoEdit" Then Rw("setcolor.gif") Else Rw("nocolor.gif")%>" alt="选取颜色" width="18" height="17" border="0" align="absmiddle" id="SetColor" style="cursor:pointer;background-Color:<%=VideoColor%>;" title="选取颜色!" onClick="GetColor(this,'VideoColor');">
	  <span id="errmsg"></span>	</td>
  </tr>
  <tr>
    <td class="tabletd tl">所属分类：</td>
    <td class="tabletd tl"><%=GetClassSelect(ClassID,1)%>
      <input name="VideoID" type="hidden" id="VideoID" value="<%=VideoID%>" />
视频状态：
<input name="VideoState" type="text" class="text" id="VideoState" value="<%=VideoState%>" size="10" />
状态快捷选择：
<select name="selectstate" id="select" onchange="gID('VideoState').value=this.value;">
         <option>状态选择</option>
         <option value="全集">全集</option>
         <option value="连载中">连载中</option>
         <option value="停播中">停播中</option>
         <option value="更新中">更新中</option>
       </select></td>
  </tr>
  <tr>
    <td class="tabletd tl">视频图片：</td>
    <td class="tabletd tl">
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="30%"><input name="VideoPic" type="text" class="text" id="VideoPic" value="<%=VideoPic%>" size="30" /></td>
          <td><iframe src="Admin_UpFile.asp" width="400" height="24" scrolling="no" border="0" frameborder="0"></iframe></td>
        </tr>
    </table>    </td>
  </tr>
  <tr>
    <td class="tabletd tl">主要演员：</td>
    <td class="tabletd tl"><input name="Player" type="text" class="text" id="Player" value="<%=Player%>" size="50" />     </td>
  </tr>
  <tr>
    <td class="tabletd tl">播放器①：</td>
    <td class="tabletd tl"><%=GetPlayStype(PlayType,1)%></td>
  </tr>
  <tr>
    <td class="tabletd tl">影片设定：</td>
    <td class="tabletd tl">影片路径：
      <input name="vPath" type="text" class="text" id="vPath" size="30" />
      集数：
      <input name="vNum" type="text" class="text" id="vNum" value="10" size="4" />
      格式：
      <input name="vType" type="text" class="text" id="vType" value=".rmvb" size="8" />
      <input name="button3" type="button" class="button" id="button3" value="设定" onclick="javascript:setvideo();"/>      </td>
  </tr>
  <tr>
    <td class="tabletd tl">播放地址①：</td>
    <td class="tabletd tl"><textarea name="PlayUrl" cols="20" rows="5" class="textrea" id="PlayUrl" style="width:100%;"><%=PlayUrl%></textarea></td>
  </tr>
  <tr>
    <td class="tabletd tl">播放器②：</td>
    <td class="tabletd tl"><%=GetPlayStype(PlayType2,2)%></td>
  </tr>
  <tr>
    <td class="tabletd tl">播放地址②：</td>
    <td class="tabletd tl"><textarea name="PlayUrl2" cols="20" rows="5" class="textrea" id="PlayUrl2" style="width:100%;"><%=PlayUrl2%></textarea></td>
  </tr>
  <tr>
    <td class="tabletd tl">视频简介：</td>
    <td class="tabletd tl"><textarea name="Content" cols="20" rows="4" class="textrea" id="Content" style="width:100%;display:none;"><%=Content%></textarea>
    <iframe ID="Editor" name="Editor" src="Editor/index.html?ID=Content" frameBorder="0" marginHeight="0" marginWidth="0" scrolling="No" style="height:130px;width:100%"></iframe>    </td>
  </tr>
  <%If Action="VideoEdit" Then%>
  <tr>
    <td class="tabletd tl">报错次数：</td>
    <td class="tabletd tl"><input name="ErrNum" type="text" class="text" id="ErrNum" value="<%=ErrNum%>" size="4" />
如果错误已修正 这里请填写0
  <input name="button2" type="button" class="button" id="button2" value="去除错误" onclick="location.href='?Action=DelErr&VideoID=<%=VideoID%>';"/></td>
  </tr>
  <%End If%>
  <tr>
  	<td class="tabletd tl">是否生成：</td>
    <td class="tabletd tl">
    <input name="IsMake" type="radio" id="radio" value="1" checked="checked" />
    是 
    <input type="radio" name="IsMake" id="radio2" value="0" />
    否
    </td>
  </tr>
  <tr>
    <td colspan="2" class="tbove">
      <input name="submit" type="submit" class="button" id="submit" value="保存数据" />
      <input name="reset" type="reset" class="button" id="reset" value="重新填写" />    </td>
    </tr>
</form>
</table>
<%
End Function
%>
<%
Function VideoSave()
	Dim VideoName,VideoEName,VideoColor,ClassID,VideoPic,Player
	Dim PlayType,PlayUrl,PlayType2,PlayUrl2,Content
	VideoName=Request("VideoName")
	VideoColor=Request("VideoColor")
	ClassID=Request("ClassID")
	VideoPic=Request("VideoPic")
	Player=Request("Player")
	PlayType=Request("PlayType")
	PlayUrl=Request("PlayUrl")
	PlayType2=Request("PlayType2")
	PlayUrl2=Request("PlayUrl2")
	Content=Request("Content")
	VideoState=Request("VideoState")
	ErrNum=Request("ErrNum")
	If VideoName ="" Then Call ShowErr("请输入视频标题!")
	If Player ="" Then Call ShowErr("请输入主要演员!")
	If PlayType ="" Then Call ShowErr("请输入播放器①!")
	If PlayUrl ="" Then Call ShowErr("请输入播放地址①!")
	If Content ="" Then Call ShowErr("请输入视频简介!")
	VideoEName=GetSpell(VideoName,50)
	VideoAbc=Ucase(Left(VideoEName,1))
	Dim Rs,Sql
	If VideoID=0 Then
		Set Rs=Server.Createobject("Adodb.Recordset")
		Sql="Select * From Dm_Video Where VideoName='"&VideoName&"'"
		Rs.Open Sql,Conn,1,3
		If Rs.Bof And Rs.Eof Then
			Rs.AddNew
			Rs("VideoName")=VideoName
			Rs("VideoEName")=VideoEName
			Rs("VideoAbc")=VideoAbc
			Rs("VideoColor")=VideoColor
			Rs("ClassID")=ClassID
			Rs("VideoState")=VideoState
			Rs("VideoPic")=VideoPic
			Rs("Player")=Player
			Rs("PlayType")=PlayType
			Rs("PlayUrl")=PlayUrl
			Rs("PlayType2")=PlayType2
			Rs("PlayUrl2")=PlayUrl2
			Rs("Content")=Content
			Rs("PostTime")=Now()
			Rs.Update
			VideoID=Rs("VideoID")
		Else
			Call ShowErrMsg("该名称的视频已存在！")
		End If
	Else
		Dim oName,oEName,cID,cName
		Set Rs=Server.Createobject("Adodb.Recordset")
		Sql="Select * From Dm_Video Where VideoID="&VideoID&""
		Rs.Open Sql,Conn,1,3
		If Not(Rs.Bof And Rs.Eof) Then
			oName=Rs("VideoName")
			oEName=Rs("VideoEName")
			cID=Rs("ClassID")
			cEName=DBGetValue("Dm_Class","ClassEName","ClassID="&cID&"")
			If oName<>VideoName Then
				Dim Fso,HtmlDir
				HtmlDir="../"&GetClassPath(cID,cEName)&GetVideoPath(VideoID,oEName)
				Set Fso=New DmFso
					If Fso.CheckFolder(HtmlDir) Then 
						Call Fso.DelFolder(HtmlDir)
					End If
				Set Fso=Nothing
			End If
			Rs("VideoName")=VideoName
			Rs("VideoEName")=VideoEName
			Rs("VideoAbc")=VideoAbc
			Rs("VideoColor")=VideoColor
			Rs("ClassID")=ClassID
			Rs("VideoState")=VideoState
			Rs("VideoPic")=VideoPic
			Rs("Player")=Player
			Rs("PlayType")=PlayType
			Rs("PlayUrl")=PlayUrl
			Rs("PlayType2")=PlayType2
			Rs("PlayUrl2")=PlayUrl2
			Rs("Content")=Content
			Rs("ErrNum")=ErrNum
			Rs.Update
			VideoID=VideoID
		End If
	End If
	Rs.Close
	If CheckNum(Request("IsMake"))=1 Then
		ReUrl("Admin_MakeHtml.asp?Action=VideoMake&sType=5&ID="&VideoID&"")
	Else
		Call ShowSuccMsg("视频数据保存成功！","Admin_Video.asp")
	End If
End Function

Function IsShow()
	Call DbUpdate("Dm_Video","IsShow=1","VideoID="&VideoID&"")
	GoReferer()
End Function

Function NoShow()
	Call DbUpdate("Dm_Video","IsShow=0","VideoID="&VideoID&"")
	GoReferer()
End Function

Function VideoDel()
	Dim Sql,VideoIDStr
	VideoIDStr=Request("VideoID")
	If VideoIDStr="" Then Call ShowErr("请选择要删除的数据！")
	If InStr(VideoIDStr,",")>0 Then
		Dim Key
		Key=Split(VideoIDStr,",")
		For I = 0 To Ubound(Key)
			If Key(I)<>"" Then
				Call DelVideoHtml(Key(I))
			End If
		Next
	Else
		Call DelVideoHtml(VideoIDStr)
	End If

	Call ShowSuccMsg("<li>视频数据删除成功！</li>","")
End Function

Function DelVideoHtml(VideoID)
	Dim Rs,Sql
	Dim Fso,HtmlDir
	Sql="Select A.VideoID,A.VideoEName,A.VideoPic,A.ClassID,B.ClassEName From Dm_Video As A,Dm_Class As B Where A.ClassID=B.ClassID And A.VideoID="&VideoID&""
	Set Rs=Conn.Execute(Sql)
	If Not(Rs.Bof And Rs.Eof) Then
		Set Fso=New DmFso
		VideoPic=Lcase(Rs("VideoPic"))
		If InStr(VideoPic,"http://")=0 Then
			VideoPic="../"&VideoPic
			If Fso.CheckFile(VideoPic) Then 
				Call Fso.DelFile(VideoPic)
			End If
		End If
		HtmlDir="../"&GetClassPath(Rs("ClassID"),Rs("ClassEName"))&GetVideoPath(Rs("VideoID"),Rs("VideoEName"))
		If Fso.CheckFolder(HtmlDir) Then 
			Call Fso.DelFolder(HtmlDir)
		End If
		Set Fso=Nothing
	End If
	Call DBDel("Dm_Video","VideoID="&VideoID&"")
End Function

Function DelErr()
	Call DBUpdate("Dm_Video","ErrNum=0","VideoID="&VideoID&"")
	Call GoReferer()
End Function

Function VideoShow()
	vID=Request("VideoID")
	If vID="" Then  Call ShowErr("请选择视频数据！")
	Call DbUpdate("Dm_Video","IsShow=1","VideoID In ("&vID&")")
	Call ShowSuccMsg("<li>视频批量推荐成功！</li>","")
End Function

Function VideoLock()
	vID=Request("VideoID")
	If vID="" Then  Call ShowErr("请选择视频数据！")
	Call DbUpdate("Dm_Video","IsShow=0","VideoID In ("&vID&")")
	Call ShowSuccMsg("<li>视频批量取消推荐成功！</li>","")
End Function

Function VideoChange()
	vID=Request("VideoID")
	If vID="" Then  Call ShowErr("请选择视频数据！")
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<form id="form1" name="form1" method="post" action="?Action=VideoChSave">
  <tr>
    <td colspan="2" class="title">批量转移栏目</td>
  </tr>
  <tr>
    <td width="10%" class="tabletd tl">转移数据ID:</td>
    <td width="88%" class="tabletd tl">
      <input name="IDList" type="text" class="text" id="IDList" value="<%=vID%>" size="60"/>
   </td>
  </tr>
  <tr>
    <td class="tabletd tl">转移栏目：</td>
    <td class="tabletd tl"><%=GetClassSelect(ClassID,1)%></td>
  </tr>
  <tr>
    <td colspan="2" class="tbove">
      <input name="submit2" type="submit" class="button" id="submit2" value="转移栏目" />
      <input name="reset2" type="button" class="button" id="reset2" value="返回上页" onclick="javascript:history.back(-1);" />
   </td>
  </tr>
</form>
</table>
<%
End Function

Function VideoChSave()
	vID=Request("IDList")
	vClassID=CheckNum(Request("ClassID"))
	If vID="" Then  Call ShowErr("请选择视频数据！")
	Call DbUpdate("Dm_Video","ClassID="&vClassID&"","VideoID In ("&vID&")")
	Call ShowSuccMsg("<li>视频批量转移栏目成功！</li>","")
End Function
%>
<% Call CloseDB() %>
