📄 cj_cls.asp
字号:
<%
'================================================================================================
' 软件名称：清风信息自动采集生成系统
' 当前版本：CJ 1.0
' 更新日期：2008-7-18
' 程序版权：龙心数据
' 程序开发：龙心数据开发组
' 演示站点：http://cj.iising.com
' 官方网站：http://www.iising.com QQ：24387481 电话：13719316070
' 郑重声明:
' ①、没有版权,你爱抄抄,爱搬搬,偶看不见!
' ②、不要用黑与白来衡量你我之间的距离,更不要让生活磨灭我们的个性！
' ③、欢迎定做各种信息采集功能系统。
'================================================================================================
Dim SKThumb
Set SKThumb=New Thumb
Dim sk
Set sk = New SK_cj
'-----------整合版调用----------------
'Private SKThumb : Set SKThumb =New Thumb
'Private KSCMS : Set KSCMS=New CommonCls
'--------------------------------------
Class SK_cj
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
ElseIf ListPaingType=3 Then
If ListNum=1 Then
ListUrl=ListStr
ListCode=ListStr
application.Lock()
application("IPQ_SS")=ListUrl
application.UnLock()
Else
ListUrl=application("IPQ_SS")
ListCode=SKcj.GetHttpPage(ListUrl,"GB2312")
ListCode=SKcj.GetBody(ListCode,LPsString,LPoString,False,False)
End if
If ListCode<>"$False$" or ListCode<>"" Then
ListCode=Trim(Skcj.FormatRemoteUrl(ListCode,ListStr))
ListUrl=ListCode
application.Lock()
application("IPQ_SS")=ListUrl
application.UnLock()
Else
ListEnd=True
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()
ErrMsg=ErrMsg & "<meta http-equiv=""refresh"" content=""1;url="& Skcj.GetItemConfig("FileName",Colleclx) &""">"
Else
If ListEnd=True Then
ItemNum=ItemNum+1
ListNum=1
ErrMsg="<br>" & ItemName & " 项目所有列表采集完成，正在整理数据请稍后..."
ErrMsg=ErrMsg & "<meta http-equiv=""refresh"" content=""1;url="& Skcj.GetItemConfig("FileName",Colleclx) &""">"
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
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=2 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")
End If
IF Colleclx=3 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
IF Colleclx=4 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")
Zds_007=Request.Form("Zds_007")'重定地址
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")
End if
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
ElseIf NewsPaingType=2 Then
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=3 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>"
Else
CopyFromType=Clng(CopyFromType)
If CopyFromType=0 Then
ElseIf CopyFromType=1 Then
If FsString="" or FoString="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请将来源开始/结束标记填写完整！</li>"
End If
ElseIf CopyFromType=2 Then
If CopyFromStr="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请指定来源</li>"
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数错误，请从有效链接进入</li>"
End If
End If
If KeyType="" Then
FoundErr=True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -