cl_function_collect.asp

正版创力4.1SQL商业版!!!ASP版。

		Infogroup=5
	Else
		Infogroup=Trim(Request.form("Infogroup"))
	End If
	Rsitem("Photourls")=Photourls
	Rsitem("Photourlo")=Photourlo
	If Newspaingtype<>"" Then 
		Rsitem("newspaingtype")=newspaingtype
		If Newspaingtype=1 Then
			Rsitem("npsstring")=npsstring
			Rsitem("npostring")=npostring
			Rsitem("newsurlpaing_s")=newsurlpaing_s
			Rsitem("newsurlpaing_o")=newsurlpaing_o
		End If
	End If
	
	If ModuleID=3 Then
		Rsitem("Phototype_s")=Phototype_s
		Rsitem("Phototype_o")=Phototype_o
		
		Rsitem("Photolurl_s")=Photolurl_s
		Rsitem("Photolurl_o")=Photolurl_o
		
		Rsitem("Phototypefy_s")=Phototypefy_s
		Rsitem("Phototypefy_o")=Phototypefy_o
		
		Rsitem("Phototypefyurl_s")=Phototypefyurl_s
		Rsitem("Phototypefyurl_o")=Phototypefyurl_o
		
		Rsitem("Phototypeurl_s")=Phototypeurl_s
		Rsitem("Phototypeurl_o")=Phototypeurl_o
		Rsitem("downlist_s")=downlist_s'下载地址设置
		Rsitem("downlist_o")=downlist_o
		Rsitem("downurl_s")=downurl_s
		Rsitem("downurl_o")=downurl_o
	End If
	Rsitem("datetype")=datetype
	If ModuleID=2 Then  
		Rsitem("downlist_s")=downlist_s'下载地址设置
		Rsitem("downlist_o")=downlist_o
		Rsitem("downurl_s")=downurl_s
		Rsitem("downurl_o")=downurl_o
		
		Rsitem("downnewtype")=downnewtype'新窗口打开下载连接
		Rsitem("downnewlist_s")=downnewlist_s
		Rsitem("downnewlist_o")=downnewlist_o
		Rsitem("downnewurl_s")=downnewurl_s
		Rsitem("downnewurl_o")=downnewurl_o

		Rsitem("zdtype_001")=zdtype_001'软件大小设置
		Rsitem("zds_001")=zds_001
		Rsitem("zdo_001")=zdo_001
	
		Rsitem("zdtype_002")=zdtype_002'软件语言设置
		Rsitem("zds_002")=zds_002	
		Rsitem("zdo_002")=zdo_002
	
		Rsitem("zdtype_003")=zdtype_003'授权方式设置
		Rsitem("zds_003")=zds_003
		Rsitem("zdo_003")=zdo_003
	
		Rsitem("zdtype_004")=zdtype_004'运行环境设置
		Rsitem("zds_004")=zds_004
		Rsitem("zdo_004")=zdo_004

		Rsitem("zdtype_005")=zdtype_005'演示地址设置
		Rsitem("zds_005")=zds_005
		Rsitem("zdo_005")=zdo_005

		Rsitem("zdtype_006")=zdtype_006'注册地址设置
		Rsitem("zds_006")=zds_006
		Rsitem("zdo_006")=zdo_006

		Rsitem("zdtype_007")=zdtype_007'注册地址设置
		Rsitem("zds_007")=zds_007
		Rsitem("zdo_007")=zdo_007
		Rsitem("linkurlyn")= Linkurlyn
	End If

	If ModuleID=4 Then
		Rsitem("downlist_s")=downlist_s'影视地址设置
		Rsitem("downlist_o")=downlist_o
		Rsitem("downurl_s")=downurl_s
		Rsitem("downurl_o")=downurl_o
		Rsitem("zds_007")=zds_007

		Rsitem("downnewtype")=downnewtype'新窗口打开下载连接
		Rsitem("downnewlist_s")=downnewlist_s
		Rsitem("downnewlist_o")=downnewlist_o
		Rsitem("downnewurl_s")=downnewurl_s
		Rsitem("downnewurl_o")=downnewurl_o
	End If
	
	If Datetype=1 Then
		Rsitem("dsstring")=dsstring
		Rsitem("dostring")=dostring
	End If

	Rsitem("authortype")=authortype
	If Authortype=1 Then
		Rsitem("asstring")=asstring
		Rsitem("aostring")=aostring
	Elseif Authortype=2 Then
		Rsitem("authorstr")=authorstr
	End If

	Rsitem("copyfromtype")=copyfromtype
	If Copyfromtype=1 Then
		Rsitem("fsstring")=fsstring
		Rsitem("fostring")=fostring
	Elseif Copyfromtype=2 Then
		Rsitem("copyfromstr")=copyfromstr
	End If

	Rsitem("keytype")=keytype
	If Keytype=1 Then
		Rsitem("ksstring")=ksstring
		Rsitem("kostring")=kostring
	Elseif Keytype=2 Then
		Rsitem("keystr")=keystr
	End If
	Rsitem.update
	Rsitem.Close
	Set Rsitem=Nothing
End If
End Sub
'=============采集测试============================
Sub Gettest()
	Sqlitem="select * From Item Where ItemID=" & ItemID
	Set Rsitem=server.createobject("adodb.recordset")
	Rsitem.open Sqlitem,Conn_C,1,1
	If  Rsitem.eof  And  Rsitem.bof  Then
		Founderr=True
		Errmsg=Errmsg  &  "<br><li>参数错误，找不到该项目</li>"
	Else
		Logintype=rsitem("Logintype")
		Loginurl=rsitem("Loginurl")
		Loginposturl=rsitem("Loginposturl")
		Loginuser=rsitem("Loginuser")
		Loginpass=rsitem("Loginpass")
		LoginFalse=rsitem("LoginFalse")

		Paginationtype=rsitem("paginationtype")
		Maxcharperpage=rsitem("maxcharperpage")
		Infogroup=rsitem("maxcharperpage")

		Liststr=rsitem("liststr")
		Lsstring=rsitem("lsstring")
		Lostring=rsitem("lostring")
		Listpaingtype=rsitem("listpaingtype")
		Lpsstring=rsitem("lpsstring")
		Lpostring=rsitem("lpostring")
		Listpaingstr2=rsitem("listpaingstr2")
		ListpaingID1=rsitem("listpaingID1")
		ListpaingID2=rsitem("listpaingID2")
		Listpaingstr3=rsitem("listpaingstr3")
		Encoding=rsitem("Encoding")
		Strreplace=rsitem("strreplace")
		Hsstring=rsitem("hsstring")
		Hostring=rsitem("hostring")
		X_tp=rsitem("x_tp")
		Imhstr=rsitem("imhstr")
		Imostr=rsitem("imostr")
		Photourls=rsitem("Photourls")
		Photourlo=rsitem("Photourlo")
		Photopaingtype=rsitem("Photopaingtype")
		Phototype_s=rsitem("Phototype_s")
		Phototype_o=rsitem("Phototype_o")
		Photolurl_s=rsitem("Photolurl_s")
		Photolurl_o=rsitem("Photolurl_o")
		Phototypefy_s=rsitem("Phototypefy_s")
		Phototypefy_o=rsitem("Phototypefy_o")
		Phototypefyurl_s=rsitem("Phototypefyurl_s")
		Phototypefyurl_o=rsitem("Phototypefyurl_o")
		Phototypeurl_s=rsitem("Phototypeurl_s")
		Phototypeurl_o=rsitem("Phototypeurl_o")
		Httpurltype=rsitem("httpurltype")
		Httpurlstr=rsitem("httpurlstr")
		ModuleID=rsitem("ModuleID")
		If ModuleID=3 Then
			Downlist_s=rsitem("downlist_s")'下载地址设置
			Downlist_o=rsitem("downlist_o")
			Downurl_s=rsitem("downurl_s")
			Downurl_o=rsitem("downurl_o")
		End If

		If  ModuleID=2 Then
			Downlist_s=rsitem("downlist_s")'下载地址设置
			Downlist_o=rsitem("downlist_o")
			Downurl_s=rsitem("downurl_s")
			Downurl_o=rsitem("downurl_o")

			Downnewtype=rsitem("downnewtype")'新窗口打开下载连接
			Downnewlist_s=rsitem("downnewlist_s")
			Downnewlist_o=rsitem("downnewlist_o")
			Downnewurl_s=rsitem("downnewurl_s")
			Downnewurl_o=rsitem("downnewurl_o")

			Zdtype_001=rsitem("zdtype_001")'软件大小设置
			Zds_001=rsitem("zds_001")
			Zdo_001=rsitem("zdo_001")

			Zdtype_002=rsitem("zdtype_002")'软件语言设置
			Zds_002=rsitem("zds_002")
			Zdo_002=rsitem("zdo_002")

			Zdtype_003=rsitem("zdtype_003")'授权方式设置
			Zds_003=rsitem("zds_003")
			Zdo_003=rsitem("zdo_003")

			Zdtype_004=rsitem("zdtype_004")'运行环境设置
			Zds_004=rsitem("zds_004")
			Zdo_004=rsitem("zdo_004")

			Zdtype_005=rsitem("zdtype_005")'演示地址设置
			Zds_005=rsitem("zds_005")
			Zdo_005=rsitem("zdo_005")

			Zdtype_006=rsitem("zdtype_006")'注册地址设置
			Zds_006=rsitem("zds_006")
			Zdo_006=rsitem("zdo_006")

			Zdtype_007=rsitem("zdtype_007")'软件图片设置
			Zds_007=rsitem("zds_007")
			Zdo_007=rsitem("zdo_007") 
		End If
		If  ModuleID=4 Then
			Downlist_s=rsitem("downlist_s")'影视地址设置
			Downlist_o=rsitem("downlist_o")
			Downurl_s=rsitem("downurl_s")
			Downurl_o=rsitem("downurl_o")
			Zds_007=rsitem("zds_007")
		
			Downnewtype=rsitem("downnewtype")'新窗口打开下载连接
			Downnewlist_s=rsitem("downnewlist_s")
			Downnewlist_o=rsitem("downnewlist_o")
			Downnewurl_s=rsitem("downnewurl_s")
			Downnewurl_o=rsitem("downnewurl_o")
		End If
		Tsstring=rsitem("tsstring")
		Tostring=rsitem("tostring")
		Csstring=rsitem("csstring")
		Costring=rsitem("costring")
		
		Datetype=rsitem("datetype")
		Dsstring=rsitem("dsstring")
		Dostring=rsitem("dostring")

		Authortype=rsitem("authortype")
		Asstring=rsitem("asstring")
		Aostring=rsitem("aostring")
		Authorstr=rsitem("authorstr")

		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")
		Newsurlpaing_s=rsitem("newsurlpaing_s")
		Newsurlpaing_o=rsitem("newsurlpaing_o")
	
		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")	
		
		Updatetype=rsitem("updatetype")
		ModuleID=rsitem("ModuleID")
	End If	
	Rsitem.Close
	Set Rsitem=Nothing

	
	If Lsstring="" Then
		Founderr=True
		Errmsg=Errmsg & "<br><li>列表开始标记不能为空！</li>"
	End If
	If Lostring="" Then
		Founderr=True
		Errmsg=Errmsg & "<br><li>列表结束标记不能为空！</li>"
	End If
	If Infogroup="" Then
		Founderr=True
		Errmsg=Errmsg & "<br><li>阅读等级不能为空</li>" 
	End If
	If Logintype=1 Then
		If Loginurl="" Or Loginposturl="" Or Loginuser="" Or Loginpass="" Or LoginFalse="" Then
			Founderr=True
			Errmsg=Errmsg & "<br /><li>网站登录信息不完整</li>"
		End If
	End If
	Listpaingtype=Clng(listpaingtype)
	Select Case Listpaingtype
	Case 0
	Case 1
		If Listpaingstr2="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>批量生成字符不能为空</li>"
		End If
		If Isnumeric(listpaingID1)=False Or Isnumeric(listpaingID2)=False Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>批量生成的范围只能是数字</li>"
		Else
			ListpaingID1=Clng(listpaingID1)
			ListpaingID2=Clng(listpaingID2)
			If ListpaingID1=0 And ListpaingID2=0 Then
				Founderr=True
				Errmsg=Errmsg & "<br><li>批量生成范围设置不正确</li>"
			End If
		End If
	Case 2
		If Listpaingstr3="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>列表索引分页不能为空，请手动添加</li>"
		Else
			Listpaingstr3=replace(listpaingstr3,chr(13),"|") 
		End If
	Case 3
		If Lpsstring="" Or Lpostring="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>索引分页开始/结束标记不能为空!</li>"
		End If 	
	Case Else
		Founderr=True
		Errmsg=Errmsg & "<br><li>请选择列表索引分页类型</li>" 
	End Select
  
	If  Hsstring=""  Or  Hostring=""  Then
		Founderr=True
		Errmsg=Errmsg & "<br><li>链接开始/结束标记不能为空！</li>"
		End  If

	If Founderr<>True  Then
		Select Case Listpaingtype
		Case 0
				Listurl=liststr
		Case 1
			Listurl=replace(listpaingstr2,"{$ID}",cstr(listpaingID1))
		Case 2
			If Instr(listpaingstr3,"|")> 0 Then
				Listurl=left(listpaingstr3,instr(listpaingstr3,"|")-1)
			Else
				Listurl=listpaingstr3
			End If
	Case 3
		Listurl=liststr		
		End Select
	End If

	If Logintype=1 Then
		Logindata=CGet.urlEncoding(Loginuser & "&" & Loginpass)
		Loginresult=CGet.posthttppage(Loginurl,Loginposturl,Logindata,Encoding)
		If Instr(Loginresult,LoginFalse)>0 Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>在登录网站时发生错误，请确保登录信息的正确性！</li>"
		End If
	End If

	If Founderr<>True Then
			Listcode=CGet.replaceTrim(CGet.GetHttpPage(listurl,Encoding))
			If Listcode<>"$False$" Then
				Listcode=CGet.Getbody(listcode,lsstring,lostring,False,False)
				If Listcode<>"$False$" Then
					Newsarraycode=CGet.Getarray(listcode,hsstring,hostring,False,False)
					If Newsarraycode<>"$False$" Then
						If Instr(newsarraycode,"$Array$")>0 Then
							Newsarray=split(newsarraycode,"$Array$")
							If Httpurltype=1 Then
								Newsurl=Trim(replace(httpurlstr,"{$ID}",newsarray(0)))
							Else
								Newsurl=Trim(CGet.formatremoteurl(newsarray(0),listurl))
							End If
						Else
							Founderr=True
							Errmsg=Errmsg & "<br><li>只发现一个有效链接？：" & Newsarraycode & "</li>"
					End If