⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 cj_cls.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
            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 Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>请选择列表索引分页类型</li>" 
   End Select
End if
If Stars="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择文章评分等级！</li>"
Else
   Stars=Clng(Stars)
End If
If ReadPoint="" Then
   ReadPoint=0
Else
   ReadPoint=Clng(ReadPoint)
End if
If Hits="" Then
   Hits=0
Else
   Hits=Clng(Hits)
End if
case 2
if Action1="" and Action="s2" then
Set RsItem=ConnItem.execute("select * from Item where ItemID=" & ItemID)
	  LsString=RsItem("LsString")
   	  LoString=RsItem("LoString")
	  HsString=RsItem("HsString")
  	  HoString=RsItem("HoString")
  	  ListUrl=RsItem("ListStr")
	  imhstr=RsItem("imhstr")
      imostr=RsItem("imostr")
	  x_tp=RsItem("x_tp")
	  x_tpUrl=RsItem("x_tpUrl")
	  RsItem.close
	  set RsItem=nothing
	  action1="edit"
else
LsString=Request.Form("LsString")
LoString=Request.Form("LoString")
HsString=Request.Form("HsString")
HoString=Request.Form("HoString")
imhstr=Request.Form("imhstr")
imostr=Request.Form("imostr")
x_tp=Request.Form("x_tp")
x_tpUrl=Request.Form("x_tpUrl")
Colleclx=Request.Form("Colleclx")  
end if
If ItemID="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>"
Else
   ItemID=Clng(ItemID)
End If
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 HsString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>链接开始代码不能为空</li>"
End If
If HoString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>链接结束代码不能为空</li>" 
End If
if FoundErr<>True Then
   SqlItem="Select * from Item Where ItemID=" & ItemID 
   Set RsItem=server.CreateObject("adodb.recordset")
   RsItem.Open SqlItem,ConnItem,1,3
  	  RsItem("LsString")=LsString
   	  RsItem("LoString")=LoString
	  RsItem("HsString")=HsString
  	  RsItem("HoString")=HoString
  	  ListUrl=RsItem("ListStr")
	  RsItem("x_tp")=x_tp
	  if x_tp=1 then
	  RsItem("imhstr")=imhstr
      RsItem("imostr")=imostr
	  RsItem("x_tpUrl")=x_tpUrl
	  end if
   RsItem.UpDate
   RsItem.Close
   Set RsItem=Nothing
end if   
case 3
if Action1="add" or Action1="edit"  then
call SaveEdit
end if
If FoundErr<>True And Request.Form("ShowCode")="checkbox" Then
call GetTest()
End if
end select
end sub 
Public sub CollPhoto_Show()
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       
   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()
   If Colleclx=1 Then ErrMsg=ErrMsg & "<meta http-equiv=""refresh"" content=""1;url=Sk_GETArticle.asp"">"
   If Colleclx=2 Then ErrMsg=ErrMsg & "<meta http-equiv=""refresh"" content=""1;url=Sk_GETflash.asp"">"
   If Colleclx=3 Then ErrMsg=ErrMsg & "<meta http-equiv=""refresh"" content=""1;url=Sk_GETphoto.asp"">"
   If Colleclx=5 Then ErrMsg=ErrMsg & "<meta http-equiv=""refresh"" content=""1;url=sk_GetSoft.asp"">"
Else
   If ListEnd=True Then
      ItemNum=ItemNum+1
      ListNum=1
      ErrMsg="<br>" & ItemName & "  项目所有列表采集完成，正在整理数据请稍后..."
  	  If Colleclx=1 Then ErrMsg=ErrMsg & "<meta http-equiv=""refresh"" content=""1;url=Sk_GETArticle.asp"">"
   	  If Colleclx=2 Then ErrMsg=ErrMsg & "<meta http-equiv=""refresh"" content=""1;url=Sk_GETflash.asp"">"
   	  If Colleclx=3 Then ErrMsg=ErrMsg & "<meta http-equiv=""refresh"" content=""1;url=Sk_GETphoto.asp"">"
      If Colleclx=5 Then ErrMsg=ErrMsg & "<meta http-equiv=""refresh"" content=""1;url=sk_GetSoft.asp"">"
   End If
End If

Call TopItem()
  If ItemEnd=True Or ListEnd=True Then
    If ItemEnd<>True Then
	  Call SetCache_His()
    End If
    Call WriteSucced(ErrMsg)
Else
   FoundErr=False
   ErrMsg=""
   Call StartCollection()
   Call FootItem2()
End  If
end sub
Public Sub SaveEdit
Colleclx=Request.Form("Colleclx")
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 Colleclx=5 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
HttpUrlStr=Request.Form("HttpUrlStr")
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

Else
   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
   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 Colleclx=5 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>"
12345

⌨️ 快捷键说明

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