admin_collecting.asp

一款不错的影音视频网站源代码。asp的程序。后台有自动采集功能

        <td bgColor=#f5fafe>影片地址开始代码：</td>
        <td bgColor=#ffffff>&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"><%=rs("Hpurl")%></textarea></td>
      </tr>
       <tr>
        <td bgColor=#f5fafe>影片地址结束代码：</td>
        <td bgColor=#ffffff>&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"><%=rs("Fpurl")%></textarea></td>
      </tr>
      <tr>
        <td colspan="2" align="center" bgColor=#f5fafe><input name="button"  type="button" id="button" onClick="window.location.href='javascript:history.go(-1)'" value="上一步" class=inputbut>
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
          <input type="hidden" name="id" id="id" value="<%=id%>"><input name="Submit" type="submit" id="Submit" value="下一步" class=inputbut></td>
      </tr>
    </tbody>
  </form>
</table>
<script language="JavaScript">
showtr(<%=rs("ScopeOn")%>,'ScopeN1','ScopeN2');
showtr(<%=rs("urlType")%>,'Listurl2','Listurl3');
ChangeCutPara(<%=rs("ClassType")%>,'CollectClassN','HClassN','FClassN');
ChangeCutPara(<%=rs("RegionType")%>,'CollectRegionN','HRegionN','FRegionN');
</script>
<%
rs.close:set rs=nothing
end sub
sub add4()
	Set rs = server.CreateObject("Adodb.RecordSet")
	sql="select * from "&web_dbtop&"collect where id="&Request.Form("id")&""
	rs.open sql,conn,1,3
	rs("Htitle")=Request.Form("Htitle")
	rs("Ftitle")=Request.Form("Ftitle")
	rs("Hname")=Request.Form("Hname")
	rs("Fname")=Request.Form("Fname")
	rs("Htupian")=Request.Form("Htupian")
	rs("Ftupian")=Request.Form("Ftupian")
	rs("ClassType")=Request.Form("ClassType")
	rs("CollectClass")=Request.Form("CollectClass")
	rs("HClass")=Request.Form("HClass")
	rs("FClass")=Request.Form("FClass")
	rs("RegionType")=Request.Form("RegionType")
	rs("CollectRegion")=Request.Form("CollectRegion")
	rs("HRegion")=Request.Form("HRegion")
	rs("FRegion")=Request.Form("FRegion")
	rs("Hcontent")=Request.Form("Hcontent")
	rs("Fcontent")=Request.Form("Fcontent")
	rs("ScopeOn")=Request.Form("ScopeOn")
	rs("Hscope")=Request.Form("Hscope")
	rs("Fscope")=Request.Form("Fscope")
	rs("Hweburl")=Request.Form("Hweburl")
	rs("Fweburl")=Request.Form("Fweburl")
	rs("urlType")=Request.Form("urlType")
	rs("Rurl")=Request.Form("Rurl")
	rs("Reurl")=Request.Form("Reurl")
	rs("Hpurl")=Request.Form("Hpurl")
	rs("Fpurl")=Request.Form("Fpurl")
	rs.Update
	rs.close   
	set rs=nothing
	moviename=GetBody(Session("NewsCode"),request.Form("Htitle"),request.Form("Ftitle"))
	movieactor=GetBody(Session("NewsCode"),request.Form("Hname"),request.Form("Fname"))
	moviepic=DefiniteUrl(GetBody(Session("NewsCode"),request.Form("Htupian"),request.Form("Ftupian")),Session("ListUrl"))
	if request.Form("ClassType")=1 then
		typeidname=GetBody(Session("NewsCode"),request.Form("HClass"),request.Form("FClass"))
	else
		typeidname=showcontent("type","typename",Request.Form("CollectClass"))
	end if
	if request.Form("RegionType")=1 then
		regionname=GetBody(Session("NewsCode"),request.Form("HRegion"),request.Form("FRegion"))
	else
		regionname=showcontent("region","regionname",Request.Form("CollectRegion"))
	end if
	content=GetBody(Session("NewsCode"),request.Form("Hcontent"),request.Form("Fcontent"))
	if Request.Form("ScopeOn")=1 then
		Urlscope=GetBody(Session("NewsCode"),request.Form("Hscope"),request.Form("Fscope"))
		weburl=GetArray(Urlscope,request.Form("Hweburl"),request.Form("Fweburl"))
	else
		weburl=GetArray(Session("NewsCode"),request.Form("Hweburl"),request.Form("Fweburl"))
	end if
%>
<TABLE width="96%" border=0 align=center cellpadding="4" cellSpacing=1 class=tbtitle style="BACKGROUND: #cad9ea;">
  <form name="form" action="?action=sadd" method="post">
    <tbody>
      <tr>
        <td colspan="2" bgColor=#f5fafe>采集测试效果</td>
      </tr>
      <tr>
        <td width="20%" bgColor=#f5fafe>影片名称：</td>
        <td bgColor=#ffffff><%=moviename%></td>
      </tr>
      <tr>
        <td bgColor=#f5fafe>影片演员：</td>
        <td bgColor=#ffffff><%=movieactor%></td>
      </tr>
      <tr>
        <td bgColor=#f5fafe>影片图片：</td>
        <td bgColor=#ffffff><%=moviepic%></td>
      </tr>
	  <tr>
        <td bgColor=#f5fafe>影片栏目：</td>
        <td bgColor=#ffffff><%=typeidname%></td>
      </tr>
	  <tr>
        <td bgColor=#f5fafe>影片地区：</td>
        <td bgColor=#ffffff><%=regionname%></td>
      </tr>
      <tr>
        <td bgColor=#f5fafe>影片介绍：</td>
        <td bgColor=#ffffff><%=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=GetHttp(UrlTest,Session("selEncoding"))
				movieurl=GetBody(webCode,Request.Form("Hpurl"),request.Form("Fpurl"))%>
		  <tr>
			<td bgColor=#f5fafe>播放列表：</td>
			<td bgColor=#ffffff><%=UrlTest%></td>
		  </tr>
		  <tr>
			<td bgColor=#f5fafe>影片地址：</td>
			<td bgColor=#ffffff><%=movieurl%></td>
		  </tr>
      <%	Next
	  End if%>
      <tr>
        <td colspan="2" align="center" bgColor=#f5fafe><input name="button"  type="button" id="button" onClick="window.location.href='javascript:history.go(-1)'" value="上一步" class=inputbut>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input name="Submit" type="submit" id="Submit" value="完 成" class=inputbut></td>
      </tr>
    </tbody>
  </form>
</table>
<%end sub
sub edit()
	Set rs = server.CreateObject("Adodb.RecordSet")
	sql="select id,CollectName,selEncoding,ListPaingType,ListPaingStr,ListPaingStr2,ListPaingid1,ListPaingid2,ListPaingStr3,SaveFiles from "&web_dbtop&"collect where id="&Request.QueryString("id")
	rs.open sql,conn,1,1
%>
<TABLE width="96%" border=0 align=center cellpadding="4" cellSpacing=1 class=tbtitle style="BACKGROUND: #cad9ea;">
 <form name="form" action="?action=edit2" method="post">
  <tbody>
    <tr>
      <td colspan="2" bgColor=#f5fafe>采集项目添加</td>
    </tr>
    <tr>
      <td width="20%" bgColor=#f5fafe>采集名称：</td>
      <td bgColor=#ffffff><input name="CollectName" type="text" id="CollectName" size="40" value="<%=rs("CollectName")%>"></td>
    </tr>
        <tr>
      <td bgColor=#f5fafe>目标编码：</td>
      <td bgColor=#ffffff><select name="selEncoding" size="1">
          <option value="GB2312" <%if rs("selEncoding")="GB2312" then Response.Write"selected=""selected"""%>>GB2312</option>
          <option value="UTF-8" <%if rs("selEncoding")="UTF-8" then Response.Write"selected=""selected"""%>>UTF-8</option>
          <option value="BIG5" <%if rs("selEncoding")="BIG5" then Response.Write"selected=""selected"""%>>BIG5</option>
        </select></td>
    </tr>
        <tr>
      <td bgColor=#f5fafe>分页设置：</td>
      <td bgColor=#ffffff><input type="radio" value="0" name="ListPaingType" checked="checked" onClick="ChangeCut(0);" <%if rs("ListPaingType")=0 then Response.Write"checked"%>>
不分页&nbsp;&nbsp;
<input name="ListPaingType" type="radio" onClick="ChangeCut(1);" value="1" <%if rs("ListPaingType")=1 then Response.Write"checked"%>>
批量分页&nbsp;
<input type="radio" value="2" name="ListPaingType" onClick="ChangeCut(2);" <%if rs("ListPaingType")=2 then Response.Write"checked"%>>
手动分页&nbsp;
<input type="radio" value="3" name="ListPaingType" onClick="ChangeCut(3);" <%if rs("ListPaingType")=3 then Response.Write"checked"%>> 
按id直接采集内容</td>
      </tr>
    <tr id="IndexCutPage">
      <td bgColor=#f5fafe>采集对象页：</td>
      <td bgColor=#ffffff><input name="ListPaingStr" type="text" value="<%=rs("ListPaingStr")%>" size="60"></td>
    </tr>
    <tr id="HandCutPage" style="display:none">
      <td bgColor=#f5fafe><span id="CutPageName"></span>：</td>
      <td bgColor=#ffffff><input name="ListPaingStr2" type="text" value="<%=rs("ListPaingStr2")%>" size="60">
        分页代码 <font color=red>{id}</font><br>
格式：http://www.****.cn/list.asp?page={id}<br>
生成范围：
<input name="ListPaingid1" type="text" value="<%=rs("ListPaingid1")%>" size="4">
 To 
<input name="ListPaingid2" type="text" value="<%=rs("ListPaingid2")%>" size="4">
例如：1 - 9</td>
    </tr>
    <tr id="ListContent" style="display:none">
      <td bgColor=#f5fafe>手动分页：</td>
      <td bgColor=#ffffff><textarea name="ListPaingStr3" cols="60" rows="7"><%=rs("ListPaingStr3")%></textarea></td>
    </tr>
    <tr>
      <td bgColor=#f5fafe>采集参数：</td>
      <td bgColor=#ffffff><input name="SaveFiles" type="checkbox" value="1" <%if rs("SaveFiles")=1 then Response.Write"checked"%>>
保存图片</td>
    </tr>
    <tr>
      <td colspan="2" align="center" bgColor=#f5fafe><input type="hidden" name="id" id="id" value="<%=rs("id")%>"><input type="submit" name="Submit" value="下一步" class=inputbut></td>
    </tr>
  </tbody>
</form>
</table>
<script language="JavaScript">
ChangeCut(<%=rs("ListPaingType")%>);
</script>
<%
rs.close:set rs=nothing
end sub
call connclose()
%>
</BODY>
</HTML>