📄 cj_cls.asp
字号:
If NewsPaingType=1 Then
NewsPaingNext=GetPaing(NewsCode,NPsString,NPoString,False,False)
If NewsPaingNext<>"$False$" Then
NewsPaingNext_Code=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)
TypeNews_Url=Trim(DefiniteUrl(TypeArray_Url(i),NewsUrl))
NewsPaingNextCode=GetHttpPage(TypeNews_Url,"GB2312")
ContentTemp=GetBody(NewsPaingNextCode,CsString,CoString,False,False)
Content=Content & "{$News_Paing_Next}" & ContentTemp
Next
End if
End If
End If
If PhotoPaingType=1 Then
ListTypeCode=GetBody(NewsCode,PhotoType_s,PhotoType_o,False,False)
If ListTypeCode<>"$False$" Then
ListTypeUrlCode=GetArray(ListTypeCode,PhotoLurl_s,PhotoLurl_o,False,False)
If ListTypeUrlCode<>"$False$" and Instr(NewsArrayCode,"$Array$")>0 Then
TypeUrlArray=Split(ListTypeUrlCode,"$Array$")
TypeNewsUrl=Trim(DefiniteUrl(TypeUrlArray(0),NewsUrl))
if TypeNewsUrl<>"$False$" then
if Phototypeurl_s<>"0" or Phototypeurl_o<>"0" then
NewsTypeCode=GetHttpPage(TypeNewsUrl,"GB2312")
PicUrls=GetBody(NewsTypeCode,Phototypeurl_s,Phototypeurl_o,False,False)
if HttpUrlStr<>"" then
PicUrls=Trim(DefiniteUrl(PicUrls,HttpUrlStr))
else
PicUrls=Trim(DefiniteUrl(PicUrls,TypeNewsUrl))
end if
if HttpUrlStr<>"" then PicUrls=HttpUrlStr & PicUrls'重定
else
PicUrls=TypeNewsUrl
end if
end if
else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取:" & NewsUrl & "2级分类链接源码时发生错误。</li>"
end if
else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取:" & NewsUrl & "2级分类列表源码时发生错误。</li>"
End if
else
PicUrls=GetBody(NewsCode,photourls,photourlo,False,False)
PicUrls=Trim(DefiniteUrl(PicUrls,NewsUrl))
if HttpUrlStr<>"" then PicUrls=HttpUrlStr & PicUrls
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>"
Else
DownUrls=GetBody(NewsCode,Downlist_s,Downlist_o,False,False)
If DownUrls<>"$False$" then
DownUrls=GetBody(DownUrls,DownUrl_s,DownUrl_o,False,False)
IF DownUrls<>"$False$" then
DownUrls=Trim(DefiniteUrl(DownUrls,NewsUrl))
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=GetHttpPage(DownUrls,"GB2312")
DownUrls=GetBody(DownUrls,DownNewlist_s,DownNewlist_o,False,False)
If DownUrls<>"$False$" then
DownUrls=GetBody(DownUrls,DownNewUrl_s,DownNewUrl_o,False,False)
IF DownUrls<>"$False$" then
DownUrls=Trim(DefiniteUrl(DownUrls,NewsUrl))
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=GetBody(NewsCode,Zds_001,Zdo_001,False,False)
End If
End If
If ZdType_002=0 then'软件语言设置
DownYY=""
Else
If Zds_002="0" and Zdo_002<>"" then
DownYY=Zdo_002
Else
DownYY=GetBody(NewsCode,Zds_002,Zdo_002,False,False)
End If
End If
If ZdType_003=0 then'授权方式设置
DownSQ=""
Else
If Zds_003="0" and Zdo_003<>"" then
DownSQ=Zdo_003
Else
DownSQ=GetBody(NewsCode,Zds_003,Zdo_003,False,False)
End If
End If
If ZdType_004=0 then'运行环境设置
DownPT=""
Else
If Zds_004="0" and Zdo_004<>"" then
DownPT=Zdo_004
Else
DownPT=GetBody(NewsCode,Zds_004,Zdo_004,False,False)
End If
End If
If ZdType_005=0 then'演示地址设置
YSDZ=""
Else
If Zds_005="0" and Zdo_005<>"" then
YSDZ=Zdo_005
Else
YSDZ=GetBody(NewsCode,Zds_005,Zdo_005,False,False)
End If
End If
If ZdType_006=0 then'注册地址设置
ZCDZ=""
Else
If Zds_006="0" and Zdo_006<>"" then
ZCDZ=Zdo_006
Else
ZCDZ=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=GetBody(NewsCode,Zds_007,Zdo_007,False,False)
PhotoUrl=Trim(DefiniteUrl(PhotoUrl,NewsUrl))
End If
End If
End if
If UpDateType=0 Then
UpDateTime=Now()
ElseIf UpDateType=1 Then
If DateType=0 then
UpDateTime=Now()
Else
UpDateTime=GetBody(NewsCode,DsString,DoString,False,False)
UpDateTime=FpHtmlEncode(UpDateTime)
If IsDate(UpDateTime)=True Then
UpDateTime=CDate(UpDateTime)
Else
UpDateTime=Now()
End If
End If
ElseIf UpDateType=2 Then
Else
UpDateTime=Now()
End If
If AuthorType=1 Then
Author=GetBody(NewsCode,AsString,AoString,False,False)
ElseIf AuthorType=2 Then
Author=AuthorStr
End If
If Author="$False$" Or Trim(Author)="" Then
Author="佚名"
Else
Author=FpHtmlEnCode(Author)
End If
If CopyFromType=1 Then
CopyFrom=GetBody(NewsCode,FsString,FoString,False,False)
ElseIf CopyFromType=2 Then
CopyFrom=CopyFromStr
End If
If CopyFrom="$False$" Or Trim(CopyFrom)="" Then
CopyFrom="不详"
Else
CopyFrom=FpHtmlEnCode(CopyFrom)
End If
If KeyType=0 Then
Key=Title
Key=CreateKeyWord(Key,2)
ElseIf KeyType=1 Then
Key=GetBody(NewsCode,KsString,KoString,False,False)
Key=FpHtmlEnCode(Key)
Key=CreateKeyWord(Key,2)
ElseIf KeyType=2 Then
Key=FpHtmlEnCode(Key)
End If
If Key="$False$" Or Trim(Key)="" Then
Key=KeyStr
End If
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取源码时发生错误："& NewsUrl &"</li>"
End If
End If
if PicUrls="$False$" then
PicUrls=""
end if
If FoundErr<>True Then
Call GetFilters
Call Filters
'Content=ReplaceSaveRemoteFile(Content,strInstallDir,strChannelDir,False,NewsUrl)
End If
if FoundErr<>True then
set RsItem=ConnItem.execute("update Item set Flag=True where ItemID="& ItemID)
end if
End Sub
Sub SetItems()
Dim ItemNumTemp
ItemNumTemp=ItemNum-1
ItemID=Arr_Item(0,ItemNumTemp)
ItemName=Arr_Item(1,ItemNumTemp)
ChannelID=Arr_Item(2,ItemNumTemp)'频道ID
strChannelDir=Arr_Item(3,ItemNumTemp)'频道目录
ClassID=Arr_Item(4,ItemNumTemp) '栏目
SpecialID=Arr_Item(5,ItemNumTemp) '专题
LoginType=Arr_Item(9,ItemNumTemp)
LoginUrl=Arr_Item(10,ItemNumTemp) '登录
LoginPostUrl=Arr_Item(11,ItemNumTemp)
LoginUser=Arr_Item(12,ItemNumTemp)
LoginPass=Arr_Item(13,ItemNumTemp)
LoginFalse=Arr_Item(14,ItemNumTemp)
ListStr=Arr_Item(15,ItemNumTemp) '列表地址
LsString=Arr_Item(16,ItemNumTemp) '列表
LoString=Arr_Item(17,ItemNumTemp)
ListPaingType=Arr_Item(18,ItemNumTemp)
LPsString=Arr_Item(19,ItemNumTemp)
LPoString=Arr_Item(20,ItemNumTemp)
ListPaingStr1=Arr_Item(21,ItemNumTemp)
ListPaingStr2=Arr_Item(22,ItemNumTemp)
ListPaingID1=Arr_Item(23,ItemNumTemp)
ListPaingID2=Arr_Item(24,ItemNumTemp)
ListPaingStr3=Arr_Item(25,ItemNumTemp)
HsString=Arr_Item(26,ItemNumTemp)
HoString=Arr_Item(27,ItemNumTemp)
HttpUrlType=Arr_Item(28,ItemNumTemp)
HttpUrlStr=Arr_Item(29,ItemNumTemp)
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=5 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)
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
CAll Collec_lx
End Sub
Sub StartCollection
If NewsSuccesNum >= CollecNewsNum And CollecNewsNum<>0 then
Response.Write "采集完成，正在整理数据请稍后..."
If Colleclx=1 Then Response.Write "<meta http-equiv=""refresh"" content=""1;url=Sk_GETArticle.asp"">"
If Colleclx=2 Then Response.Write "<meta http-equiv=""refresh"" content=""1;url=Sk_GETflash.asp"">"
If Colleclx=3 Then Response.Write "<meta http-equiv=""refresh"" content=""1;url=Sk_GETphoto.asp"">"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -