<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>
</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" -->
<!--#include file="Inc/Function.asp" -->
<%
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net  All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net 
'郑重声明:
'    1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================
Call CheckLogin("Collect")%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <tbody>
    <tr>
      <td class=xingmu>采集管理</td>
    </tr>
    <tr>
      <td class="hback"><a href="Admin_Collect.asp">采集管理首页</a> | <a href="Admin_Collect.asp?Action=Add">采集添加</a> | <a href="Admin_Collect.asp?WcafesAudit=0">采集入库</a></td>
    </tr>
  </tbody>
</table>
<% Action=Trim(request.QueryString("Action"))
Select Case Action
Case "Add"
	call Add()
Case "Add2"
	call Add2()
Case "Add3"
	call Add3()
Case "Add4"
	call Add4()
Case "AddSever"
		Session("ListUrl")=""
		Session("selEncoding")=""
		Session("ListCode")=""
		Session("NewsCode")=""
	Call AddLog("添加采集栏目",9)
	call Admin_ShowErr("<li>采集栏目添加成功</li>","Admin_Collect.asp",1)
Case "Edit"
	call Edit()
Case "Edit2"
	call Edit2()
Case "Edit3"
	call Edit3()
Case "Edit4"
	call Edit4()
Case "EditSever"
		Session("ListUrl")=""
		Session("selEncoding")=""
		Session("ListCode")=""
		Session("NewsCode")=""
	Call AddLog("修改采集栏目",9)
	call Admin_ShowErr("<li>采集栏目修改成功</li>","Admin_Collect.asp",1)
Case "Del"
	call Del()
Case else
	call List()
End Select
sub List()
Dim int_RPP
	int_RPP=GetConfig("PageNumber") '设置每页显示数目%>
<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="25%" align="center" class=xingmu>最后一次采集时间</td>
      <td width="15%" align="center" class=xingmu>操作</td>
    </tr>
    <%  Set Rs = server.CreateObject(YWNT_TMS_CJRS)
		sql="Select ID,CollectName,CollectTime from Collect_Class"
		Rs.open sql,Connx,1,1
	if Rs.eof then
	   Response.Write"<TR  class=""hback""><TD colspan=""4"" 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("CollectName")%></td>
      <td height=32 align="center" class="hback"><%=RS("CollectTime")%></td>
      <td align="center" class="hback"><A href="Collecting.asp?ID=<%= RS("ID") %>">采集</A>｜<A href="Admin_Collect.asp?Action=Edit&ID=<%=RS("ID")%>">修改</A>｜<A href="Admin_Collect.asp?Action=Del&ID=<%=RS("ID")%>">删除</A></td>
    </tr>
    <%Rs.MoveNext
	next 
	end if%>
    <tr align="right">
      <td height=32 colspan="4" class="hback"><% response.Write fPageCount(Rs,cPageNo) %></td>
    </tr>
  </tbody>
</table>
<%Rs.Close
set Rs = nothing
end sub
sub Del()
	connx.execute "delete from Collect_Class WHERE ID="&Request.QueryString("ID")
	'记录日志
	call Admin_ShowErr("<li>采集用户删除成功！</li>","Admin_Collect.asp",1)
end sub
sub Add()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
 <form name="Form" action="Admin_Collect.asp?Action=Add2" method="post">
  <tbody>
    <tr>
      <td colspan="2" class=xingmu>采集项目添加</td>
    </tr>
    <tr>
      <td width="21%" height=32 align="right" class="hback">采集名称：</td>
      <td height=7 class="hback"><input name="CollectName" type="text" id="CollectName" size="40"></td>
    </tr>
        <tr>
      <td height=32 align="right" class="hback">目标编码：</td>
      <td height=7 class="hback"><select name="selEncoding" size="1">
          <option value="GB2312" selected="selected">GB2312</option>
          <option value="UTF-8">UTF-8</option>
          <option value="BIG5">BIG5</option>
        </select></td>
    </tr>
        <tr>
      <td height=32 align="right" class="hback">分页设置：</td>
      <td height=32 class="hback"><input type="radio" value="0" name="ListPaingType" checked="checked" onClick="ChangeCutPara(0);">
不分页&nbsp;&nbsp;
<input type="radio" value="1" name="ListPaingType" onClick="ChangeCutPara(1);" />
批量分页&nbsp;
<input type="radio" value="2" name="ListPaingType" onClick="ChangeCutPara(2);"/>
手动分页</td>
      </tr>
    <tr ID="IndexCutPage">
      <td height=32 align="right" class="hback">采集对象页：</td>
      <td height=7 class="hback"><input name="ListPaingStr" type="text" size="60"></td>
    </tr>
    <tr ID="HandCutPage" style="display:none">
      <td height=32 align="right" class="hback">批量分页：</td>
      <td height=7 class="hback"><input name="ListPaingStr2" type="text" value="" size="60">
        分页代码 <font color=red>{$ID}</font><br>
格式：http://www.ywnt.net/list.asp?page={$ID}<br>
生成范围：
<input name="ListPaingID1" type="text" size="4">
<span lang="en-us"> To </span>
<input name="ListPaingID2" type="text" size="4">
例如：1 - 9</td>
    </tr>
    <tr ID="ListContent" style="display:none">
      <td height=32 align="right" class="hback">手动分页：</td>
      <td height=7 class="hback"><textarea name="ListPaingStr3" cols="60" rows="7"></textarea></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">采集参数：</td>
      <td height=7 class="hback"><input name="SaveFiles" type="checkbox" value="1">
保存图片
  <input name="CollecOrder" type="checkbox" value="1">
倒序采集</td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">过滤选项：</td>
      <td height=16 class="hback"><input name="Script_Iframe" type="checkbox" value="1">
Iframe
<input name="Script_Object" type="checkbox" value="1">
Object
<input name="Script_Script" type="checkbox" value="1">
Script
<input name="Script_Div" type="checkbox"  value="1">
Div
<input name="Script_Class" type="checkbox"  value="1">
Class
<input name="Script_Table" type="checkbox"  value="1">
Table
<input name="Script_Tr" type="checkbox"  value="1">
Tr
<input name="Script_Span" type="checkbox"  value="1">
Span<br>
<input name="Script_Img" type="checkbox" value="1">
Img
<input name="Script_Font" type="checkbox"  value="1">
Font
<input name="Script_A" type="checkbox" value="1">
A
<input name="Script_Html" type="checkbox" value="1">
Html
<input name="Script_Td" type="checkbox"  value="1">
Td </td>
    </tr>
    <tr>
      <td height=32 colspan="2" align="center" class="hback"><input type="submit" name="Submit" value="下一步"></td>
    </tr>
  </tbody>
</form>
</table>
<%end sub
sub Add2()
Select Case Request.Form("ListPaingType")
Case 0
            ListUrl=request("ListPaingStr")
Case 1
            ListUrl=Replace(request("ListPaingStr2"),"{$ID}",CStr(request("ListPaingID1")))
Case 2
         If  Instr(request("ListPaingStr3"),"|")>0  Then
            ListUrl=Left(request("ListPaingStr3"),Instr(request("ListPaingStr3"),"|")-1)
         Else
            ListUrl=request("ListPaingStr3")
         End  If
End Select
 		ListCode=GetHttpPage(ListUrl,Request.Form("selEncoding"))
		  If ListCode=False Then
		  call Admin_ShowErr("<li>在获取:"&ListUrl&"网页源码时发生错误！</li>","javascript:history.go(-1)",0)
		  End If
		Session("ListUrl")=ListUrl
		Session("selEncoding")=Request.Form("selEncoding")
		Session("ListCode")=ListCode
		Set Rs=Server.CreateObject(YWNT_TMS_CJRS)
		sql="select * from Collect_Class"
		Rs.open sql,Connx,1,3
		RS.Addnew
		RS("CollectName")=NoSqlHack(Request.Form("CollectName"))
		RS("selEncoding")=NoSqlHack(Request.Form("selEncoding"))
		RS("ListPaingType")=NoSqlHack(Request.Form("ListPaingType"))
		RS("ListPaingStr")=NoSqlHack(Request.Form("ListPaingStr"))
		RS("ListPaingStr2")=NoSqlHack(Request.Form("ListPaingStr2"))
		RS("ListPaingID1")=NoSqlHack(Request.Form("ListPaingID1"))
		RS("ListPaingID2")=NoSqlHack(Request.Form("ListPaingID2"))
		RS("ListPaingStr3")=NoSqlHack(Request.Form("ListPaingStr3"))
		RS("Script_Iframe")=NoSqlHack(Request.Form("Script_Iframe"))
		RS("Script_Object")=NoSqlHack(Request.Form("Script_Object"))
		RS("Script_Script")=NoSqlHack(Request.Form("Script_Script"))
		RS("Script_Div")=NoSqlHack(Request.Form("Script_Div"))
		RS("Script_Class")=NoSqlHack(Request.Form("Script_Class"))
		RS("Script_Table")=NoSqlHack(Request.Form("Script_Table"))
		RS("Script_Tr")=NoSqlHack(Request.Form("Script_Tr"))
		RS("Script_Span")=NoSqlHack(Request.Form("Script_Span"))
		RS("Script_Img")=NoSqlHack(Request.Form("Script_Img"))
		RS("Script_Font")=NoSqlHack(Request.Form("Script_Font"))
		RS("Script_A")=NoSqlHack(Request.Form("Script_A"))
		RS("Script_Html")=NoSqlHack(Request.Form("Script_Html"))
		RS("Script_Td")=NoSqlHack(Request.Form("Script_Td"))
		RS("SaveFiles")=NoSqlHack(Request.Form("SaveFiles"))
		RS("CollecOrder")=NoSqlHack(Request.Form("CollecOrder"))
		RS.Update
		ID=RS("ID")
		RS.close   
      	set RS=nothing%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <form name="Form" action="Admin_Collect.asp?Action=Add3" method="post">
    <tbody>
      <tr>
        <td colspan="2" class=xingmu>采集列表连接设置</td>
      </tr>
      <tr>
        <td width="21%" height=32 align="right" class="hback">影片列表开始代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.LsString.rows>2)document.Form.LsString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.LsString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
        <textarea name="LsString" cols="70" rows="7"></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片列表结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.LoString.rows>2)document.Form.LoString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.LoString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
        <textarea name="LoString" cols="70" rows="7"></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片链接开始代码：</td>
        <td height=32 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.HsString.rows>2)document.Form.HsString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.HsString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
		<textarea name="HsString" cols="70" rows="7"></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片链接结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.HoString.rows>2)document.Form.HoString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.HoString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
		<textarea name="HoString" cols="70" rows="7"></textarea></td>
      </tr>
      <tr>
        <td height=32 colspan="2" align="center" class="hback"><input type="hidden" name="ID" id="ID" value="<%=ID%>">
          <input  type="button" name="button" value="上一步" onClick="window.location.href='javascript:history.go(-1)'">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <input name="Submit" type="submit" id="Submit" value="下一步"></td>
      </tr>
    </tbody>
  </form>
</table>
<%end sub
sub Add3()
	ListCode=GetBody(Session("ListCode"),request("LsString"),request("LoString"))
	NewsArrayCode=GetArray(ListCode,request("HsString"),request("HoString"))
	Select Case NewsArrayCode
	Case False
		call Admin_ShowErr("<li>在获取链接列表时出错。</li>","javascript:history.go(-1)",0)
	Case Else
		NewsArray=Split(NewsArrayCode,"$Array$")
		UrlTest=NewsArray(0)
		UrlTest=DefiniteUrl(UrlTest,Session("ListUrl"))
		NewsCode=GetHttpPage(UrlTest,Session("selEncoding"))
		Session("NewsCode")=NewsCode
	End Select
		Set Rs=Server.CreateObject(YWNT_TMS_CJRS)
		sql="select * from Collect_Class Where ID="&NoSqlHack(Request.Form("ID"))&""
		Rs.open sql,Connx,1,3
		RS("LsString")=NoSqlHack(Request.Form("LsString"))
		RS("LoString")=NoSqlHack(Request.Form("LoString"))
		RS("HsString")=NoSqlHack(Request.Form("HsString"))
		RS("HoString")=NoSqlHack(Request.Form("HoString"))
		RS.Update
		ID=RS("ID")
		RS.close   
      	set RS=nothing%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <form name="Form" action="Admin_Collect.asp?Action=Add4" method="post">
    <tbody>
      <tr>
        <td colspan="2" class=xingmu>采集内容与影片地址设置</td>
      </tr>
      <tr>
        <td width="21%" height=32 align="right" class="hback">影片名称开始代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Htitle.rows>2)document.Form.Htitle.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Htitle.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
        <textarea name="Htitle" cols="70" rows="7"></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片名称结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Ftitle.rows>2)document.Form.Ftitle.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Ftitle.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
        <textarea name="Ftitle" cols="70" rows="7"></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片演员开始代码：</td>
        <td height=32 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Hname.rows>2)document.Form.Hname.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hname.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
        <textarea name="Hname" cols="70" rows="7"></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片演员结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Fname.rows>2)document.Form.Fname.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fname.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
        <textarea name="Fname" cols="70" rows="7"></textarea></td>
      </tr>
       <tr>
        <td height=32 align="right" class="hback">影片图片开始代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Htupian.rows>2)document.Form.Htupian.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Htupian.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
        <textarea name="Htupian" cols="70" rows="7" id="Htupian"></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片图片结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Ftupian.rows>2)document.Form.Ftupian.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Ftupian.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
        <textarea name="Ftupian" cols="70" rows="7" id="Ftupian"></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片介绍开始代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Hcontent.rows>2)document.Form.Hcontent.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hcontent.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
        <textarea name="Hcontent" cols="70" rows="7" id="Hcontent"></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片介绍结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Fcontent.rows>2)document.Form.Fcontent.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fcontent.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
        <textarea name="Fcontent" cols="70" rows="7" id="Fcontent"></textarea></td>
      </tr>       
      <tr>
        <td height=32 align="right" class="hback">播放列表开始代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Hweburl.rows>2)document.Form.Hweburl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hweburl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Hweburl" cols="70" rows="7" id="Hweburl"></textarea></td>
      </tr>
       <tr>
        <td height=32 align="right" class="hback">播放列表结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Fweburl.rows>2)document.Form.Fweburl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fweburl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Fweburl" cols="70" rows="7" id="Fweburl"></textarea></td>
      </tr>
       <tr>
        <td height=32 align="right" class="hback">特殊播放列表处理：</td>
        <td height=7 class="hback"><input type="radio" value="0" name="urlType" checked="checked" onClick="Listurl2.style.display='none';Listurl3.style.display='none'" >
不作设置&nbsp;&nbsp;
<input type="radio" value="1" name="urlType" onClick="Listurl2.style.display='';Listurl3.style.display=''" />
替换地址<br>&nbsp;&nbsp;<font color="red">对于使用了JavaScript:openwindow形式的连接请使用以下格式处理:<br>
&nbsp;&nbsp;脚本连接:内容[变量] 内容 如:javaScript:OpenWnd([变量])<br>
&nbsp;&nbsp;实际连接:内容[变量] 内容 如:play.asp?id=[变量]</font></td>
      </tr>
      <tr id="Listurl2" style="display:none;">
        <td height=32 align="right" class="hback">要替换的地址：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Rurl.rows>2)document.Form.Rurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Rurl.rows+=1" style='cursor:hand'><b>扩大</b></span> &nbsp;&nbsp;可用标签：<font onmouseover="getActiveText(document.Form.Rurl);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font>
        <textarea name="Rurl" cols="70" rows="4" id="Rurl"></textarea></td>
      </tr>
        <tr id="Listurl3" style="display:none;">
        <td height=32 align="right" class="hback">替换为的地址：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Reurl.rows>2)document.Form.Reurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Reurl.rows+=1" style='cursor:hand'><b>扩大</b></span> &nbsp;&nbsp;可用标签：<font onmouseover="getActiveText(document.Form.Reurl);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font>
        <textarea name="Reurl" cols="70" rows="4" id="Reurl"></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片地址开始代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Hpurl.rows>2)document.Form.Hpurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hpurl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Hpurl" cols="70" rows="7" id="Hpurl"></textarea></td>
      </tr>
       <tr>
        <td height=32 align="right" class="hback">影片地址结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Fpurl.rows>2)document.Form.Fpurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fpurl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Fpurl" cols="70" rows="7" id="Fpurl"></textarea></td>
      </tr>
      <tr>
        <td height=32 colspan="2" align="center" class="hback"><input name="button"  type="button" id="button" onClick="window.location.href='javascript:history.go(-1)'" value="上一步">
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
          <input type="hidden" name="ID" id="ID" value="<%=ID%>"><input name="Submit" type="submit" id="Submit" value="下一步"></td>
      </tr>
    </tbody>
  </form>
</table>
<%end sub
sub Add4()
Set Rs=Server.CreateObject(YWNT_TMS_CJRS)
		sql="select * from Collect_Class Where ID="&NoSqlHack(Request.Form("ID"))&""
		Rs.open sql,Connx,1,3
		RS("Htitle")=NoSqlHack(Request.Form("Htitle"))
		RS("Ftitle")=NoSqlHack(Request.Form("Ftitle"))
		RS("Hname")=NoSqlHack(Request.Form("Hname"))
		RS("Fname")=NoSqlHack(Request.Form("Fname"))
		RS("Htupian")=NoSqlHack(Request.Form("Htupian"))
		RS("Ftupian")=NoSqlHack(Request.Form("Ftupian"))
		RS("Hcontent")=NoSqlHack(Request.Form("Hcontent"))
		RS("Fcontent")=NoSqlHack(Request.Form("Fcontent"))
		RS("Hweburl")=NoSqlHack(Request.Form("Hweburl"))
		RS("Fweburl")=NoSqlHack(Request.Form("Fweburl"))
		RS("urlType")=NoSqlHack(Request.Form("urlType"))
		RS("Rurl")=NoSqlHack(Request.Form("Rurl"))
		RS("Reurl")=NoSqlHack(Request.Form("Reurl"))
		RS("Hpurl")=NoSqlHack(Request.Form("Hpurl"))
		RS("Fpurl")=NoSqlHack(Request.Form("Fpurl"))
		RS.Update
		ID=RS("ID")
		RS.close   
      	set RS=nothing
		
title=GetBody(Session("NewsCode"),request.Form("Htitle"),request.Form("Ftitle"))
name=GetBody(Session("NewsCode"),request.Form("Hname"),request.Form("Fname"))
tupian=GetBody(Session("NewsCode"),request.Form("Htupian"),request.Form("Ftupian"))
content=GetBody(Session("NewsCode"),request.Form("Hcontent"),request.Form("Fcontent"))
weburl=GetArray(Session("NewsCode"),request.Form("Hweburl"),request.Form("Fweburl"))%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <form name="form" action="Admin_Collect.asp?Action=AddSever" method="post">
    <tbody>
      <tr>
        <td colspan="2" class=xingmu>采集测试效果</td>
      </tr>
      <tr>
        <td width="21%" height=31 align="right" class="hback">影片名称：</td>
        <td height=31 class="hback"><%=title%></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片演员：</td>
        <td height=7 class="hback"><%=name%></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片图片：</td>
        <td height=32 class="hback"><%=tupian%></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片介绍：</td>
        <td height=7 class="hback"><%=content%></td>
      </tr>
	  <%If weburl<>False Then
        webArray=Split(weburl,"$Array$")
        For i=0 To Ubound(webArray)
        UrlTest=webArray(i)
        if Request.Form("UrlType")=1 then
        Keyurl = Split(Request.Form("Rurl"),"[变量]",-1,1)
        urli=GetBody(UrlTest,Keyurl(0),Keyurl(1))
        if urli=False then
        Exit For
        end if
        UrlTest=Replace(Request.Form("Reurl"),"[变量]",urli)
        end if
        UrlTest=DefiniteUrl(UrlTest,Session("ListUrl"))
        webCode=GetHttpPage(UrlTest,Session("selEncoding"))
        url=GetBody(webCode,Request.Form("Hpurl"),request.Form("Fpurl"))%>
      <tr>
        <td height=32 align="right" class="hback">播放列表：</td>
        <td height=7 class="hback"><%=UrlTest%></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片地址：</td>
        <td height=7 class="hback"><%=url%></td>
      </tr>
      <%Next
	  End if%>
      <tr>
        <td height=32 colspan="2" align="center" class="hback"><input name="button"  type="button" id="button" onClick="window.location.href='javascript:history.go(-1)'" value="上一步">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input name="Submit" type="submit" id="Submit" value="完 成"></td>
      </tr>
    </tbody>
  </form>
</table>
<%end sub
sub Edit()
Set Rs=Server.CreateObject(YWNT_TMS_CJRS)
sql="select ID,CollectName,selEncoding,ListPaingStr,ListPaingType,ListPaingStr2,ListPaingID1,ListPaingID2,ListPaingStr3,Script_Iframe,Script_Object,Script_Script,Script_Div,Script_Class,Script_Table,Script_Tr,Script_Span,Script_Img,Script_Font,Script_A,Script_Html,Script_Td,SaveFiles,CollecOrder from Collect_Class where id="&NoSqlHack(Request.QueryString("id"))
RS.open sql,connx,1,1
ID=RS("ID")
CollectName=RS("CollectName")
selEncoding=RS("selEncoding")
ListPaingStr=RS("ListPaingStr")
ListPaingType=RS("ListPaingType")
ListPaingStr2=RS("ListPaingStr2")
ListPaingID1=RS("ListPaingID1")
ListPaingID2=RS("ListPaingID2")
ListPaingStr3=RS("ListPaingStr3")
Script_Iframe=RS("Script_Iframe")
Script_Object=RS("Script_Object")
Script_Script=RS("Script_Script")
Script_Div=RS("Script_Div")
Script_Class=RS("Script_Class")
Script_Table=RS("Script_Table")
Script_Tr=RS("Script_Tr")
Script_Span=RS("Script_Span")
Script_Img=RS("Script_Img")
Script_Font=RS("Script_Font")
Script_A=RS("Script_A")
Script_Html=RS("Script_Html")
Script_Td=RS("Script_Td")
SaveFiles=RS("SaveFiles")
CollecOrder=RS("CollecOrder")
RS.close
set RS=nothing%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <form name="Form" action="Admin_Collect.asp?Action=Edit2" method="post">
    <tbody>
      <tr>
        <td colspan="2" class=xingmu>采集项目修改</td>
      </tr>
      <tr>
        <td width="21%" height=32 align="right" class="hback">采集名称：</td>
        <td height=7 class="hback"><input name="CollectName" type="text" id="CollectName" value="<%=CollectName%>" size="40"></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">目标编码：</td>
        <td height=7 class="hback"><select name="selEncoding" size="1">
          <option value="GB2312" <%if selEncoding="GB2312" then Response.Write"selected"%>>GB2312</option>
          <option value="UTF-8" <%if selEncoding="UTF-8" then Response.Write"selected"%>>UTF-8</option>
          <option value="BIG5" <%if selEncoding="BIG5" then Response.Write"selected"%>>BIG5</option>
        </select></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">分页设置：</td>
        <td height=32 class="hback"><input type="radio" value="0" name="ListPaingType" checked="checked" onClick="ChangeCutPara(0);" <% if ListPaingType=0 then Response.Write "checked" %>>
          不分页&nbsp;&nbsp;
          <input type="radio" value="1" name="ListPaingType" onClick="ChangeCutPara(1);" <% if ListPaingType=1 then Response.Write "checked" %>>
          批量分页&nbsp;
          <input type="radio" value="2" name="ListPaingType" onClick="ChangeCutPara(2);" <% if ListPaingType=2 then Response.Write "checked" %>>
          手动分页</td>
      </tr>
      <tr ID="IndexCutPage" <% if ListPaingType<>0 then Response.Write "style=""display:none""" %>>
        <td height=32 align="right" class="hback">采集对象页：</td>
        <td height=7 class="hback"><input name="ListPaingStr" type="text" size="60" value="<%=ListPaingStr%>"></td>
      </tr>
      <tr ID="HandCutPage" <% if ListPaingType<>1 then Response.Write "style=""display:none""" %>>
        <td height=32 align="right" class="hback">批量分页：</td>
        <td height=7 class="hback"><input name="ListPaingStr2" type="text" value="<%=ListPaingStr2%>" size="60">
          分页代码 <font color=red>{$ID}</font><br>
          格式：http://www.ywnt.net/list.asp?page={$ID}<br>
          生成范围：
          <input name="ListPaingID1" type="text" size="4" value="<%=ListPaingID1%>">
          <span lang="en-us"> To </span>
          <input name="ListPaingID2" type="text" size="4" value="<%=ListPaingID2%>">
          例如：1 - 9</td>
      </tr>
      <tr ID="ListContent" <% if ListPaingType<>2 then Response.Write "style=""display:none""" %>>
        <td height=32 align="right" class="hback">手动分页：</td>
        <td height=7 class="hback"><textarea name="ListPaingStr3" cols="60" rows="7"><%=ListPaingStr3%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">采集参数：</td>
        <td height=7 class="hback"><input name="SaveFiles" type="checkbox" value="1" <%If SaveFiles=1 Then response.write "checked"%>>
          保存图片
          <input name="CollecOrder" type="checkbox" value="1" <%If CollecOrder=1 Then response.write "checked"%>>
          倒序采集</td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">过滤选项：</td>
        <td height=16 class="hback"><input name="Script_Iframe2" type="checkbox" value="1">
          Iframe
          <input name="Script_Object" type="checkbox" value="1" <%If Script_Object=1 Then response.write "checked"%>>
          Object
          <input name="Script_Script" type="checkbox" value="1" <%If Script_Script=1 Then response.write "checked"%>>
          Script
          <input name="Script_Div" type="checkbox"  value="1" <%If Script_Div=1 Then response.write "checked"%>>
          Div
          <input name="Script_Class" type="checkbox"  value="1" <%If Script_Class=1 Then response.write "checked"%>>
          Class
          <input name="Script_Table" type="checkbox"  value="1" <%If Script_Table=1 Then response.write "checked"%>>
          Table
          <input name="Script_Tr" type="checkbox"  value="1" <%If Script_Tr=1 Then response.write "checked"%>>
          Tr
          <input name="Script_Span" type="checkbox"  value="1" <%If Script_Span=1 Then response.write "checked"%>>
          Span<br>
          <input name="Script_Img" type="checkbox" value="1" <%If Script_Img=1 Then response.write "checked"%>>
          Img
          <input name="Script_Font" type="checkbox"  value="1" <%If Script_Font=1 Then response.write "checked"%>>
          Font
          <input name="Script_A" type="checkbox" value="1" <%If Script_A=1 Then response.write "checked"%>>
          A
          <input name="Script_Html" type="checkbox" value="1" <%If Script_Html=1 Then response.write "checked"%>>
          Html
          <input name="Script_Td" type="checkbox"  value="1" <%If Script_Td=1 Then response.write "checked"%>>
          Td </td>
      </tr>
      <tr>
        <td height=32 colspan="2" align="center" class="hback"><input type="hidden" name="ID" id="ID" value="<%=ID%>"><input type="submit" name="Submit" value="下一步"></td>
      </tr>
    </tbody>
  </form>
</table>
<%end sub
sub Edit2()
Select Case Request.Form("ListPaingType")
Case 0
            ListUrl=request("ListPaingStr")
Case 1
            ListUrl=Replace(request("ListPaingStr2"),"{$ID}",CStr(request("ListPaingID1")))
Case 2
         If  Instr(request("ListPaingStr3"),"|")>0  Then
            ListUrl=Left(request("ListPaingStr3"),Instr(request("ListPaingStr3"),"|")-1)
         Else
            ListUrl=request("ListPaingStr3")
         End  If
End Select
 		ListCode=GetHttpPage(ListUrl,Request.Form("selEncoding"))
		  If ListCode=False Then
		  call Admin_ShowErr("<li>在获取:"&ListUrl&"网页源码时发生错误！</li>","javascript:history.go(-1)",0)
		  End If
		Session("ListUrl")=ListUrl
		Session("selEncoding")=Request.Form("selEncoding")
		Session("ListCode")=ListCode
		Set Rs=Server.CreateObject(YWNT_TMS_CJRS)
		sql="select * from Collect_Class Where ID="&NoSqlHack(Request.Form("ID"))
		Rs.open sql,Connx,1,3
		RS("CollectName")=NoSqlHack(Request.Form("CollectName"))
		RS("selEncoding")=NoSqlHack(Request.Form("selEncoding"))
		RS("ListPaingType")=NoSqlHack(Request.Form("ListPaingType"))
		RS("ListPaingStr")=NoSqlHack(Request.Form("ListPaingStr"))
		RS("ListPaingStr2")=NoSqlHack(Request.Form("ListPaingStr2"))
		RS("ListPaingID1")=NoSqlHack(Request.Form("ListPaingID1"))
		RS("ListPaingID2")=NoSqlHack(Request.Form("ListPaingID2"))
		RS("ListPaingStr3")=NoSqlHack(Request.Form("ListPaingStr3"))
		RS("Script_Iframe")=NoSqlHack(Request.Form("Script_Iframe"))
		RS("Script_Object")=NoSqlHack(Request.Form("Script_Object"))
		RS("Script_Script")=NoSqlHack(Request.Form("Script_Script"))
		RS("Script_Div")=NoSqlHack(Request.Form("Script_Div"))
		RS("Script_Class")=NoSqlHack(Request.Form("Script_Class"))
		RS("Script_Table")=NoSqlHack(Request.Form("Script_Table"))
		RS("Script_Tr")=NoSqlHack(Request.Form("Script_Tr"))
		RS("Script_Span")=NoSqlHack(Request.Form("Script_Span"))
		RS("Script_Img")=NoSqlHack(Request.Form("Script_Img"))
		RS("Script_Font")=NoSqlHack(Request.Form("Script_Font"))
		RS("Script_A")=NoSqlHack(Request.Form("Script_A"))
		RS("Script_Html")=NoSqlHack(Request.Form("Script_Html"))
		RS("Script_Td")=NoSqlHack(Request.Form("Script_Td"))
		RS("SaveFiles")=NoSqlHack(Request.Form("SaveFiles"))
		RS("CollecOrder")=NoSqlHack(Request.Form("CollecOrder"))
		RS.Update
		ID=RS("ID")
		LsString=RS("LsString")
		LoString=RS("LoString")
		HsString=RS("HsString")
		HoString=RS("HoString")
		RS.close   
      	set RS=nothing%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <form name="Form" action="Admin_Collect.asp?Action=Edit3" method="post">
    <tbody>
      <tr>
        <td colspan="2" class=xingmu>采集列表连接设置</td>
      </tr>
      <tr>
        <td width="21%" height=32 align="right" class="hback">影片列表开始代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.LsString.rows>2)document.Form.LsString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.LsString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="LsString" cols="70" rows="7"><%=LsString%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片列表结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.LoString.rows>2)document.Form.LoString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.LoString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="LoString" cols="70" rows="7"><%=LoString%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片链接开始代码：</td>
        <td height=32 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.HsString.rows>2)document.Form.HsString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.HsString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="HsString" cols="70" rows="7"><%=HsString%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片链接结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.HoString.rows>2)document.Form.HoString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.HoString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="HoString" cols="70" rows="7"><%=HoString%></textarea></td>
      </tr>
      <tr>
        <td height=32 colspan="2" align="center" class="hback"><input type="hidden" name="ID" id="ID" value="<%=ID%>">
          <input  type="button" name="button" value="上一步" onClick="window.location.href='javascript:history.go(-1)'">
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
          <input name="Submit" type="submit" id="Submit" value="下一步"></td>
      </tr>
    </tbody>
  </form>
</table>
<%end sub
sub Edit3()
	ListCode=GetBody(Session("ListCode"),request("LsString"),request("LoString"))
	NewsArrayCode=GetArray(ListCode,request("HsString"),request("HoString"))
	Select Case NewsArrayCode
	Case False
		call Admin_ShowErr("<li>在获取链接列表时出错。</li>","javascript:history.go(-1)",0)
	Case Else
		NewsArray=Split(NewsArrayCode,"$Array$")
		UrlTest=NewsArray(0)
		UrlTest=DefiniteUrl(UrlTest,Session("ListUrl"))
		NewsCode=GetHttpPage(UrlTest,Session("selEncoding"))
		Session("NewsCode")=NewsCode
	End Select
		Set Rs=Server.CreateObject(YWNT_TMS_CJRS)
		sql="select * from Collect_Class Where ID="&NoSqlHack(Request.Form("ID"))&""
		Rs.open sql,Connx,1,3
		RS("LsString")=NoSqlHack(Request.Form("LsString"))
		RS("LoString")=NoSqlHack(Request.Form("LoString"))
		RS("HsString")=NoSqlHack(Request.Form("HsString"))
		RS("HoString")=NoSqlHack(Request.Form("HoString"))
		RS.Update
		ID=RS("ID")
		Htitle=RS("Htitle")
		Ftitle=RS("Ftitle")
		Hname=RS("Hname")
		Fname=RS("Fname")
		Htupian=RS("Htupian")
		Ftupian=RS("Ftupian")
		Hcontent=RS("Hcontent")
		Fcontent=RS("Fcontent")
		Hweburl=RS("Hweburl")
		Fweburl=RS("Fweburl")
		urlType=RS("urlType")
		Rurl=RS("Rurl")
		Reurl=RS("Reurl")
		Hpurl=RS("Hpurl")
		Fpurl=RS("Fpurl")
		RS.close   
      	set RS=nothing%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <form name="Form" action="Admin_Collect.asp?Action=Add4" method="post">
    <tbody>
      <tr>
        <td colspan="2" class=xingmu>采集内容与影片地址设置</td>
      </tr>
      <tr>
        <td width="21%" height=32 align="right" class="hback">影片名称开始代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Htitle.rows>2)document.Form.Htitle.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Htitle.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Htitle" cols="70" rows="7" id="Htitle"><%=Htitle%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片名称结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Ftitle.rows>2)document.Form.Ftitle.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Ftitle.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Ftitle" cols="70" rows="7" id="Ftitle"><%=Ftitle%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片演员开始代码：</td>
        <td height=32 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Hname.rows>2)document.Form.Hname.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hname.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Hname" cols="70" rows="7" id="Hname"><%=Hname%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片演员结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Fname.rows>2)document.Form.Fname.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fname.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Fname" cols="70" rows="7" id="Fname"><%=Fname%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片图片开始代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Htupian.rows>2)document.Form.Htupian.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Htupian.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Htupian" cols="70" rows="7" id="Htupian"><%=Htupian%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片图片结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Ftupian.rows>2)document.Form.Ftupian.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Ftupian.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Ftupian" cols="70" rows="7" id="Ftupian"><%=Ftupian%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片介绍开始代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Hcontent.rows>2)document.Form.Hcontent.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hcontent.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Hcontent" cols="70" rows="7" id="Hcontent"><%=Hcontent%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片介绍结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Fcontent.rows>2)document.Form.Fcontent.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fcontent.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Fcontent" cols="70" rows="7" id="Fcontent"><%=Fcontent%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">播放列表开始代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Hweburl.rows>2)document.Form.Hweburl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hweburl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Hweburl" cols="70" rows="7" id="Hweburl"><%=Hweburl%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">播放列表结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Fweburl.rows>2)document.Form.Fweburl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fweburl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Fweburl" cols="70" rows="7" id="Fweburl"><%=Fweburl%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">特殊播放列表处理：</td>
        <td height=7 class="hback"><input type="radio" value="0" name="urlType" checked="checked" onClick="Listurl2.style.display='none';Listurl3.style.display='none'" <% if urlType=0 then Response.Write "checked"%>>
          不作设置&nbsp;&nbsp;
          <input type="radio" value="1" name="urlType" onClick="Listurl2.style.display='';Listurl3.style.display=''" <% if urlType=1 then Response.Write "checked"%>>
          替换地址<br>
          &nbsp;&nbsp;<font color="red">对于使用了JavaScript:openwindow形式的连接请使用以下格式处理:<br>
            &nbsp;&nbsp;脚本连接:内容[变量] 内容 如:javaScript:OpenWnd([变量])<br>
            &nbsp;&nbsp;实际连接:内容[变量] 内容 如:play.asp?id=[变量]</font></td>
      </tr>
      <tr id="Listurl2" <% if urlType<>1 then Response.Write "style=""display:none""" %>>
        <td height=32 align="right" class="hback">要替换的地址：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Rurl.rows>2)document.Form.Rurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Rurl.rows+=1" style='cursor:hand'><b>扩大</b></span> &nbsp;&nbsp;可用标签：<font onmouseover="getActiveText(document.Form.Rurl);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font>
          <textarea name="Rurl" cols="70" rows="4" id="Rurl"><%=Rurl%></textarea></td>
      </tr>
      <tr id="Listurl3" <% if urlType<>1 then Response.Write "style=""display:none""" %>>
        <td height=32 align="right" class="hback">替换为的地址：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Reurl.rows>2)document.Form.Reurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Reurl.rows+=1" style='cursor:hand'><b>扩大</b></span> &nbsp;&nbsp;可用标签：<font onmouseover="getActiveText(document.Form.Reurl);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font>
          <textarea name="Reurl" cols="70" rows="4" id="Reurl"><%=Reurl%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片地址开始代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Hpurl.rows>2)document.Form.Hpurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hpurl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Hpurl" cols="70" rows="7" id="Hpurl"><%=Hpurl%></textarea></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片地址结束代码：</td>
        <td height=7 class="hback">&nbsp;&nbsp;输入区域： <span onClick="if(document.Form.Fpurl.rows>2)document.Form.Fpurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fpurl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
          <textarea name="Fpurl" cols="70" rows="7" id="Fpurl"><%=Fpurl%></textarea></td>
      </tr>
      <tr>
        <td height=32 colspan="2" align="center" class="hback"><input name="button"  type="button" id="button" onClick="window.location.href='javascript:history.go(-1)'" value="上一步">
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
          <input type="hidden" name="ID" id="ID" value="<%=ID%>">
          <input name="Submit" type="submit" id="Submit" value="下一步"></td>
      </tr>
    </tbody>
  </form>
</table>
<%end sub
sub Edit4()
Set Rs=Server.CreateObject(YWNT_TMS_CJRS)
		sql="select * from Collect_Class Where ID="&NoSqlHack(Request.Form("ID"))&""
		Rs.open sql,Connx,1,3
		RS("Htitle")=NoSqlHack(Request.Form("Htitle"))
		RS("Ftitle")=NoSqlHack(Request.Form("Ftitle"))
		RS("Hname")=NoSqlHack(Request.Form("Hname"))
		RS("Fname")=NoSqlHack(Request.Form("Fname"))
		RS("Htupian")=NoSqlHack(Request.Form("Htupian"))
		RS("Ftupian")=NoSqlHack(Request.Form("Ftupian"))
		RS("Hcontent")=NoSqlHack(Request.Form("Hcontent"))
		RS("Fcontent")=NoSqlHack(Request.Form("Fcontent"))
		RS("Hweburl")=NoSqlHack(Request.Form("Hweburl"))
		RS("Fweburl")=NoSqlHack(Request.Form("Fweburl"))
		RS("urlType")=NoSqlHack(Request.Form("urlType"))
		RS("Rurl")=NoSqlHack(Request.Form("Rurl"))
		RS("Reurl")=NoSqlHack(Request.Form("Reurl"))
		RS("Hpurl")=NoSqlHack(Request.Form("Hpurl"))
		RS("Fpurl")=NoSqlHack(Request.Form("Fpurl"))
		RS.Update
		ID=RS("ID")
		RS.close   
      	set RS=nothing
		
title=GetBody(Session("NewsCode"),request.Form("Htitle"),request.Form("Ftitle"))
name=GetBody(Session("NewsCode"),request.Form("Hname"),request.Form("Fname"))
tupian=GetBody(Session("NewsCode"),request.Form("Htupian"),request.Form("Ftupian"))
content=GetBody(Session("NewsCode"),request.Form("Hcontent"),request.Form("Fcontent"))
weburl=GetArray(Session("NewsCode"),request.Form("Hweburl"),request.Form("Fweburl"))%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <form name="form" action="Admin_Collect.asp?Action=AddSever" method="post">
    <tbody>
      <tr>
        <td colspan="2" class=xingmu>采集测试效果</td>
      </tr>
      <tr>
        <td width="21%" height=31 align="right" class="hback">影片名称：</td>
        <td height=31 class="hback"><%=title%></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片演员：</td>
        <td height=7 class="hback"><%=name%></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片图片：</td>
        <td height=32 class="hback"><%=tupian%></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片介绍：</td>
        <td height=7 class="hback"><%=content%></td>
      </tr>
      <%If weburl<>False Then
        webArray=Split(weburl,"$Array$")
        For i=0 To Ubound(webArray)
        UrlTest=webArray(i)
        if Request.Form("UrlType")=1 then
        Keyurl = Split(Request.Form("Rurl"),"[变量]",-1,1)
        urli=GetBody(UrlTest,Keyurl(0),Keyurl(1))
        if urli=False then
        Exit For
        end if
        UrlTest=Replace(Request.Form("Reurl"),"[变量]",urli)
        end if
        UrlTest=DefiniteUrl(UrlTest,Session("ListUrl"))
        webCode=GetHttpPage(UrlTest,Session("selEncoding"))
        url=GetBody(webCode,Request.Form("Hpurl"),request.Form("Fpurl"))%>
      <tr>
        <td height=32 align="right" class="hback">播放列表：</td>
        <td height=7 class="hback"><%=UrlTest%></td>
      </tr>
      <tr>
        <td height=32 align="right" class="hback">影片地址：</td>
        <td height=7 class="hback"><%=url%></td>
      </tr>
      <%Next
	  End if%>
      <tr>
        <td height=32 colspan="2" align="center" class="hback"><input name="button2"  type="button" id="button2" onClick="window.location.href='javascript:history.go(-1)'" value="上一步">
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
          <input name="Submit2" type="submit" id="Submit2" value="完 成"></td>
      </tr>
    </tbody>
  </form>
</table>
<%end sub%>
<script language="JavaScript">
function ChangeCutPara(Flag)
{
	switch (Flag)
	{
		case 0 :
			document.all.IndexCutPage.style.display='';
			document.all.HandCutPage.style.display='none';
			document.all.ListContent.style.display='none';
			break;
		case 1 :
			document.all.IndexCutPage.style.display='none';
			document.all.HandCutPage.style.display='';
			document.all.ListContent.style.display='none';
			break;
		case 2 :
			document.all.IndexCutPage.style.display='none';
			document.all.HandCutPage.style.display='none';
			document.all.ListContent.style.display='';
			break;
		default :
			document.all.IndexCutPage.style.display='none';
			document.all.HandCutPage.style.display='none';
			document.all.ListContent.style.display='none';
			break;
	}
}
currObj = "uuuu";
function getActiveText(obj)
{
	obj.focus();
	currObj = obj;
}

function addTag(ibTag)
{
	var isClose = false;
	var obj_ta = currObj;
	if (obj_ta.isTextEdit)
	{
		obj_ta.focus();
		var sel = document.selection;
		var rng = sel.createRange();
		rng.colapse;

		if((sel.type == "Text" || sel.type == "None") && rng != null)
		{
			rng.text = ibTag;
		}
		obj_ta.focus();
		return isClose;
	}
	else return false;
}	
</script>
<%call connxclose()%>
</BODY></HTML>
