admin_collectionmanage.asp

个人网站比较简短

                    Else
                        ListPaingID1 = PE_CLng(ListPaingID1)
                        ListPaingID2 = PE_CLng(ListPaingID2)
                        ListPaingID1 = PE_CLng(ListPaingID1)
                        ListPaingID2 = PE_CLng(ListPaingID2)
                        If ListPaingID1 = 0 And ListPaingID2 = 0 Then
                            FoundErr = True
                            ErrMsg = ErrMsg & "<li>批量生成范围设置不正确</li>"
                        End If
                    End If
                Case 3 '手工分页
                    If ListPaingStr3 = "" Then
                        FoundErr = True
                        ErrMsg = ErrMsg & "<li>列表索引分页不能为空,请手动添加</li>"
                    Else
                        ListPaingStr3 = ListPaingStr3 'Replace(ListPaingStr3, Chr(13), vbCrLf)
                    End If
                Case Else
                    FoundErr = True
                    ErrMsg = ErrMsg & "<li>请选择列表索引分页类型</li>"
            End Select
        End If

        If HsString = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>链接开始标记不能为空</li>"
        End If

        If HoString = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>链接结束标记不能为空</li>"
        End If

        If HttpUrlType = 1 Then
            If HttpUrlStr = "" Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>请设置重定向URL</li>"
            Else
                If Len(HttpUrlStr) < 15 Then
                    FoundErr = True
                    ErrMsg = ErrMsg & "<li>绝对链接地址设置不正确(至少15个字符)</li>"
                End If
            End If
        End If

        If ThumbnailType = 1 Then
            If ThsString = "" Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>列表缩略图开始标记不能为空</li>"
            End If

            If ThoString = "" Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>列表缩略图结束标记不能为空</li>"
            End If
        End If

        If FoundErr <> True Then
            sql = "Select * from PE_Item Where ItemID=" & ItemID
            Set rsItem = Server.CreateObject("adodb.recordset")
            rsItem.Open sql, Conn, 1, 3

            '保存列表
            rsItem("LsString") = LsString
            rsItem("LoString") = LoString
            rsItem("ListPaingType") = ListPaingType
            Select Case ListPaingType
                Case 0, 1
                    rsItem("ListStr") = ListStr
                    If ListPaingType = 1 Then
                        rsItem("LPsString") = LPsString
                        rsItem("LPoString") = LPoString
                        rsItem("ListPaingStr1") = Trim(ListPaingStr1)
                    End If
                Case 2
                    rsItem("ListPaingStr2") = ListPaingStr2
                    rsItem("ListPaingID1") = ListPaingID1
                    rsItem("ListPaingID2") = ListPaingID2
                Case 3
                    rsItem("ListPaingStr3") = ListPaingStr3
            End Select
            '保存链接
            rsItem("HsString") = HsString
            rsItem("HoString") = HoString
            rsItem("HttpUrlType") = HttpUrlType
            '保存列表缩略图
            rsItem("ThumbnailType") = ThumbnailType
            rsItem("ThsString") = ThsString
            rsItem("ThoString") = ThoString
            If HttpUrlType = 1 Then
                rsItem("HttpUrlStr") = HttpUrlStr
            End If
            rsItem.Update
            rsItem.Close
            Set rsItem = Nothing
        End If
    End If

    If FoundErr = True Then
        Call WriteErrMsg(ErrMsg, ComeUrl)
        Exit Sub
    End If

    sql = "Select * from PE_Item Where ItemID=" & ItemID
    Set rsItem = Server.CreateObject("adodb.recordset")
    rsItem.Open sql, Conn, 1, 1

    If rsItem.EOF And rsItem.BOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的采集项目</li>"
    Else
        WebUrl = rsItem("WebUrl")
        
        LoginType = rsItem("LoginType")
        LoginUrl = rsItem("LoginUrl")
        LoginPostUrl = rsItem("LoginPostUrl")
        LoginUser = rsItem("LoginUser")
        LoginPass = rsItem("LoginPass")
        LoginFalse = rsItem("LoginFalse")
      
        ListStr = rsItem("ListStr")
        LsString = rsItem("LsString")
        LoString = rsItem("LoString")
        ListPaingType = rsItem("ListPaingType")
        LPsString = rsItem("LPsString")
        LPoString = rsItem("LPoString")
        ListPaingStr1 = rsItem("ListPaingStr1")
        ListPaingStr2 = rsItem("ListPaingStr2")
        ListPaingID1 = rsItem("ListPaingID1")
        ListPaingID2 = rsItem("ListPaingID2")
        ListPaingStr3 = rsItem("ListPaingStr3")
        HsString = rsItem("HsString")
        HoString = rsItem("HoString")
        HttpUrlType = rsItem("HttpUrlType")
        HttpUrlStr = rsItem("HttpUrlStr")

        ThumbnailType = rsItem("ThumbnailType")
        ThsString = rsItem("ThsString")
        ThoString = rsItem("ThoString")

        TsString = rsItem("TsString")
        ToString = rsItem("ToString")
        CsString = rsItem("CsString")
        CoString = rsItem("CoString")
        AuthorType = rsItem("AuthorType")
        AsString = rsItem("AsString")
        AoString = rsItem("AoString")
        AuthorStr = rsItem("AuthorStr")
        DateType = PE_CLng(rsItem("DateType"))
        DsString = rsItem("DsString")

        DoString = rsItem("DoString")
    
        CopyFromType = rsItem("CopyFromType")
        FsString = rsItem("FsString")
        FoString = rsItem("FoString")
        CopyFromStr = rsItem("CopyFromStr")
        
        KeyType = rsItem("KeyType")
        KsString = rsItem("KsString")
        KoString = rsItem("KoString")
        KeyStr = rsItem("KeyStr")
        KeyScatterNum = rsItem("KeyScatterNum")
        
        NewsPaingType = rsItem("NewsPaingType")
        NPsString = rsItem("NPsString")
        NPoString = rsItem("NPoString")
        NewsPaingStr1 = rsItem("NewsPaingStr1")
        NewsPaingStr2 = rsItem("NewsPaingStr2")

        PsString = rsItem("PsString")
        PoString = rsItem("PoString")
        PhsString = rsItem("PhsString")
        PhoString = rsItem("PhoString")

        IsString = rsItem("IsString")
        IoString = rsItem("IoString")
        IntroType = PE_CLng(rsItem("IntroType"))
        IntroStr = rsItem("IntroStr")
        IntroNum = rsItem("IntroNum")
        IsField = rsItem("IsField")
        Field = rsItem("Field")
    End If

    rsItem.Close
    Set rsItem = Nothing
        
    If LsString = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>列表开始标记不能为空！无法继续,请返回上一步进行设置！</li>"
    End If

    If LoString = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>列表结束标记不能为空！无法继续,请返回上一步进行设置！</li>"
    End If

    If ListPaingType = 0 Or ListPaingType = 1 Then
        If ListStr = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>列表索引页不能为空！无法继续,请返回上一步进行设置！</li>"
        End If

        If ListPaingType = 1 Then
            If LPsString = "" Or LPoString = "" Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>索引分页开始、结束标记不能为空！无法继续,请返回上一步进行设置！</li>"
            End If
        End If

        If ListPaingStr1 <> "" And Len(ListPaingStr1) < 15 Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>索引分页重定向设置不正确！无法继续,请返回上一步进行设置！</li>"
        End If

    ElseIf ListPaingType = 2 Then

        If ListPaingStr2 = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>批量生成原字符串不能为空！无法继续,请返回上一步进行设置</li>"
        End If

        If IsNumeric(ListPaingID1) = False Or IsNumeric(ListPaingID2) = False Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>批量生成的范围只能是数字！无法继续,请返回上一步进行设置</li>"
        Else

            If ListPaingID1 = 0 And ListPaingID2 = 0 Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>批量生成的范围不正确！无法继续,请返回上一步进行设置</li>"
            End If
        End If

    ElseIf ListPaingType = 3 Then

        If ListPaingStr3 = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>索引分页不能为空！无法继续