📄 admin_collectionfast.asp
字号:
ErrMsg=ErrMsg & "<br><li>在获取列表：" & ListUrl & "网页源码时发生错误！</li>"
Else
ListCode=CGet.GetBody(ListCode,LsString,LoString,False,False)
If ListCode="$False$" Or ListCode="" Then
FoundErr=True
FoundErr_1=True
ErrMsg=ErrMsg & "<br><li>在截取：" & ListUrl & "的"& CGet.GetItemConfig("CjName",ModuleID) &"列表时发生错误！</li>"
End If
End If
End If
If FoundErr<>True Then
NewsArrayCode=CGet.GetArray(ListCode,HsString,HoString,False,False)
If NewsArrayCode="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在分析：" & ListUrl & ""& CGet.GetItemConfig("CjName",ModuleID) &"列表时发生错误！</li>"
Else
NewsArray=Split(NewsArrayCode,"$Array$")
For Arr_i=0 to Ubound(NewsArray)
If HttpUrlType=1 Then
NewsArray(Arr_i)=Trim(Replace(HttpUrlStr,"{$ID}",NewsArray(Arr_i)))
Else
NewsArray(Arr_i)=Trim(CGet.FormatRemoteUrl(NewsArray(Arr_i),ListUrl))
End If
NewsArray(Arr_i)=CheckUrl(NewsArray(Arr_i))
Next
If CollecOrder=1 Then
For Arr_i=0 to Fix(Ubound(NewsArray)/2)
OrderTemp=NewsArray(Arr_i)
NewsArray(Arr_i)=NewsArray(Ubound(NewsArray)-Arr_i)
NewsArray(Ubound(NewsArray)-Arr_i)=OrderTemp
Next
End If
End If
End If
If FoundErr<>True Then
If x_tp=1 then
NewsimageCode=CGet.GetArray(ListCode,imhstr,imostr,False,False)
If NewsimageCode="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在分析：" & ListUrl & "缩略图列表时发生错误！</li>"
Else
Newsimage=Split(NewsimageCode,"$Array$")
For Arr_i=0 to Ubound(Newsimage)
If HttpUrlType=1 Then
Newsimage(Arr_i)=Trim(Replace(HttpUrlStr,"{$ID}",Newsimage(Arr_i)))
Else
Newsimage(Arr_i)=Trim(CGet.FormatRemoteUrl(Newsimage(Arr_i),ListUrl))
End If
if x_tpUrl<>"" then Newsimage(Arr_i)= x_tpUrl & Newsimage(Arr_i)
Newsimage(Arr_i)=CheckUrl(Newsimage(Arr_i))
Next
If CollecOrder=True Then
For Arr_i=0 to Fix(Ubound(Newsimage)/2)
OrderTemp=Newsimage(Arr_i)
Newsimage(Arr_i)=Newsimage(Ubound(Newsimage)-Arr_i)
Newsimage(Ubound(Newsimage)-Arr_i)=OrderTemp
Next
End If
End If
End If
End if
If FoundErr<>True Then
dim PicUrls_i
TopItem2()
CollecNewsAll=0
For Arr_i=0 to Ubound(NewsArray)
'Arr_i=NewsNum_i
If CollecNewsAll>=CollecNewsNum And CollecNewsNum<>0 then Exit For'限条数
CollecNewsAll=CollecNewsAll+1
UploadFiles=""
DefaultPicUrl=""
IncludePic=0
ImagesNum=0
NewsCode=""
FoundErr=False
ErrMsg=""
His_Repeat=False
NewsUrl=NewsArray(Arr_i)
Title=""
PaingNum=1
If Response.IsClientConnected Then
Response.Flush
Else
Response.End
End If
His_Repeat=CGet.CheckRepeat(NewsUrl)
If His_Repeat=True Then
FoundErr=True
End If
If FoundErr<>True then
If x_tp=1 then
On Error Resume Next
picpath=Newsimage(arr_i)
picpathTemp=picpath
iF SaveFiles=1 then picpath=CGet.SaveFile(ModuleID,picpath,SaveFileUrl)
if picpath=False Then picpath=picpathTemp
End if
End if
If FoundErr<>True Then
NewsCode=CGet.ReplaceTrim(CGet.GetHttpPage(NewsUrl,Encoding))
If NewsCode="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br>在获取：" & NewsUrl & "网页源码时发生错误！"
Title="获取网页源码失败"
End If
End If
If FoundErr<>True Then
Title=CGet.GetBody(NewsCode,TsString,ToString,False,False)
If Title="$False$" or Title="" then
FoundErr=True
ErrMsg=ErrMsg & "<br>在分析：" & NewsUrl & "的"& CGet.GetItemConfig("CjName",ModuleID) &"标题时发生错误<br>"
Title="标题分析错误"
End If
If FoundErr<>True Then
if CsString<>"0" or CoString<>"0" then
Content=CGet.GetBody(NewsCode,CsString,CoString,False,False)
else
Content=""
end if
If Content="$False$" Then
if ModuleID=1 Then
FoundErr=True
ErrMsg=ErrMsg & "<br>在分析：" & NewsUrl & "的"& CGet.GetItemConfig("CjName",ModuleID) &"正文时发生错误"
else
Content="暂无简介"
end if
End If
End If
If FoundErr<>True Then
If NewsPaingType=1 Then
NewsPaingNext=CGet.GetBody(NewsCode,NPsString,NPoString,False,False)
If NewsPaingNext<>"$False$" Then
NewsPaingNext_Code=CGet.GetArray(NewsPaingNext,NewsUrlPaing_s,NewsUrlPaing_o,False,False)
TypeArray_Url=Split( NewsPaingNext_Code,"$Array$")
if Ubound(TypeArray_Url)<>0 Then
For i=0 to Ubound(TypeArray_Url)
Call Showmsg("分页采集中... 当前采集第"&I+1&"页<br>")
Response.Flush()
TypeNews_Url=Trim(CGet.FormatRemoteUrl(TypeArray_Url(i),NewsUrl))
NewsPaingNextCode=CGet.ReplaceTrim(CGet.GetHttpPage(TypeNews_Url,Encoding))
'---------------------------图片分页--------------------------------------------
IF ModuleID=3 Then
PicUrls=CGet.GetBody(NewsPaingNextCode,photourls,photourlo,False,False)
if PicUrls<>"$False$" Then
PicUrls=Trim(CGet.FormatRemoteUrl(PicUrls,NewsUrl))
IF SaveFiles=1 then
PicUrlsTemp=PicUrls
PicUrls=CGet.SaveFile(ModuleID,PicUrls,SaveFileUrl)
If PicUrls=False then
PicUrls=PicUrlsTemp
Response.Write " ----" & PicUrls & " 保存失败<br>"
Else
Response.Write " " & CGet.GetItemConfig("CjName",ModuleID) & I &"--" & PicUrls & " 保存成功<br>"
End if
Response.Flush()
End IF
if PicUrls<>False then
If i=0 then
PicUrls_i="图片地址1|" & PicUrls
Else
PicUrls_i= PicUrls_i & "@@@图片地址" & i & "|" & PicUrls
End if
End if
else
Call Showmsg("第"&I+1&"页图片链接获取失败<br>")
end if
PicUrls=PicUrls_i
End if
'---------------------------图片分页------------------------------------------------
ContentTemp=CGet.GetBody(NewsPaingNextCode,CsString,CoString,False,False)
If ContentTemp<>"$False$" then Content=Content & "[NextPage]" & ContentTemp
Next
End if
End If
End If
'过滤
Filterscript()
GetFilters
Filters
Title=FpHtmlEnCode(Title)
Content=Ubbcode(Content)
Content=CGet.ItemReplaceStr(Content,strReplace)'内容替换
End If
End If
If ModuleID=2 And FoundErr<>True then '下载
dim DownUrls_i
If Downlist_s="" or Downlist_o="" or DownUrl_s="" or DownUrl_o="" then'下载地址设置
FoundErr=True
ErrMsg=ErrMsg & "<br><li>下载地址设置不能为空</li>"
Else
DownUrls=CGet.GetBody(NewsCode,Downlist_s,Downlist_o,False,False)
If DownUrls<>"$False$" then
IF LinkUrlYn=1 then
DownUrls=CGet.GetArray(DownUrls,DownUrl_s,DownUrl_o,False,False)
else
DownUrls=CGet.GetBody(DownUrls,DownUrl_s,DownUrl_o,False,False)
end if
IF DownUrls<>"$False$" then
if LinkUrlYn=1 then
i=1
TypeUrlArray=Split(DownUrls,"$Array$")
For Arr_ii=0 to Ubound(TypeUrlArray)
DownUrls=Trim(CGet.FormatRemoteUrl(TypeUrlArray(Arr_ii),NewsUrl))
DownurlsTemp=Downurls
If Savefiles=1 Then
Downurls=CGet.savefile(ModuleID,Downurls,SaveFileUrl)
If Downurls=False Then
Downurls=DownurlsTemp
Response.write " ----" & Downurls & " 保存失败<br>"
Else
Response.write " " & CGet.Getitemconfig("cjName",ModuleID) & I &"--" & Downurls & " 保存成功<br>"
End If
Response.flush()
End If
If arr_ii=0 then
DownUrls_i="下载地址1|" & DownUrls
i=i+1
Else
DownUrls_i= DownUrls_i & "@@@下载地址" & i & "|" & DownUrls
i=i+1
End if
Next
DownUrls=DownUrls_i
Else
DownUrls=Trim(CGet.FormatRemoteUrl(DownUrls,NewsUrl))
If Savefiles=1 and DownNewType<>1 Then
DownurlsTemp=Downurls
Downurls=CGet.savefile(ModuleID,Downurls,SaveFileUrl)
If Downurls=False Then
Downurls=DownurlsTemp
Response.write " ----" & Downurls & " 保存失败<br>"
Else
Response.write " " & CGet.Getitemconfig("cjName",ModuleID) & I &"--" & Downurls & " 保存成功<br>"
End If
Response.flush()
End If
DownUrls="下载地址1|" & DownUrls
End if
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取:" & NewsUrl & "下载地址链接源码时发生错误。</li>"
End if
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取:" & NewsUrl & "下载地址列表源码时发生错误。</li>"
End if
End if
If DownNewType=1 then'新窗口打开下载连接
If DownNewlist_s<>"" or DownNewlist_o<>"" or DownNewUrl_s<>"" or DownNewUrl_o<>"" then
DownUrls=Replace(DownUrls,"下载地址1|","")
DownUrls=CGet.ReplaceTrim(CGet.GetHttpPage(DownUrls,Encoding))
DownUrls=CGet.GetBody(DownUrls,DownNewlist_s,DownNewlist_o,False,False)
If DownUrls<>"$False$" then
DownUrls=CGet.GetArray(DownUrls,DownNewUrl_s,DownNewUrl_o,False,False)
IF DownUrls<>"$False$" then
i=1
TypeUrlArray=Split(DownUrls,"$Array$")
For Arr_ii=0 to Ubound(TypeUrlArray)
DownUrls=Trim(CGet.FormatRemoteUrl(TypeUrlArray(Arr_ii),NewsUrl))
DownurlsTemp=Downurls
If Savefiles=1 Then
Downurls=CGet.savefile(ModuleID,Downurls,SaveFileUrl)
If Downurls=False Then
Downurls=DownurlsTemp
Response.write " ----" & Downurls & " 保存失败<br>"
Else
Response.write " " & CGet.Getitemconfig("cjName",ModuleID) & I &"--" & Downurls & " 保存成功<br>"
End If
Response.flush()
End If
If arr_ii=0 then
DownUrls_i="下载地址1|" & DownUrls
i=i+1
Else
DownUrls_i= DownUrls_i & "@@@下载地址" & i & "|" & DownUrls
i=i+1
End if
Next
DownUrls=DownUrls_i
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取:" & NewsUrl & "(新窗口)下载地址列表源码时发生错误</li>"
End if
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取:" & NewsUrl & "(新窗口)下载地址列表源码时发生错误</li>"
End if
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>下载地址设置不能为空</li>"
End if
End if
If ZdType_001=0 then'软件大小设置
DownSize=""
Else
If Zds_001="0" and Zdo_001<>"" then
DownSize=Zdo_001
Else
DownSize=FpHtmlEncode(CGet.GetBody(NewsCode,Zds_001,Zdo_001,False,False))
End If
End If
If ZdType_002=0 then'软件语言设置
SoftLanguage=""
Else
If Zds_002="0" and Zdo_002<>"" then
SoftLanguage=Zdo_002
Else
SoftLanguage=FpHtmlEncode(CGet.GetBody(NewsCode,Zds_002,Zdo_002,False,False))
End If
End If
If ZdType_003=0 then'授权方式设置
CopyrightType=""
Else
If Zds_003="0" and Zdo_003<>"" then
CopyrightType=Zdo_003
Else
CopyrightType=FpHtmlEncode(CGet.GetBody(NewsCode,Zds_003,Zdo_003,False,False))
End If
End If
If ZdType_004=0 then'运行环境设置
OperatingSystem=""
Else
If Zds_004="0" and Zdo_004<>"" then
OperatingSystem=Zdo_004
Else
OperatingSystem=FpHtmlEncode(CGet.GetBody(NewsCode,Zds_004,Zdo_004,False,False))
End If
End If
If ZdType_005=0 then'演示地址设置
DemoUrl=""
Else
If Zds_005="0" and Zdo_005<>"" then
DemoUrl=Zdo_005
Else
DemoUrl=FpHtmlEncode(CGet.GetBody(NewsCode,Zds_005,Zdo_005,False,False))
End If
End If
If ZdType_006=0 then'注册地址设置
AuthorHomepage=""
Else
If Zds_006="0" and Zdo_006<>"" then
AuthorHomepage=Zdo_006
Else
AuthorHomepage=FpHtmlEncode(CGet.GetBody(NewsCode,Zds_006,Zdo_006,False,False))
End If
End If
If ZdType_007=0 then'软件图片设置
PhotoUrl=""
Else
If Zds_007="0" and Zdo_007<>"" then
PhotoUrl=Zdo_007
Else
PhotoUrl=CGet.GetBody(NewsCode,Zds_007,Zdo_007,False,False)
PhotoUrl=Trim(CGet.FormatRemoteUrl(PhotoUrl,NewsUrl))
End If
End If
End if
If ModuleID=3 And FoundErr<>True then '图片下载
'--------------------------------采集-------------------------------------
IF NewsPaingType=2 Then
i=1
ListTypeCode=CGet.GetBody(NewsCode,PhotoType_s,PhotoType_o,False,False)
If ListTypeCode<>"$False$" Then
ListTypeUrlCode=CGet.GetArray(ListTypeCode,PhotoLurl_s,PhotoLurl_o,False,False)
If Phototypefy_s<>"0" AND Phototypefy_o<>"0" AND Phototypefyurl_s<>"0" AND Phototypefyurl_o<>"0" Then
ListTypeCode_2=CGet.GetBody(NewsCode,Phototypefy_s,Phototypefy_o,False,False)
If ListTypeCode_2<>"$False$" Then
ListTypeUrlCode_2=CGet.GetArray(ListTypeCode_2,Phototypefyurl_s,Phototypefyurl_o,False,False)
TypeUrlArray_2=Split(ListTypeUrlCode_2,"$Array$")
For Arr_ii_2=0 to Ubound(TypeUrlArray_2)
TypeNewsUrl=Trim(CGet.FormatRemoteUrl(TypeUrlArray_2(Arr_ii_2),NewsUrl))
NewsTypeCode=CGet.ReplaceTrim(CGet.GetHttpPage(TypeNewsUrl,Encoding))
ListTypeCode=CGet.GetBody(NewsTypeCode,PhotoType_s,PhotoType_o,False,False)
If ListTypeCode<>"$False$" Then
ListTypeUrlCode=CGet.GetArray(ListTypeCode,PhotoLurl_s,PhotoLurl_o,False,False)
TypeUrlArray=Split(ListTypeUrlCode,"$Array$")
For Arr_ii=0 to Ubound(TypeUrlArray)
TypeNewsUrl=Trim(CGet.FormatRemoteUrl(TypeUrlArray(Arr_ii),NewsUrl))
If TypeNewsUrl<>"$False$" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -