📄 cj_cls.asp
字号:
TsString=Arr_Item(30,ItemNumTemp) '标题
ToString=Arr_Item(31,ItemNumTemp)
CsString=Arr_Item(32,ItemNumTemp) '正文
CoString=Arr_Item(33,ItemNumTemp)
DateType=Arr_Item(34,ItemNumTemp) '作者
DsString=Arr_Item(35,ItemNumTemp)
DoString=Arr_Item(36,ItemNumTemp)
AuthorType=Arr_Item(37,ItemNumTemp) '作者
AsString=Arr_Item(38,ItemNumTemp)
AoString=Arr_Item(39,ItemNumTemp)
AuthorStr=Arr_Item(40,ItemNumTemp)
CopyFromType=Arr_Item(41,ItemNumTemp) '来源
FsString=Arr_Item(42,ItemNumTemp)
FoString=Arr_Item(43,ItemNumTemp)
CopyFromStr=Arr_Item(44,ItemNumTemp)
KeyType=Arr_Item(45,ItemNumTemp) '关键词
KsString=Arr_Item(46,ItemNumTemp)
KoString=Arr_Item(47,ItemNumTemp)
KeyStr=Arr_Item(48,ItemNumTemp)
NewsPaingType=Arr_Item(49,ItemNumTemp) '关键词
NPsString=Arr_Item(50,ItemNumTemp)
NPoString=Arr_Item(51,ItemNumTemp)
NewsUrlPaing_s=Arr_Item(52,ItemNumTemp)
NewsUrlPaing_o=Arr_Item(53,ItemNumTemp)
PaginationType=Arr_Item(55,ItemNumTemp)
MaxCharPerPage=Arr_Item(56,ItemNumTemp)
ReadLevel=Arr_Item(57,ItemNumTemp)
Stars=Arr_Item(58,ItemNumTemp)
ReadPoint=Arr_Item(59,ItemNumTemp)
Hits=Arr_Item(60,ItemNumTemp)
UpDateType=Arr_Item(61,ItemNumTemp)
UpDateTime=Arr_Item(62,ItemNumTemp)
IncludePicYn=Arr_Item(63,ItemNumTemp)
DefaultPicYn=Arr_Item(64,ItemNumTemp)
OnTop=Arr_Item(65,ItemNumTemp)
Elite=Arr_Item(66,ItemNumTemp)
Hot=Arr_Item(67,ItemNumTemp)
SkinID=Arr_Item(68,ItemNumTemp)
TemplateID=Arr_Item(69,ItemNumTemp)
Script_Iframe=Arr_Item(70,ItemNumTemp)
Script_Object=Arr_Item(71,ItemNumTemp)
Script_Script=Arr_Item(72,ItemNumTemp)
Script_Div=Arr_Item(73,ItemNumTemp)
Script_Class=Arr_Item(74,ItemNumTemp)
Script_Span=Arr_Item(75,ItemNumTemp)
Script_Img=Arr_Item(76,ItemNumTemp)
Script_Font=Arr_Item(77,ItemNumTemp)
Script_A=Arr_Item(78,ItemNumTemp)
Script_Html=Arr_Item(79,ItemNumTemp)
CollecListNum=Arr_Item(80,ItemNumTemp)
CollecNewsNum=Arr_Item(81,ItemNumTemp)
Passed=Arr_Item(82,ItemNumTemp)
SaveFiles=Arr_Item(83,ItemNumTemp)
CollecOrder=Arr_Item(84,ItemNumTemp)
LinkUrlYn=Arr_Item(85,ItemNumTemp)
InputerType=Arr_Item(86,ItemNumTemp)
Inputer=Arr_Item(87,ItemNumTemp)
EditorType=Arr_Item(88,ItemNumTemp)
Editor=Arr_Item(89,ItemNumTemp)
ShowCommentLink=Arr_Item(90,ItemNumTemp)
Script_Table=Arr_Item(91,ItemNumTemp)
Script_Tr=Arr_Item(92,ItemNumTemp)
Script_Td=Arr_Item(93,ItemNumTemp)
imhstr=Arr_Item(94,ItemNumTemp)
imostr=Arr_Item(95,ItemNumTemp)
photourls=Arr_Item(96,ItemNumTemp)
photourlo=Arr_Item(97,ItemNumTemp)
PhotoPaingType=Arr_Item(98,ItemNumTemp)
PhotoType_s=Arr_Item(99,ItemNumTemp)
PhotoType_o=Arr_Item(100,ItemNumTemp)
PhotoLurl_s=Arr_Item(101,ItemNumTemp)
PhotoLurl_o=Arr_Item(102,ItemNumTemp)
Phototypefy_s=Arr_Item(103,ItemNumTemp)
Phototypefy_o=Arr_Item(104,ItemNumTemp)
Phototypefyurl_s=Arr_Item(105,ItemNumTemp)
Phototypefyurl_o=Arr_Item(106,ItemNumTemp)
Phototypeurl_s=Arr_Item(107,ItemNumTemp)
Phototypeurl_o=Arr_Item(108,ItemNumTemp)
Colleclx=Arr_Item(109,ItemNumTemp)
x_tp=Arr_Item(110,ItemNumTemp)
selEncoding=Arr_Item(111,ItemNumTemp)
SaveFileUrl=Arr_Item(112,ItemNumTemp)
x_tpUrl=Arr_Item(113,ItemNumTemp)
If Colleclx=2 Then
Downlist_s=Arr_Item(114,ItemNumTemp)
Downlist_o=Arr_Item(115,ItemNumTemp)
DownUrl_s=Arr_Item(116,ItemNumTemp)
DownUrl_o=Arr_Item(117,ItemNumTemp)
End If
IF Colleclx=4 then
Downlist_s=Arr_Item(114,ItemNumTemp)
Downlist_o=Arr_Item(115,ItemNumTemp)
DownUrl_s=Arr_Item(116,ItemNumTemp)
DownUrl_o=Arr_Item(117,ItemNumTemp)
DownNewlist_s=Arr_Item(119,ItemNumTemp)
End if
if Colleclx=3 then
Downlist_s=Arr_Item(114,ItemNumTemp)
Downlist_o=Arr_Item(115,ItemNumTemp)
DownUrl_s=Arr_Item(116,ItemNumTemp)
DownUrl_o=Arr_Item(117,ItemNumTemp)
DownNewType=Arr_Item(118,ItemNumTemp)
DownNewlist_s=Arr_Item(119,ItemNumTemp)
DownNewlist_o=Arr_Item(120,ItemNumTemp)
DownNewUrl_s=Arr_Item(121,ItemNumTemp)
DownNewUrl_o=Arr_Item(122,ItemNumTemp)
ZdType_001=Arr_Item(123,ItemNumTemp)
Zds_001=Arr_Item(124,ItemNumTemp)
Zdo_001=Arr_Item(125,ItemNumTemp)
ZdType_002=Arr_Item(126,ItemNumTemp)
Zds_002=Arr_Item(127,ItemNumTemp)
Zdo_002=Arr_Item(128,ItemNumTemp)
ZdType_003=Arr_Item(129,ItemNumTemp)
Zds_003=Arr_Item(130,ItemNumTemp)
Zdo_003=Arr_Item(131,ItemNumTemp)
ZdType_004=Arr_Item(132,ItemNumTemp)
Zds_004=Arr_Item(133,ItemNumTemp)
Zdo_004=Arr_Item(134,ItemNumTemp)
ZdType_005=Arr_Item(135,ItemNumTemp)
Zds_005=Arr_Item(136,ItemNumTemp)
Zdo_005=Arr_Item(137,ItemNumTemp)
ZdType_006=Arr_Item(138,ItemNumTemp)
Zds_006=Arr_Item(139,ItemNumTemp)
Zdo_006=Arr_Item(140,ItemNumTemp)
ZdType_007=Arr_Item(141,ItemNumTemp)
Zds_007=Arr_Item(142,ItemNumTemp)
Zdo_007=Arr_Item(143,ItemNumTemp)
ZdType_008=Arr_Item(144,ItemNumTemp)
Zds_008=Arr_Item(145,ItemNumTemp)
Zdo_008=Arr_Item(146,ItemNumTemp)
End if
Thumb_WaterMark=Arr_Item(147,ItemNumTemp)
Thumbs_Create=Arr_Item(148,ItemNumTemp)
strReplace=Arr_Item(150,ItemNumTemp)
If InputerType=1 Then
Inputer=FpHtmlEnCode(Inputer)
Else
Inputer=session("AdminName")
End If
If EditorType=1 Then
Editor=FpHtmlEnCode(Editor)
Else
Editor=session("AdminName")
End If
If IsObjInstalled("Scripting.FileSystemObject")=False or strChannelDir="" Then
SaveFiles=False
End if
End Sub
Sub StartCollection'开始采集
IF Colleclx <> 0 then
Set Rs = ConnItem.execute("Select top 1 Dir,MaxFileSize,FileExtName,Timeout from SK_Cj where ID="& Colleclx )
Else
Set Rs = ConnItem.execute("Select top 1 Dir,MaxFileSize,FileExtName,Timeout from SK_Cj where ID=1" )
End if
Skcj.CjTimeout=Rs("Timeout")
Skcj.DownExtName=Rs("FileExtName")
Skcj.MaxSize=Rs("MaxFileSize")
Rs.close : Set Rs=Nothing
If NewsSuccesNum >= CollecNewsNum And CollecNewsNum<>0 then
If Itemon="" then
if Collecdate<>"" then
response.write("<script>location.href='sk_Timing.asp?action=GoTiming&Collecdate="& Day(now()) &"';</script>")
Else
Response.Write "<br> 采集完成，正在整理数据请稍后..."
Response.Write "<meta http-equiv=""refresh"" content=""1;url="& Skcj.GetItemConfig("FileName",Colleclx) &""">"
End if
Else
response.write "<script>location.href='Sk_Collection.asp?ItemID="& ItemID &"&ItemNum=1&ListNum=1&NewsSuccesNum=0&NewsFalseNum=0&ImagesNumAll=0&NewsNum_i=0&Itemon="& Itemon &"&Itemok=yes&Collecdate="& Collecdate &"';</script>"
End if
Response.end
End if
If FoundErr<>True then
ListCode=Skcj.ReplaceTrim(Skcj.GetHttpPage(ListUrl,selEncoding))
Call GetListPaing()
If ListCode="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取列表：" & ListUrl & "网页源码时发生错误！</li>"
Else
ListCode=Skcj.GetBody(ListCode,LsString,LoString,False,False)
If ListCode="$False$" Or ListCode="" Then
FoundErr=True
FoundErr_1=True
ErrMsg=ErrMsg & "<br><li>在截取：" & ListUrl & "的"& ErrMsg_lx &"列表时发生错误！</li>"
End If
End If
End If
If FoundErr<>True Then
NewsArrayCode=Skcj.GetArray(ListCode,HsString,HoString,False,False)
If NewsArrayCode="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在分析：" & ListUrl & ""& Skcj.GetItemConfig("CjName",Colleclx) &"列表时发生错误！</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(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=Skcj.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(Skcj.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
Call TopItem2()
CollecNewsAll=0
Arr_i=NewsNum_i
If CollecNewsAll>=CollecNewsNum And CollecNewsNum<>0 then Call Foot_Item
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
If CollecTest=False Then
His_Repeat=CheckRepeat(NewsUrl)
Else
His_Repeat=False
End If
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)
iF SaveFiles=1 then picpath=Skcj.Sk_SaveFile(Colleclx,picpath)
End if
End if
If FoundErr<>True Then
NewsCode=Skcj.ReplaceTrim(skcj.GetHttpPage(NewsUrl,selEncoding))
If NewsCode="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br>在获取：" & NewsUrl & "网页源码时发生错误！"
Title="获取网页源码失败"
End If
End If
If FoundErr<>True Then
Title=Skcj.GetBody(NewsCode,TsString,ToString,False,False)
If Title="$False$" or Title="" then
FoundErr=True
ErrMsg=ErrMsg & "<br>在分析：" & NewsUrl & "的"& Skcj.GetItemConfig("CjName",Colleclx) &"标题时发生错误"
Title="<br>标题分析错误"
End If
If FoundErr<>True Then
if CsString<>"0" or CoString<>"0" then
Content=Skcj.GetBody(NewsCode,CsString,CoString,False,False)
else
Content=""
end if
If Content="$False$" Then
'FoundErr=True
'ErrMsg=ErrMsg & "<br>在分析：" & NewsUrl & "的"& ErrMsg_lx &"正文时发生错误"
Title=Title & "<br>正文分析错误"
End If
End If
If FoundErr<>True Then
If NewsPaingType=1 Then
NewsPaingNext=Skcj.GetBody(NewsCode,NPsString,NPoString,False,False)
If NewsPaingNext<>"$False$" Then
NewsPaingNext_Code=Skcj.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_1("分页采集中... 当前采集第"&I+1&"页<br>")
Response.Flush()
TypeNews_Url=Trim(Skcj.FormatRemoteUrl(TypeArray_Url(i),NewsUrl))
NewsPaingNextCode=Skcj.ReplaceTrim(skcj.GetHttpPage(TypeNews_Url,selEncoding))
'---------------------------图片分页--------------------------------------------
IF Colleclx=2 Then
PicUrls=Skcj.GetBody(NewsPaingNextCode,photourls,photourlo,False,False)
PicUrls=Trim(Skcj.FormatRemoteUrl(PicUrls,NewsUrl))
IF SaveFiles=1 then
PicUrls=Skcj.Sk_SaveFile(Colleclx,PicUrls)
If PicUrls=False then
Response.Write " ----" & PicUrls & " 保存失败<br>"
Else
Response.Write " " & Skcj.GetItemConfig("CjName",Colleclx) & 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
PicUrls=PicUrls_i
End if
'---------------------------图片分页------------------------------------------------
ContentTemp=Skcj.GetBody(NewsPaingNextCode,CsString,CoString,False,False)
If ContentTemp<>"$False$" then Content=Content & "[NextPage]" & ContentTemp
Next
End if
End If
End If
'过滤
Call FilterScript()
Call GetFilters
Call Filters
Title=FpHtmlEnCode(Title)
Content=Ubbcode(Content)
Content=Skcj.ItemReplaceStr(Content,strReplace)'内容替换
End If
End If
If Colleclx=2 And FoundErr<>True then '图片下载
'--------------------------------深度3采集-------------------------------------
IF NewsPaingType=2 Then
i=1
ListTypeCode=Skcj.GetBody(NewsCode,PhotoType_s,PhotoType_o,False,False)
If ListTypeCode<>"$False$" Then
ListTypeUrlCode=Skcj.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=Skcj.GetBody(NewsCode,Phototypefy_s,Phototypefy_o,False,False)
If ListTypeCode_2<>"$False$" Then
ListTypeUrlCode_2=Skcj.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(Skcj.FormatRemoteUrl(TypeUrlArray_2(Arr_ii_2),NewsUrl))
NewsTypeCode=Skcj.ReplaceTrim(skcj.GetHttpPage(TypeNewsUrl,selEncoding))
ListTypeCode=Skcj.GetBody(NewsTypeCode,PhotoType_s,PhotoType_o,False,False)
If ListTypeCode<>"$False$" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -