📄 cj_cls.asp
字号:
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,ConnItem,2,3
RsItem("TsString")=TsString
RsItem("ToString")=ToString
RsItem("CsString")=CsString
RsItem("CoString")=CoString
RsItem("photourls")=photourls
RsItem("photourlo")=photourlo
if NewsPaingType<>"" then
RsItem("NewsPaingType")=NewsPaingType
if NewsPaingType=1 then
RsItem("NPsString")=NPsString
RsItem("NPoString")=NPoString
RsItem("NewsUrlPaing_s")=NewsUrlPaing_s
RsItem("NewsUrlPaing_o")=NewsUrlPaing_o
end if
end if
IF Colleclx=2 Then
RsItem("PhotoType_s")=PhotoType_s
RsItem("PhotoType_o")=PhotoType_o
RsItem("PhotoLurl_s")=PhotoLurl_s
RsItem("PhotoLurl_o")=PhotoLurl_o
RsItem("Phototypefy_s")=Phototypefy_s
RsItem("Phototypefy_o")=Phototypefy_o
RsItem("Phototypefyurl_s")=Phototypefyurl_s
RsItem("Phototypefyurl_o")=Phototypefyurl_o
RsItem("Phototypeurl_s")=Phototypeurl_s
RsItem("Phototypeurl_o")=Phototypeurl_o
RsItem("Downlist_s")=Downlist_s'下载地址设置
RsItem("Downlist_o")=Downlist_o
RsItem("DownUrl_s")=DownUrl_s
RsItem("DownUrl_o")=DownUrl_o
End If
RsItem("DateType")=DateType
if Colleclx=3 then
RsItem("Downlist_s")=Downlist_s'下载地址设置
RsItem("Downlist_o")=Downlist_o
RsItem("DownUrl_s")=DownUrl_s
RsItem("DownUrl_o")=DownUrl_o
RsItem("DownNewType")=DownNewType'新窗口打开下载连接
RsItem("DownNewlist_s")=DownNewlist_s
RsItem("DownNewlist_o")=DownNewlist_o
RsItem("DownNewUrl_s")=DownNewUrl_s
RsItem("DownNewUrl_o")=DownNewUrl_o
RsItem("ZdType_001")=ZdType_001'软件大小设置
RsItem("Zds_001")=Zds_001
RsItem("Zdo_001")=Zdo_001
RsItem("ZdType_002")=ZdType_002'软件语言设置
RsItem("Zds_002")=Zds_002
RsItem("Zdo_002")=Zdo_002
RsItem("ZdType_003")=ZdType_003'授权方式设置
RsItem("Zds_003")=Zds_003
RsItem("Zdo_003")=Zdo_003
RsItem("ZdType_004")=ZdType_004'运行环境设置
RsItem("Zds_004")=Zds_004
RsItem("Zdo_004")=Zdo_004
RsItem("ZdType_005")=ZdType_005'演示地址设置
RsItem("Zds_005")=Zds_005
RsItem("Zdo_005")=Zdo_005
RsItem("ZdType_006")=ZdType_006'注册地址设置
RsItem("Zds_006")=Zds_006
RsItem("Zdo_006")=Zdo_006
RsItem("ZdType_007")=ZdType_007'注册地址设置
RsItem("Zds_007")=Zds_007
RsItem("Zdo_007")=Zdo_007
RsItem("LinkUrlYn")= LinkUrlYn
end if
IF Colleclx=4 Then
RsItem("Downlist_s")=Downlist_s'动漫地址设置
RsItem("Downlist_o")=Downlist_o
RsItem("DownUrl_s")=DownUrl_s
RsItem("DownUrl_o")=DownUrl_o
RsItem("Zds_007")=Zds_007
RsItem("DownNewType")=DownNewType'新窗口打开下载连接
RsItem("DownNewlist_s")=DownNewlist_s
RsItem("DownNewlist_o")=DownNewlist_o
RsItem("DownNewUrl_s")=DownNewUrl_s
RsItem("DownNewUrl_o")=DownNewUrl_o
End if
If DateType=1 Then
RsItem("DsString")=DsString
RsItem("DoString")=DoString
End If
RsItem("AuthorType")=AuthorType
If AuthorType=1 Then
RsItem("AsString")=AsString
RsItem("AoString")=AoString
ElseIf AuthorType=2 Then
RsItem("AuthorStr")=AuthorStr
End If
RsItem("CopyFromType")=CopyFromType
If CopyFromType=1 Then
RsItem("FsString")=FsString
RsItem("FoString")=FoString
ElseIf CopyFromType=2 Then
RsItem("CopyFromStr")=CopyFromStr
End If
RsItem("KeyType")=KeyType
If KeyType=1 Then
RsItem("KsString")=KsString
RsItem("KoString")=KoString
ElseIf KeyType=2 Then
RsItem("KeyStr")=KeyStr
End If
RsItem.UpDate
RsItem.Close
Set RsItem=Nothing
End If
End Sub
'=============采集测试============================
Public Sub GetTest()
SqlItem="Select * from Item Where ItemID=" & ItemID
Set RsItem=server.CreateObject("adodb.recordset")
RsItem.Open SqlItem,ConnItem,1,1
If RsItem.Eof And RsItem.Bof Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数错误，找不到该项目</li>"
Else
ListStr=RsItem("ListStr")
LsString=RsItem("LsString")
LoString=RsItem("LoString")
ListPaingType=RsItem("ListPaingType")
LPsString=RsItem("LPsString")
LPoString=RsItem("LPoString")
ListPaingStr2=RsItem("ListPaingStr2")
ListPaingID1=RsItem("ListPaingID1")
ListPaingID2=RsItem("ListPaingID2")
ListPaingStr3=RsItem("ListPaingStr3")
selEncoding=RsItem("selEncoding")
strReplace=RsItem("strReplace")
HsString=RsItem("HsString")
HoString=RsItem("HoString")
x_tp=RsItem("x_tp")
imhstr=RsItem("imhstr")
imostr=RsItem("imostr")
photourls=RsItem("photourls")
photourlo=RsItem("photourlo")
PhotoPaingType=RsItem("PhotoPaingType")
PhotoType_s=RsItem("PhotoType_s")
PhotoType_o=RsItem("PhotoType_o")
PhotoLurl_s=RsItem("PhotoLurl_s")
PhotoLurl_o=RsItem("PhotoLurl_o")
Phototypefy_s=RsItem("Phototypefy_s")
Phototypefy_o=RsItem("Phototypefy_o")
Phototypefyurl_s=RsItem("Phototypefyurl_s")
Phototypefyurl_o=RsItem("Phototypefyurl_o")
Phototypeurl_s=RsItem("Phototypeurl_s")
Phototypeurl_o=RsItem("Phototypeurl_o")
HttpUrlType=RsItem("HttpUrlType")
HttpUrlStr=RsItem("HttpUrlStr")
Colleclx=RsItem("Colleclx")
IF Colleclx=2 then
Downlist_s=RsItem("Downlist_s")'下载地址设置
Downlist_o=RsItem("Downlist_o")
DownUrl_s=RsItem("DownUrl_s")
DownUrl_o=RsItem("DownUrl_o")
End If
If Colleclx=3 then
Downlist_s=RsItem("Downlist_s")'下载地址设置
Downlist_o=RsItem("Downlist_o")
DownUrl_s=RsItem("DownUrl_s")
DownUrl_o=RsItem("DownUrl_o")
DownNewType=RsItem("DownNewType")'新窗口打开下载连接
DownNewlist_s=RsItem("DownNewlist_s")
DownNewlist_o=RsItem("DownNewlist_o")
DownNewUrl_s=RsItem("DownNewUrl_s")
DownNewUrl_o=RsItem("DownNewUrl_o")
ZdType_001=RsItem("ZdType_001")'软件大小设置
Zds_001=RsItem("Zds_001")
Zdo_001=RsItem("Zdo_001")
ZdType_002=RsItem("ZdType_002")'软件语言设置
Zds_002=RsItem("Zds_002")
Zdo_002=RsItem("Zdo_002")
ZdType_003=RsItem("ZdType_003")'授权方式设置
Zds_003=RsItem("Zds_003")
Zdo_003=RsItem("Zdo_003")
ZdType_004=RsItem("ZdType_004")'运行环境设置
Zds_004=RsItem("Zds_004")
Zdo_004=RsItem("Zdo_004")
ZdType_005=RsItem("ZdType_005")'演示地址设置
Zds_005=RsItem("Zds_005")
Zdo_005=RsItem("Zdo_005")
ZdType_006=RsItem("ZdType_006")'注册地址设置
Zds_006=RsItem("Zds_006")
Zdo_006=RsItem("Zdo_006")
ZdType_007=RsItem("ZdType_007")'软件图片设置
Zds_007=RsItem("Zds_007")
Zdo_007=RsItem("Zdo_007")
end if
If Colleclx=4 then
Downlist_s=RsItem("Downlist_s")'动漫地址设置
Downlist_o=RsItem("Downlist_o")
DownUrl_s=RsItem("DownUrl_s")
DownUrl_o=RsItem("DownUrl_o")
Zds_007=RsItem("Zds_007")
DownNewType=RsItem("DownNewType")'新窗口打开下载连接
DownNewlist_s=RsItem("DownNewlist_s")
DownNewlist_o=RsItem("DownNewlist_o")
DownNewUrl_s=RsItem("DownNewUrl_s")
DownNewUrl_o=RsItem("DownNewUrl_o")
End if
TsString=RsItem("TsString")
ToString=RsItem("ToString")
CsString=RsItem("CsString")
CoString=RsItem("CoString")
DateType=RsItem("DateType")
DsString=RsItem("DsString")
DoString=RsItem("DoString")
AuthorType=RsItem("AuthorType")
AsString=RsItem("AsString")
AoString=RsItem("AoString")
AuthorStr=RsItem("AuthorStr")
CopyFromType=RsItem("CopyFromType")
FsString=RsItem("FsString")
FoString=RsItem("FoString")
CopyFromStr=RsItem("CopyFromStr")
KeyType=RsItem("KeyType")
KsString=RsItem("KsString")
KoString=RsItem("KoString")
KeyStr=RsItem("KeyStr")
NewsPaingType=RsItem("NewsPaingType")
NPsString=RsItem("NPsString")
NPoString=RsItem("NPoString")
NewsUrlPaing_s=RsItem("NewsUrlPaing_s")
NewsUrlPaing_o=RsItem("NewsUrlPaing_o")
Script_Iframe=RsItem("Script_Iframe")
Script_Object=RsItem("Script_Object")
Script_Script=RsItem("Script_Script")
Script_Div=RsItem("Script_Div")
Script_Class=RsItem("Script_Class")
Script_Span=RsItem("Script_Span")
Script_Img=RsItem("Script_Img")
Script_Font=RsItem("Script_Font")
Script_A=RsItem("Script_A")
Script_Html=RsItem("Script_Html")
UpDateType=RsItem("UpDateType")
Colleclx=RsItem("Colleclx")
End If
RsItem.Close
Set RsItem=Nothing
If LsString="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>列表开始标记不能为空！</li>"
End If
If LoString="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>列表结束标记不能为空！</li>"
End If
ListPaingType=Clng(ListPaingType)
Select Case ListPaingType
Case 0
Case 1
If ListPaingStr2="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>批量生成字符不能为空</li>"
End If
If isNumeric(ListPaingID1)=False or isNumeric(ListPaingID2)=False Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>批量生成的范围只能是数字</li>"
Else
ListPaingID1=Clng(ListPaingID1)
ListPaingID2=Clng(ListPaingID2)
If ListPaingID1=0 And ListPaingID2=0 Then
FoundErr=True
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 3
IF LPsString="" or LPoString="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>索引分页开始/结束标记不能为空!</li>"
End if
Case Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择列表索引分页类型</li>"
End Select
If HsString="" or HoString="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>链接开始/结束标记不能为空！</li>"
End If
If FoundErr<>True Then
Select Case ListPaingType
Case 0
ListUrl=ListStr
Case 1
ListUrl=Replace(ListPaingStr2,"{$ID}",CStr(ListPaingID1))
Case 2
If Instr(ListPaingStr3,"|")> 0 Then
ListUrl=Left(ListPaingStr3,Instr(ListPaingStr3,"|")-1)
Else
ListUrl=ListPaingStr3
End If
Case 3
ListUrl=ListStr
End Select
End If
If FoundErr<>True Then
ListCode=Skcj.ReplaceTrim(Skcj.GetHttpPage(ListUrl,selEncoding))
If ListCode<>"$False$" Then
ListCode=Skcj.GetBody(ListCode,LsString,LoString,False,False)
If ListCode<>"$False$" Then
NewsArrayCode=Skcj.GetArray(ListCode,HsString,HoString,False,False)
If NewsArrayCode<>"$False$" Then
If Instr(NewsArrayCode,"$Array$")>0 Then
NewsArray=Split(NewsArrayCode,"$Array$")
If HttpUrlType=1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -