admin_mov_collecting.asp

重庆宽频P2P电影小偷程序,可以做一个大型的电影站了

         					if tXsStringbtxt<>"$False$" and tXsStringbtxt<>"" then
         						if Larri>0 or Larrj>0 then DownloadUrls=DownloadUrls&"$$$"
         						Larrz=Larrz+1
								DownloadUrls=DownloadUrls&"第"&Larrz&"集|"&tXsStringbtxt
							End if
						Next
					 end if	
					Else
						tXsStringbtxt=Trim(DefiniteUrl(sDownloadUrls(Larri),LinksUrl))
						if tXsStringbtxt<>"$False$" and tXsStringbtxt<>"" then
							if Larri>0 then DownloadUrls=DownloadUrls&"$$$"
							Larrz=Larrz+1
							DownloadUrls=DownloadUrls&"第"&Larrz&"集|"&tXsStringbtxt
						End if
					End if	
				Next
			End if
			If DownLoadUrls="$False$" or DownLoadUrls="" then
				stFoundErr=True
				stErrMsg=stErrMsg & "<li>在采集：" & LinksUrl & "电影播放地址时发生错误</li><br>"
				'写入历史记录
				If CollecTest<>1 Then
					SqlItem="INSERT INTO HistrolyNews(HistrolyID,ItemID,ChannelID,ClassID,NewsCollecDate,NewsUrl,Result) VALUES ('1','"&ItemID&"','"&stChannelID&"','"&stClassID&"','"&now()&"','"&LinksUrl&"',False)"
					ConnItem.Execute(SqlItem)
				End if
			End if			
		End if
		
		'获取电影添加时间
		If UpdateTimeType=1 Then
			UpdateTime=GetBody(LinksCode,UsString,UoString,False,False)
		ElseIf UpdateTimeType=2 Then
			UpdateTime=UpdateTimeStr
		Else
			UpdateTime=Now()
		End If
		if UpdateTime<>"" and IsDate(UpdateTime)=true then
			UpdateTime=CDate(UpdateTime)
		else
			UpdateTime=now()
		end if
		
		'获取电影简介
		If stFoundErr<>True Then
			SoftIntro=GetBody(LinksCode,CsString,CoString,False,False)
			If SoftIntro="$False$" or SoftIntro="" then
				SoftIntro=SoftName
			Else
				'SoftIntro=dvhtmlencode(SoftIntro)
			End if
			Call Filters
			Call FilterScript
		End If
		
		If stFoundErr<>True Then
			'获取电影版本
			if BsStringbType=1 then				
				SoftVersion=GetBody(LinksCode,BsStringb,BoStringb,False,False)
			Elseif BsStringbType=2 then
				SoftVersion=BoStringbstr
			Else
				SoftVersion=""
			End if
			SoftVersion=FpHtmlEncode(SoftVersion)
    	    SoftVersion=dvhtmlencode(SoftVersion)
    	    If SoftVersion="" or SoftVersion="$False$" Then
				SoftVersion=""
			Else
				If Len(SoftVersion)>100 Then 
					SoftVersion=Left(SoftVersion,100)
				End If
			End If
		
			'获取电影作者
			if AuthorType=1 then				
				Author=GetBody(LinksCode,AsString,AoString,False,False)
			Elseif AuthorType=2 then
				Author=AuthorStr
			Else
				Author="不详"
			End if
			Author=FpHtmlEncode(Author)
         	Author=dvhtmlencode(Author)
         	If Author="" or Author="$False$" Then
				Author="不详"
			Else
				If Len(Author)>30 Then 
				Author=Left(Author,30)
				End If
			End If
		
			'获取电影解压密码
			if JsStringbType=1 then				
				DecompressPassword=GetBody(LinksCode,JsStringb,JoStringb,False,False)
			Elseif JsStringbType=2 then
				DecompressPassword=JoStringbstr
			Else
				DecompressPassword=""
			End if
			DecompressPassword=FpHtmlEncode(DecompressPassword)
    	    DecompressPassword=dvhtmlencode(DecompressPassword)
    	    If DecompressPassword="" or DecompressPassword="$False$" Then
				DecompressPassword=""
			Else
				If Len(DecompressPassword)>50 Then 
					DecompressPassword=Left(DecompressPassword,50)
				End If
			End If
		
			'获取电影来源
			if CopyFromType=1 then				
				CopyFrom=GetBody(LinksCode,FsString,FoString,False,False)
			Elseif CopyFromType=2 then
				CopyFrom=CopyFromStr
			Else
				CopyFrom="不详"
			End if
			CopyFrom=FpHtmlEncode(CopyFrom)
         	CopyFrom=dvhtmlencode(CopyFrom)
         	If CopyFrom="" or CopyFrom="$False$" Then
				CopyFrom="不详"
			Else
				If Len(CopyFrom)>255 Then 
				CopyFrom=Left(CopyFrom,255)
				End If
			End If
			
			'获取电影演示地址
			if SsStringbType=1 then				
				DemoUrl=GetBody(LinksCode,SsStringb,SoStringb,False,False)
			Elseif SsStringbType=2 then
				DemoUrl=SoStringbstr
			Else
				DemoUrl="http://"
			End if
			DemoUrl=FpHtmlEncode(DemoUrl)
         	DemoUrl=dvhtmlencode(DemoUrl)
         	If DemoUrl="" or DemoUrl="$False$" Then
				DemoUrl="http://"
			Else
				If Len(CopyFrom)>200 Then 
				DemoUrl=Left(DemoUrl,200)
				End If
			End If
			
			'获取电影注册地址
			if ZsStringbType=1 then				
				RegUrl=GetBody(LinksCode,ZsStringb,ZoStringb,False,False)
			Elseif ZsStringbType=2 then
				RegUrl=ZoStringbstr
			Else
				RegUrl="http://"
			End if
			RegUrl=FpHtmlEncode(RegUrl)
         	RegUrl=dvhtmlencode(RegUrl)
         	If RegUrl="" or RegUrl="$False$" Then
				RegUrl="http://"
			Else
				If Len(RegUrl)>200 Then 
				RegUrl=Left(RegUrl,200)
				End If
			End If
			
			'获取电影关键字
			Keyword=""
			tKeyword=""
			if KeyType=1 then				
				Keyword="|"&GetBody(LinksCode,KsString,KoString,False,False)&"|"
			Elseif KeyType=2 then
				ttKeyword=ReplaceKeyChar(SoftName)
				For dd=1 to len(ttKeyword)-1
					tKeyword=tKeyword&"|"&mid(ttKeyword,dd,2)
				Next
				Keyword="|"&Replace(KeyStr,"{$SoftName$}",SoftName)
				Keyword=Replace(Keyword,"{$tKeyword$}",tKeyword)
				Keyword="|"&Keyword&"|"
			Else
				ttKeyword=ReplaceKeyChar(SoftName)
				if ttKeyword>20 then
					ttKeyword=Left(ttKeyword,20)
				End if
				For dd=1 to len(ttKeyword)-1
					Keyword=Keyword&"|"&mid(ttKeyword,dd,2)
				Next
				Keyword="|"&Keyword&"|"
			End if
			Keyword=FpHtmlEncode(Keyword)
         		Keyword=dvhtmlencode(Keyword)
         		If Keyword="" or Keyword="$False$" Then
				For dd=1 to len(SoftName)-1
					Keyword=Keyword&"|"&mid(SoftName,dd,2)
				Next
				Keyword="|"&Keyword&"|"				
			Else
				If Len(Keyword)>255 Then
				Keyword=Left(Keyword,254)&"|"
				End If
			End If
		
			'获取电影播放环境(
			if HsStringbType=1 then				
				OperatingSystem=GetBody(LinksCode,HsStringb,HoStringb,False,False)
			Elseif HsStringbType=2 then
				OperatingSystem=HoStringbstr
			Else
				OperatingSystem="Win9x/NT/2000/XP/2003"
			End if
			OperatingSystem=FpHtmlEncode(OperatingSystem)
    	    OperatingSystem=dvhtmlencode(OperatingSystem)
    	    If OperatingSystem="" or OperatingSystem="$False$" Then
				OperatingSystem="Win9x/NT/2000/XP/2003"
			Else
				If Len(OperatingSystem)>100 Then 
					OperatingSystem=Left(OperatingSystem,100)
				End If
			End If
			
			'获取电影类别
			if LsStringbType=1 then				
				SoftType=GetBody(LinksCode,LsStringb,LoStringb,False,False)
			Elseif LsStringbType=2 then
				SoftType=LoStringbstr
			Else
				SoftTyp="通用"
			End if
			SoftType=FpHtmlEncode(SoftType)
    	    SoftType=dvhtmlencode(SoftType)
    	    If SoftType="" or SoftType="$False$" Then
				SoftType="通用"
			Else
				If Len(SoftType)>50 Then 
					SoftType=Left(SoftType,50)
				End If
			End If
			
			'获取电影语言
			if YsStringbType=1 then				
				SoftLanguage=GetBody(LinksCode,YsStringb,YoStringb,False,False)
			Elseif YsStringbType=2 then
				SoftLanguage=YoStringbstr
			Else
				SoftLanguage="中文"
			End if
			SoftLanguage=FpHtmlEncode(SoftLanguage)
    	    SoftLanguage=dvhtmlencode(SoftLanguage)
    	    If SoftLanguage="" or SoftLanguage="$False$" Then
				SoftLanguage="中文"
			Else
				If Len(SoftLanguage)>50 Then 
					SoftLanguage=Left(SoftLanguage,50)
				End If
			End If
			
			'获取电影授权形式
			if QsStringbType=1 then				
				CopyrightType=GetBody(LinksCode,QsStringb,QoStringb,False,False)
			Elseif QsStringbType=2 then
				CopyrightType=QoStringbstr
			Else
				CopyrightType="免费"
			End if
			CopyrightType=FpHtmlEncode(CopyrightType)
    	    CopyrightType=dvhtmlencode(CopyrightType)
    	    If CopyrightType="" or CopyrightType="$False$" Then
				CopyrightType="免费"
			Else
				If Len(CopyrightType)>50 Then 
					CopyrightType=Left(CopyrightType,50)
				End If
			End If
			
			'获取电影大小
			if MsStringbType=1 then				
				SoftSize=GetBody(LinksCode,MsStringb,MoStringb,False,False)
			Elseif MsStringbType=2 then
				SoftSize=MoStringbstr
			Else
				SoftSize=0
			End if
			SoftSize=FpHtmlEncode(SoftSize)
    	    SoftSize=Clng(dvhtmlencode(SoftSize))
    	    If SoftSize="" or SoftSize="$False$" Then
				SoftSize=0
			Else
				SoftSize=FormatNum(SoftSize)
				If Len(SoftSize)>20 Then 
					SoftSize=Left(SoftSize,20)
				End If
			End If
			
			'获取电影图片
			Yearnow=Year(now)
			Monthnow=Month(now)
			Daynow=Day(now)
			if Monthnow<10 then Monthnow="0"&Monthnow
			if Daynow<10 then Daynow="0"&Daynow
			if PsStringbType=1 then				
				SoftPicUrl=GetBody(LinksCode,PsStringb,PoStringb,False,False)
				SoftPicUrl=Trim(DefiniteUrl(SoftPicUrl,LinksUrl))
			Elseif PsStringbType=2 then
				SoftPicUrl=PoStringbstr
			Else
				SoftPicUrl=""
			End if
			SoftPicUrl=FpHtmlEncode(SoftPicUrl)
    	    SoftPicUrl=dvhtmlencode(SoftPicUrl)
    	    If SoftPicUrl="" or SoftPicUrl="$False$" Then
				SoftPicUrl=""
			Else
				If Len(SoftPicUrl)>255 Then 
					SoftPicUrl=Left(SoftPicUrl,255)
				End If
				'保存图片
				if SaveFiles=1 or SaveFiles=2 then
					SoftPicName = LCase(Mid(SoftPicUrl, InStrRev(SoftPicUrl, "/")+1))
					SoftPictemp=SaveDir
					SoftPictemp=Replace(SoftPictemp,"{$Year$}",Yearnow)