📄 admin_mov_collecting.asp

📁 重庆宽频P2P电影小偷程序,可以做一个大型的电影站了
💻 ASP
📖 第 1 页 / 共 4 页
字号:
					SoftPictemp=Replace(SoftPictemp,"{$Month$}",Monthnow)
					SoftPictemp=Replace(SoftPictemp,"{$Day$}",Daynow)
					if SaveFiles=2 then
						SoftPicExt = LCase(Mid(SoftPicName, InStrRev(SoftPicName, ".")+1))
						if SoftPicExt="" then
							SoftPicExt="st!"
						End if
						SoftPicName="UploadSoftPic/"&SoftPictemp&"/"&Yearnow&monthnow&daynow&hour(now)&minute(now)&second(now)&int(999*rnd)&"."&SoftPicExt
					Elseif SaveFiles=1 then
						SoftPicName="UploadSoftPic/"&SoftPictemp&"/"&SoftPicName
					End if
					if CollecTest<>1 then
						Call GetChannelDir(stChannelID)
						Call CZdir(InstallDir&stChannelDir&"/UploadSoftPic/"&SoftPictemp&"/")
						Call SaveRemoteFile(InstallDir&stChannelDir&"/"&SoftPicName,SoftPicUrl)'保存
					End if
					SoftPicUrl=SoftPicName
				End if
			End If
		End If
		If stFoundErr<>True then
			if FileSavebType=1 then
				'远程保存文件
				Urlstr1=Split(DownloadUrls,"$$$")	'分解地址列表
				DownloadUrls=""						'地址列表初始化
				for Url_i=0 to Ubound(Urlstr1)
					Urlstr2=Split(Urlstr1(Url_i),"|")
					FileName = LCase(Mid(Urlstr2(1), InStrRev(Urlstr2(1), "/")+1))
					FileExt = LCase(Mid(FileName, InStrRev(FileName, ".")+1))
					Call GetChannelDir(2)
					Call CZdir(InstallDir,stChannelDir,sUploadDir,SaveDir)
					if SaveNameTypeb=1 then
						Urlstr3=SaveDir&"/"&yearnow&monthnow&daynow&hour(now)&minute(now)&second(now)&int(999*rnd)&"."&FileExt
					else
						Urlstr3=SaveDir&"/"&FileName
					End if
					If CollecTest<>1 then
						'Call SaveRemoteFile(stChannelDir&"/"&sUploadDir&"/"&Urlstr3,Urlstr2(1))'保存文件列表	
					End if
								
					'重新组合地址列表
					if Url_i>0 then
						DownloadUrls=DownloadUrls&"$$$"
					End if
					DownloadUrls=DownloadUrls&Urlstr2(0)&"|"&Urlstr3				
				Next
			Elseif FileSavebType=2 then			
				'远程保存文件
				Urlstr1=Split(DownloadUrls,"$$$")	'分解地址列表
				DownloadUrls=""					'地址列表初始化
				for Url_i=0 to Ubound(Urlstr1)
					Urlstr2=Split(Urlstr1(Url_i),"|")
					FileName = LCase(Mid(Urlstr2(1), InStrRev(Urlstr2(1), "/")+1))
					FileExt = LCase(Mid(FileName, InStrRev(FileName, ".")+1))
					Call GetChannelDir(stChannelID)
					SaveDir=Replace(SaveDir,"{$Year$}",Yearnow)
					SaveDir=Replace(SaveDir,"{$Month$}",Monthnow)
					SaveDir=Replace(SaveDir,"{$Day$}",Daynow)
					Response.write format(day(now),"dd")
					if SaveNameTypeb=1 then
						Urlstr3=yearnow&monthnow&daynow&hour(now)&minute(now)&second(now)&int(999*rnd)&"."&FileExt
					else
						Urlstr3=FileName
					End if
					Call CZdir(InstallDir&stChannelDir&"/"&sUploadDir&"/"&SaveDir&"/")
					If CollecTest<>1 then
						Call SaveRemoteFile(InstallDir&stChannelDir&"/"&sUploadDir&"/"&SaveDir&"/"&Urlstr3,Urlstr2(1))'保存文件	
					End if
								
					'重新组合地址列表
					if Url_i>0 then
						DownloadUrls=DownloadUrls&"$$$"
					End if
					DownloadUrls=DownloadUrls&Urlstr2(0)&"|"&SaveDir&"/"&Urlstr3				
				Next
			End if
		If CollecTest<>1 then
			Call InputDate()'入库
			'写入历史记录
			If isRepeat=True and InputType=1 then
			Else
				SqlItem="INSERT INTO HistrolyNews(HistrolyID,ItemID,ChannelID,ClassID,SoftID,Title,NewsCollecDate,NewsUrl,Result) VALUES ('1','"&ItemID&"','"&stChannelID&"','"&stClassID&"','"&SoftID&"','"&SoftName&"','"&now()&"','"&LinksUrl&"',True)"
				ConnItem.Execute(SqlItem)
			End if

		End if
			stErrMsg=stErrMsg& "电影标题：<font color=red>"&SoftName&"</font><br>"
			stErrMsg=stErrMsg& "播放地址："&DownloadUrls&"<br>"
			stErrMsg=stErrMsg& "添加时间："&UpdateTime&"<br>"
			stErrMsg=stErrMsg& "关 键 字："&Keyword&"<br>"
			stErrMsg=stErrMsg& "电影作者："&Author&"<br>"
			stErrMsg=stErrMsg& "电影来源："&CopyFrom&"<br>"
			'stErrMsg=stErrMsg& "电影版本："&SoftVersion&"<br>"
			'stErrMsg=stErrMsg& "播放环境："&OperatingSystem&"<br>"
			'stErrMsg=stErrMsg& "电影类别："&SoftType&"<br>"
			'stErrMsg=stErrMsg& "电影语言："&SoftLanguage&"<br>"			
			'stErrMsg=stErrMsg& "授权形式："&CopyrightType&"<br>"
			stErrMsg=stErrMsg& "电影大小："&SoftSize&" K <br>"
			stErrMsg=stErrMsg& "电影图片："&SoftPicUrl&"<br>"			
			'stErrMsg=stErrMsg& "电影解压密码："&DecompressPassword&"<br>"			
			'stErrMsg=stErrMsg& "电影演示地址："&DemoUrl&"<br>"
			'stErrMsg=stErrMsg& "电影注册地址："&RegUrl&"<br>"
			stErrMsg=stErrMsg& "电影简介："&Left(SoftIntro,40)&"...<br>"
			SuccNum=SuccNum+1
		Else
			FailNum=FailNum+1
		End if
		Call WriteMsg(stErrMsg)
		Response.Flush()'刷新(如不刷新,则需要该页电影采集完才显示出来)
		
	Next
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" >
  <tr>   <td height="22" align="left" class="tdbg">&nbsp;&nbsp;数据整理中，3 秒后继续......3秒后如果还没反应请点击 <a href='Admin_mov_Collecting.asp?ItemNum=<%=ItemNum%>&ListNum=<%=ListNum+1%>&SuccNum=<%=SuccNum%>&FailNum=<%=FailNum%>&ListPaingNext=<%=ListPaingNext%>&ItemStr=<%=ItemStr%>&InputType=<%=InputType%>&CollecTest=<%=CollecTest%>'><font color=red>这里</font></a> 继续<br>    &nbsp;&nbsp;执行时间：<%=CStr(FormatNumber((Timer()-StartTime)*1000,2))%> 毫秒    </td>  </tr>  <tr> 
    <td height="22"  class="tdbg" align="left">&nbsp;&nbsp;采集需要一定的时间，请耐心等待，如果网站出现暂时无法访问的情况这是正常的，采集过程正常结束后即可恢复。
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="button"  name="Stop"  value="停止采集"  onCLICK="location.href='Admin_mov_Collectino.asp'">
    </td>
  </tr>
</table>
<meta http-equiv="refresh" content="3;url=Admin_mov_Collecting.asp?ItemNum=<%=ItemNum%>&ListNum=<%=ListNum+1%>&SuccNum=<%=SuccNum%>&FailNum=<%=FailNum%>&ListPaingNext=<%=ListPaingNext%>&ItemStr=<%=ItemStr%>&InputType=<%=InputType%>&CollecTest=<%=CollecTest%>">
<%End IF%>


<%
'读取项目信息,参数:ItemID
Sub GetItemDate(ItemID)
	Dim SqlItem,RsItem
	SqlItem ="select * from Item where ItemID="&ItemID
	Set RsItem=Server.CreateObject("adodb.recordset")
	RsItem.Open SqlItem,ConnItem,1,1
	If RsItem.eof or RsItem.bof then
		stFoundErr=True
		stErrMsg="<br><li>参数错误，请选择项目！</li>"
	Else
		ItemName=RsItem("ItemName")
		stChannelID=RsItem("ChannelID")
		stClassID=RsItem("ClassID")
		stSpecialID=RsItem("SpecialID")
		WebName=RsItem("WebName")
		WebUrl=RsItem("WebUrl")
		ItemDemo=RsItem("ItemDemo")
		LoginType=RsItem("LoginType")
		LoginUrl=RsItem("LoginUrl")
		LoginPostUrl=RsItem("LoginPostUrl")
		LoginUser=RsItem("LoginUser")
		LoginPass=RsItem("LoginPass")
		LoginFalse=RsItem("LoginFalse")
		ListStr=RsItem("ListStr")
		LsString=RsItem("LsString")
		LoString=RsItem("LoString")
		ListPaingType=RsItem("ListPaingType")
		LPsString=RsItem("LPsString")
		LPoString=RsItem("LPoString")
		ListPaingStr1=RsItem("ListPaingStr1")
		ListPaingStr2=RsItem("ListPaingStr2")
		ListPaingID1=RsItem("ListPaingID1")
		ListPaingID2=RsItem("ListPaingID2")
		ListPaingStr3=RsItem("ListPaingStr3")
		HsString=RsItem("HsString")
		HoString=RsItem("HoString")
		HttpUrlType=RsItem("HttpUrlType")
		HttpUrlStr=RsItem("HttpUrlStr")
		TsString=RsItem("TsString")
		ToString=RsItem("ToString")
		CsString=RsItem("CsString")
		CoString=RsItem("CoString")
		AuthorType=RsItem("AuthorType")
		AsString=RsItem("AsString")
		AoString=RsItem("AoString")
		AuthorStr=RsItem("AuthorStr")
		UpdateTimeType=RsItem("UpdateTimeType")
		UsString=RsItem("UsString")
		UoString=RsItem("UoString")
		UpdateTimeStr=RsItem("UpdateTimeStr")
		CopyFromType=RsItem("CopyFromType")
		FsString=RsItem("FsString")
		FoString=RsItem("FoString")
		CopyFromStr=RsItem("CopyFromStr")
		KeyType=RsItem("KeyType")
		KsString=RsItem("KsString")
		KoString=RsItem("KoString")
		KeyStr=RsItem("KeyStr")
		NewsPaingType=RsItem("NewsPaingType")
		NPsString=RsItem("NPsString")
		NPoString=RsItem("NPoString")
		NewsPaingStr1=RsItem("NewsPaingStr1")
		NewsPaingStr2=RsItem("NewsPaingStr2")
		Flag=RsItem("Flag")
		DsStringbType=RsItem("DsStringbType")
		DsStringb=RsItem("DsStringb")
		DoStringb=RsItem("DoStringb")
		DsStringbb=RsItem("DsStringbb")
		DoStringbb=RsItem("DoStringbb")
		XsStringbType=RsItem("XsStringbType")
		XsStringb=RsItem("XsStringb")
		XoStringb=RsItem("XoStringb")
		XsStringbb=RsItem("XsStringbb")
		XoStringbb=RsItem("XoStringbb")
		HttpDownUrlType=RsItem("HttpDownUrlType")
        HttpDownUrlStr=RsItem("HttpDownUrlStr")
		BsStringbType=RsItem("BsStringbType")
		BsStringb=RsItem("BsStringb")
		BoStringb=RsItem("BoStringb")
		BoStringbstr=RsItem("BoStringbstr")
		YsStringbType=RsItem("YsStringbType")
		YsStringb=RsItem("YsStringb")
		YoStringb=RsItem("YoStringb")
		YoStringbstr=RsItem("YoStringbstr")
		PsStringbType=RsItem("PsStringbType")
		PsStringb=RsItem("PsStringb")
		PoStringb=RsItem("PoStringb")
		PoStringbstr=RsItem("PoStringbstr")
		HsStringbType=RsItem("HsStringbType")
		HsStringb=RsItem("HsStringb")
		HoStringb=RsItem("HoStringb")
		HoStringbstr=RsItem("HoStringbstr")
		JsStringbType=RsItem("JsStringbType")
		JsStringb=RsItem("JsStringb")
		JoStringb=RsItem("JoStringb")
		JoStringbstr=RsItem("JoStringbstr")
		SsStringbType=RsItem("SsStringbType")
		SsStringb=RsItem("SsStringb")
		SoStringb=RsItem("SoStringb")
		SoStringbstr=RsItem("SoStringbstr")
		ZsStringbType=RsItem("ZsStringbType")
		ZsStringb=RsItem("ZsStringb")
		ZoStringb=RsItem("ZoStringb")
		ZoStringbstr=RsItem("ZoStringbstr")
		LsStringbType=RsItem("LsStringbType")
		LsStringb=RsItem("LsStringb")
		LoStringb=RsItem("LoStringb")
		LoStringbstr=RsItem("LoStringbstr")
		MsStringbType=RsItem("MsStringbType")
		MsStringb=RsItem("MsStringb")
		MoStringb=RsItem("MoStringb")
		MoStringbstr=RsItem("MoStringbstr")
		QsStringbType=RsItem("QsStringbType")
		QsStringb=RsItem("QsStringb")
		QoStringb=RsItem("QoStringb")
		QoStringbstr=RsItem("QoStringbstr")
		Script_IFRAME=RsItem("Script_IFRAME")
		Script_OBJECT=RsItem("Script_OBJECT")
		Script_SCRIPT=RsItem("Script_SCRIPT")
		Script_Div=RsItem("Script_Div")
		Script_CLASS=RsItem("Script_CLASS")
		Script_Span=RsItem("Script_Span")
		Script_IMG=RsItem("Script_IMG")
		Script_FONT=RsItem("Script_FONT")
		Script_A=RsItem("Script_A")
		Script_HTML=RsItem("Script_HTML")
		CollectionNum=RsItem("CollectionNum")
		CollectionType=RsItem("CollectionType")
		SkinID=RsItem("SkinID")
		TemplateID=RsItem("TemplateID")
		OnTop=RsItem("OnTop")
		Hot=RsItem("Hot")
		Elite=RsItem("Elite")
		Hits=RsItem("Hits")
		Stars=RsItem("Stars")
		ShowCommentLink=RsItem("ShowCommentLink")
		Script_Table=RsItem("Script_Table")
		Script_Tr=RsItem("Script_Tr")
		Script_Td=RsItem("Script_Td")
		CollecOrder=RsItem("CollecOrder")
		Passed=RsItem("Passed")
		CreateImmediate=RsItem("CreateImmediate")
		SaveFiles=RsItem("SaveFiles")
		lasttimestr=RsItem("lasttimestr")
		FileSavebType=RsItem("FileSavebType")
		FileSavebNum=RsItem("FileSavebNum")
		FileSavebstr=RsItem("FileSavebstr")
		SaveNameTypeb=RsItem("SaveNameTypeb")
		SaveDir=RsItem("SaveDir")
		SoftPoint=RsItem("SoftPoint")
				
	End if	
	RsItem.Close
	Set RsItem=Nothing
End Sub

'数据入库
Sub InputDate()
	Dim SqlItem,RsItem
	isRepeat=False
	Set RsItem=Server.CreateObject("adodb.recordset")
	if InputType=1 then
		RsItem.Open "select * from PE_Soft order by SoftID desc",Conn,1,1
		If not(RsItem.eof or RsItem.bof)then
			SoftID=RsItem("SoftID")
		End if
		RsItem.close
		RsItem.Open "select * from PE_Soft where Deleted=False and SoftID="&Pp023id&" ",Conn,1,3'检查连载需要的语句,否则删掉
		If RsItem.eof or RsItem.bof then'检查连载需要的语句,否则删掉
		  RsItem.close'检查连载需要的语句,否则删掉
		  RsItem.Open "select * from PE_Soft where Deleted=False and SoftName='" & SoftName& "' order by SoftID desc",Conn,1,3
		  If RsItem.eof or RsItem.bof then
			RsItem.addnew
			RsItem("SoftID")=SoftID+1
			SoftID=SoftID+1
		  Else
			isRepeat=True
			SoftID=RsItem("SoftID")
		  End if
		else'检查连载需要的语句,否则删掉
		  isRepeat=True'检查连载需要的语句,否则删掉
		end if'检查连载需要的语句,否则删掉
	Else
		RsItem.Open "select * from PE_Soft order by SoftID desc",Conn,1,3
		if RsItem.eof or RsItem.bof then
			SoftID=SoftID+1
		Else
			SoftID=RsItem("SoftID")+1			
		End if
		RsItem.addnew
		RsItem("SoftID")=SoftID
	End if
	RsItem("ChannelID")=stChannelID
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -