cl_function_collect.asp

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

	Fstring = Replace(fstring,  " "," ")
	Fstring = Replace(fstring, """, Chr(34))
	Fstring = Replace(fstring, "'", Chr(39))
	Fstring = Replace(fstring, "</p><p> ",chr(10) & Chr(10))
	Fstring = Replace(fstring, "<br> ", Chr(10))

	Dvhtmlcode = Fstring
End Function

Sub Collection_loading()
	If Itemend<>True Then
		If (itemnum-1)>ubound(arr_item,2) Then
			Itemend=True
		Else
			Call Setitems()
		End If
	End If
	If Itemend<>True Then
		If Listpaingtype=0 Then
			If Listnum=1 Then
				Listurl=liststr
			Else
				Listend=True
			End If
		Elseif Listpaingtype=1 Then
			If Listnum=1 And ListpaingID1<>1 And  ListpaingID2<>1 Then 
				Listurl=liststr
			Else
				If ListpaingID1>listpaingID2 Then
					If (listpaingID1-listnum+1)<listpaingID2 Or (listpaingID1-listnum+1)<0 Then
						Listend=True
					Else
						Listurl=replace(listpaingstr2,"{$ID}",cstr(listpaingID1-listnum+1))
					End If
				Else
					If (listpaingID1+listnum-1)>listpaingID2 Then
						Listend=True
					Else
						Listurl=replace(listpaingstr2,"{$ID}",cstr(listpaingID1+listnum-1))
					End If
				End If	
			End If	
		Elseif Listpaingtype=2 Then
			Listarray=split(listpaingstr3,"|")
			If (listnum-1)>ubound(listarray) Then
				Listend=True
			Else
				Listurl=listarray(listnum-1)
			End If
		Elseif Listpaingtype=3 Then
			If Listnum=1 Then
				Listurl=liststr
				Listcode=liststr
				Application.lock()
				Application("ipq_ss")=listurl
				Application.unlock()
			Else
				Listurl=application("ipq_ss")
				Listcode=CGet.GetHttpPage(listurl,"gb2312")
				Listcode=CGet.Getbody(listcode,lpsstring,lpostring,False,False)
			End If
			If Listcode<>"$False$" Or Listcode<>"" Then
				Listcode=Trim(CGet.formatremoteurl(listcode,liststr))
				Listurl=listcode
				Application.lock()
				Application("ipq_ss")=listurl
				Application.unlock()
			Else
				Listend=True
			End If	
		End If
	
		If Listnum>colleclistnum And Colleclistnum<>0 Then
			Listend=True
		End If
	End If

	If Itemend=True Then
		Errmsg= "<br>采集任务全部完成"
		Errmsg=Errmsg & "<br>成功采集： "  &  Newssuccesnum  &  "  条,失败： "	&  NewsFalsenum  &  "  条,图片：" & Imagesnumall & "  张"
		Call Delcache()
		Errmsg=Errmsg & "<meta Http-equiv=""refresh"" Content=""1;url="& CGet.Getitemconfig("fileName",ModuleID) &""">"
	Else
		If Listend=True Then
			Itemnum=itemnum+1
			Listnum=1
			Errmsg="<br>" & ItemName & "  项目所有列表采集完成，正在整理数据请稍后..."
			Errmsg=Errmsg & "<meta Http-equiv=""refresh"" Content=""1;url="& CGet.Getitemconfig("fileName",ModuleID) &""">"
		End If
	End If

	Call Topitem()
	If Itemend=True Or Listend=True Then
		If Itemend<>True Then
			Call Setcache_his()'读取历史记录
		End If
		Call Cl.Showsuc(Errmsg)
	Else
		Founderr=False
		Errmsg=""
		Call Startcollection()
		Call Footitem2()
	End  If
End Sub

Sub Saveedit
Tsstring=Request.form("tsstring")
Tostring=Request.form("tostring")
Csstring=Request.form("csstring")
Costring=Request.form("costring")
Photourls=Request.form("Photourls")
Photourlo=Request.form("Photourlo")

Newspaingtype=Trim(Request.form("newspaingtype"))
Npsstring=Trim(Request.form("npsstring"))
Npostring=Trim(Request.form("npostring"))
Newsurlpaing_s=Trim(Request.form("newsurlpaing_s"))
Newsurlpaing_o=Trim(Request.form("newsurlpaing_o"))

Photopaingtype=Trim(Request.form("Photopaingtype"))
Phototype_s=Request.form("Phototype_s")
Phototype_o=Request.form("Phototype_o")
Photolurl_s=Request.form("Photolurl_s")
Photolurl_o=Request.form("Photolurl_o")
Phototypefy_s=Request.form("Phototypefy_s")
Phototypefy_o=Request.form("Phototypefy_o")
Phototypefyurl_s=Request.form("Phototypefyurl_s")
Phototypefyurl_o=Request.form("Phototypefyurl_o")
Phototypeurl_s=Request.form("Phototypeurl_s")
Phototypeurl_o=Request.form("Phototypeurl_o")
If ModuleID=3 Then
	Downlist_s=Request.form("downlist_s")
	Downlist_o=Request.form("downlist_o")
	Downurl_s=Request.form("downurl_s")
	Downurl_o=Request.form("downurl_o")
End If	
If ModuleID=2 Then
	Downlist_s=Request.form("downlist_s")'下载地址设置
	Downlist_o=Request.form("downlist_o")
	Downurl_s=Request.form("downurl_s")
	Downurl_o=Request.form("downurl_o")

	Downnewtype=Request.form("downnewtype")'新窗口打开下载连接
	Downnewlist_s=Request.form("downnewlist_s")
	Downnewlist_o=Request.form("downnewlist_o")
	Downnewurl_s=Request.form("downnewurl_s")
	Downnewurl_o=Request.form("downnewurl_o")
	
	Zdtype_001=Request.form("zdtype_001")'软件大小设置
	Zds_001=Request.form("zds_001")
	Zdo_001=Request.form("zdo_001")
  
	Zdtype_002=Request.form("zdtype_002")'软件语言设置
	Zds_002=Request.form("zds_002")
	Zdo_002=Request.form("zdo_002")
	
	Zdtype_003=Request.form("zdtype_003")'授权方式设置
	Zds_003=Request.form("zds_003")
	Zdo_003=Request.form("zdo_003")
	
	Zdtype_004=Request.form("zdtype_004")'运行环境设置
	Zds_004=Request.form("zds_004")
	Zdo_004=Request.form("zdo_004")
	
	Zdtype_005=Request.form("zdtype_005")'演示地址设置
	Zds_005=Request.form("zds_005")
	Zdo_005=Request.form("zdo_005")
	
	Zdtype_006=Request.form("zdtype_006")'注册地址设置
	Zds_006=Request.form("zds_006")
	Zdo_006=Request.form("zdo_006")
	
	Zdtype_007=Request.form("zdtype_007")'软件图片设置
	Zds_007=Request.form("zds_007")
	Zdo_007=Request.form("zdo_007")
	
	Linkurlyn=Request.form("linkurlyn")
	If Linkurlyn="" Then Linkurlyn=0
End If

If ModuleID=4 Then
	Downlist_s=Request.form("downlist_s")'下载地址设置
	Downlist_o=Request.form("downlist_o")
	Downurl_s=Request.form("downurl_s")
	Downurl_o=Request.form("downurl_o")
	Zds_007=Request.form("zds_007")'重定地址
	
	Downnewtype=Request.form("downnewtype")'新窗口打开下载连接
	Downnewlist_s=Request.form("downnewlist_s")
	Downnewlist_o=Request.form("downnewlist_o")
	Downnewurl_s=Request.form("downnewurl_s")
	Downnewurl_o=Request.form("downnewurl_o")
End If

Datetype=Trim(Request.form("datetype"))
Dsstring=Request.form("dsstring")
Dostring=Request.form("dostring")

Authortype=Trim(Request.form("authortype"))
Asstring=Request.form("asstring")
Aostring=Request.form("aostring")
Authorstr=Request.form("authorstr")

Copyfromtype=Trim(Request.form("copyfromtype"))
Fsstring=Request.form("fsstring")
Fostring=Request.form("fostring")
Copyfromstr=Request.form("copyfromstr")

Keytype=Trim(Request.form("keytype"))
Ksstring=Request.form("ksstring")
Kostring=Request.form("kostring")
Keystr=Request.form("keystr")

Urltest=Trim(Request.form("urltest"))

If Tsstring="" Then
	Founderr=True
	Errmsg=Errmsg & "<br><li>标题开始标记不能为空</li>"
End If
If Tostring="" Then
	Founderr=True
	Errmsg=Errmsg & "<br><li>标题结束标记不能为空</li>"
End If
If Newspaingtype<>"" Then
	Newspaingtype=Clng(newspaingtype)
	If Newspaingtype=0 Then
	Elseif Newspaingtype=1 Then
		If Npsstring="" Or Npostring="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>正文分页列表开始/结束标不能为空！</li>"
		End If
		If Newsurlpaing_s="" Or Newsurlpaing_o="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>正文分页链接开始/结束标不能为空！！</li>"
		End If
	Elseif Newspaingtype=2 Then
	Else
		Founderr=True
		Errmsg=Errmsg & "<br><li>参数错误，正文分类设置</li>" 
	End If 
End If

If Datetype="" Then
	Founderr=True
	Errmsg=Errmsg & "<br><li>请设置时间类型</li>" 
Else
	Datetype=Clng(datetype)
	If Datetype=0 Then
	Elseif Datetype=1 Then
		If Dsstring="" Or Dostring="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>请将时间的开始/结束标记填写完整</li>" 
		End If
	Else
		Founderr=True
		Errmsg=Errmsg & "<br><li>参数错误，请从有效链接进入</li>" 
	End If
End If

If Authortype="" Then
	Founderr=True
	Errmsg=Errmsg & "<br><li>请设置作者类型</li>" 
Else
	Authortype=Clng(authortype)
	If Authortype=0 Then
	Elseif Authortype=1 Then
		If Asstring="" Or Aostring="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>请将作者开始/结束标记填写完整！</li>" 
		End If
	Elseif Authortype=2 Then
		If Authorstr="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>请指定作者</li>" 
		End If
	Else
		Founderr=True
		Errmsg=Errmsg & "<br><li>参数错误，请从有效链接进入</li>" 
	End If 
End If

If ModuleID=2 Then'下载地址设置
	If Downlist_s="" Or  Downlist_o="" Or Downurl_s="" Or Downurl_o="" Then
		Founderr=True
		Errmsg=Errmsg & "<br><li>下载地址设置不能为空</li>" 
	End If
	If Downnewtype=1 Then
		If Downnewlist_s="" Or Downnewlist_o="" Or Downnewurl_s="" Or Downnewurl_o="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>新窗口打开下载连接不能为空</li>"
		End If 
	End If	
	If Zdtype_001=1  Then
		If Zds_001="" Or Zdo_001="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>软件大小设置不能为空</li>"
		End If 
	End If
	If Zdtype_002=1  Then
		If Zds_002="" Or Zdo_002="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>软件语言设置不能为空</li>" 
		End If
	End If
	If Zdtype_003=1 Then
		If Zds_003="" Or Zdo_003="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>授权方式设置不能为空</li>" 
		End If	
	End If
	If Zdtype_004=1 Then
		If Zds_004="" Or Zdo_004="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>运行环境设置不能为空</li>" 
		End If
	End If
	If Zdtype_005=1 Then
		If Zds_005="" Or Zdo_005="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>演示地址设置不能为空</li>" 
		End If
	End If
	If Zdtype_006=1 Then
		If Zds_006="" Or Zdo_006="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>注册地址设置不能为空</li>" 
		End If	
	End If
	If Zdtype_007=1 Then
		If Zds_007="" Or Zdo_007="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>软件图片设置不能为空</li>" 
		End If	
	End If
End If

If Copyfromtype="" Then
	Founderr=True
	Errmsg=Errmsg & "<br><li>请设置来源类型</li>" 
Else
	Copyfromtype=Clng(copyfromtype)
	If Copyfromtype=0 Then
	Elseif Copyfromtype=1 Then
		If Fsstring="" Or Fostring="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>请将来源开始/结束标记填写完整！</li>" 
		End If
	Elseif Copyfromtype=2 Then
		If Copyfromstr="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>请指定来源</li>" 
		End If
	Else
		Founderr=True
		Errmsg=Errmsg & "<br><li>参数错误，请从有效链接进入</li>" 
	End If 
End If

If Keytype="" Then
	Founderr=True
	Errmsg=Errmsg & "<br><li>请设置关键字类型</li>" 
Else
	Keytype=Clng(keytype)
	If Keytype=0 Then
	Elseif Keytype=1 Then
		If Ksstring="" Or Kostring="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>关键字开始/结束标记不能为空</li>" 
		End If
	Elseif Keytype=2 Then
		If Keystr="" Then
			Founderr=True
			Errmsg=Errmsg & "<br><li>请指定关键字</li>" 
		End If
	Else
		Founderr=True
		Errmsg=Errmsg & "<br><li>参数错误，请从有效链接进入</li>" 
	End If
End If

If Founderr<>True Then
	Sqlitem="select * From Item Where ItemID=" & ItemID
	Set Rsitem=server.createobject("adodb.recordset")
	Rsitem.open Sqlitem,Conn_C,2,3
	Rsitem("tsstring")=tsstring
	Rsitem("tostring")=tostring
	Rsitem("csstring")=csstring
	Rsitem("costring")=costring

	If Trim(Request.form("GetClasspurview"))="yes" Then