admin_createarticle.asp

个人网站比较简短

        End If
        strUrlParameter = "&BeginDate=" & BeginDate & "&EndDate=" & EndDate
    Case 6 '指定ID范围
        Dim BeginID, EndID
        BeginID = Trim(Request("BeginID"))
        EndID = Trim(Request("EndID"))
        If Not (IsNumeric(BeginID) And IsNumeric(EndID)) Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>请输入数字！</li>"
            Exit Sub
        End If
        sql = sql & " and ArticleID between " & BeginID & " and " & EndID & ""
        strUrlParameter = "&BeginID=" & BeginID & "&EndID=" & EndID
    Case 7 '采集生成文章
        TimingCreate = Trim(Request("TimingCreate"))
        CollectionCreateHTML = Trim(Request("CollectionCreateHTML"))
        CreateNum = PE_CLng(Trim(Request("CreateNum")))
        IsShowReturn = True

        If CollectionCreateHTML = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<br><li>请指定要生成的数目！"
            Exit Sub
        Else
            ChannelID = PE_CLng(Trim(Request("ChannelID")))
            ClassID = PE_CLng(Trim(Request("ClassID")))
            SpecialID = ReplaceBadChar(Trim(Request("SpecialID")))
            ArticleNum = PE_CLng(Trim(Request("ArticleNum")))

            sql = "select top " & ArticleNum & " * from PE_Article where Deleted=" & PE_False & " and Status=3 and ReceiveType=0 and ChannelID=" & ChannelID & " and ClassID=" & ClassID & ""
        End If
        strUrlParameter = "&CollectionCreateHTML=" & CollectionCreateHTML & "&CreateNum=" & CreateNum & "&ArticleNum=" & ArticleNum & "&TimingCreate=" & TimingCreate

    Case 8 '定时生成文章
        TimingCreate = Trim(Request("TimingCreate"))
        ChannelProperty = Trim(Request("ChannelProperty"))
        TimingCreateNum = PE_CLng(Trim(Request("TimingCreateNum")))
        IsShowReturn = True
        arrChannelProperty = Split(ChannelProperty, ",")
        ChannelID = arrChannelProperty(0)
        CreateItemType = arrChannelProperty(2)
        CreateItemTopNewNum = arrChannelProperty(3)
        CreateItemDate = arrChannelProperty(4)
        Select Case CreateItemType
        Case 1
             sql = "select top " & CreateItemTopNewNum & " *  from PE_Article where Deleted=" & PE_False & " and Status=3 and ReceiveType=0 and ChannelID=" & ChannelID & " order by UpdateTime desc,ClassID asc,TemplateID asc,ArticleID asc"
        Case 2
            sql = sql & " DateDiff(" & PE_DatePart_D & ",UpdateTime," & PE_Now & ")<" & CreateItemDate & ""
        Case 3
			sql = "select top " & MaxPerPage_Create & " * from PE_Article where Deleted=" & PE_False & " and Status=3 and ReceiveType=0 and InfoPoint=0 And InfoPurview=0 and ChannelID=" & ChannelID & ""
            sql = sql & " and (CreateTime is null or CreateTime<=UpdateTime)"
        Case 4
            
        End Select
        strUrlParameter = "&TimingCreate=" & TimingCreate & "&TimingCreateNum=" & TimingCreateNum & "&ChannelProperty=" & Trim(Request("ChannelProperty"))
    Case 9 '所有未生成的文章
        sql = "select top " & MaxPerPage_Create & " * from PE_Article where Deleted=" & PE_False & " and Status=3 and ReceiveType=0 and InfoPoint=0 And InfoPurview=0 and ChannelID=" & ChannelID & ""
		sql = sql & " and (CreateTime is null or CreateTime<=UpdateTime)"
    Case Else
        Response.Write "参数错误！"
        Exit Sub
    End Select
    If CreateType = 4 Or CreateType = 7 Then
        sql = sql & " order by UpdateTime desc,ClassID,ArticleID"
    Else
        sql = sql & " order by ClassID,ArticleID"
    End If
    Set rsArticle = Server.CreateObject("ADODB.Recordset")
    rsArticle.Open sql, Conn, 1, 1
    If rsArticle.Bof And rsArticle.EOF Then
        TotalCreate = 0
		iTotalPage = 0
        rsArticle.Close
        Set rsArticle = Nothing
        Exit Sub
    Else
        If CreateType = 9 Or (CreateType = 8 And CreateItemType = 3)Then
			TotalCreate = PE_Clng(Conn.Execute("select count(*) from PE_Article where Deleted=" & PE_False & " and Status=3 and ReceiveType=0 and InfoPoint=0 And InfoPurview=0 and ChannelID=" & ChannelID & " and (CreateTime is null or CreateTime<=UpdateTime)")(0))
		Else
			TotalCreate = rsArticle.RecordCount
		End If
		
    End If

    PageTitle = "正文" '得到频道标题
    strFileName = ChannelUrl_ASPFile & "/ShowArticle.asp" '得到路径
    strTemplate = GetTemplate(ChannelID, 3, tmpTemplateID) '得到频道中正文的默认模板
    
    Call MoveRecord(rsArticle)
    Call ShowTotalCreate(ChannelItemUnit & ChannelShortName)
    Do While Not rsArticle.EOF
        FoundErr = False
        ArticleID = rsArticle("ArticleID")
        ClassID = rsArticle("ClassID")
        If CreateType = 7 Then ChannelID = rsArticle("ChannelID")
        strNavPath = tmpNavPath
        If ChannelID <> PrevChannelID Then
            Call GetChannel(ChannelID)
            PrevChannelID = ChannelID
        End If
        Call GetClass
        strPageTitle = tmpPageTitle
        iCount = iCount + 1

        If ClassPurview > 0 Or rsArticle("InfoPurview") > 0 Or rsArticle("InfoPoint") > 0 Then
            Response.Write "<li><font color='red'>ID为 " & rsArticle("ArticleID") & " 的" & ChannelShortName & "因为设置了阅读权限，所以没有生成。</font></li>"
            Response.Flush
        Else
            SpecialID = 0
            CurrentPage = 1
            ArticlePath = HtmlDir & GetItemPath(StructureType, ParentDir, ClassDir, rsArticle("UpdateTime"))

            If CreateMultiFolder(ArticlePath) = False Then
                Response.Write "请检查服务器。系统不能创建生成文件所需要的文件夹。"
                Exit Sub
            End If
            ArticlePath = ArticlePath & GetItemFileName(FileNameType, ChannelDir, rsArticle("UpdateTime"), ArticleID)
                
            tmpFileName = ArticlePath & FileExt_Item

            '生成页面时判定转向连接
            If rsArticle("LinkUrl") <> "" And rsArticle("LinkUrl") <> "http://" Then
                Call WriteToFile(tmpFileName, PE_Content.GetLinkUrlContent(rsArticle("LinkUrl"), ArticleID))
                Response.Write "<li>成功生成第 <font color='red'><b>" & iCount & " </b></font> " & ChannelItemUnit & ChannelShortName & "。&nbsp;&nbsp;ID：" & ArticleID & " &nbsp;&nbsp;标题：" & rsArticle("Title") & " &nbsp;&nbsp;地址：<a href='" & tmpFileName & "' target='_blank'>" & tmpFileName & "</a></li>" & vbCrLf
                Response.Flush
            Else
                ArticleUrl = GetArticleUrl(ParentDir, ClassDir, rsArticle("UpdateTime"), ArticleID, ClassPurview, rsArticle("InfoPurview"), rsArticle("InfoPoint"))

                SkinID = GetIDByDefault(rsArticle("SkinID"), DefaultItemSkin)
                TemplateID = GetIDByDefault(rsArticle("TemplateID"), DefaultItemTemplate)

                If Trim(rsArticle("TitleIntact")) <> "" Then
                    ArticleTitle = Replace(Replace(Replace(Replace(rsArticle("TitleIntact") & "", "&nbsp;", " "), "&quot;", Chr(34)), "&gt;", ">"), "&lt;", "<")
                Else
                    ArticleTitle = Replace(Replace(Replace(Replace(rsArticle("Title") & "", "&nbsp;", " "), "&quot;", Chr(34)), "&gt;", ">"), "&lt;", "<")
                End If

                If TemplateID <> tmpTemplateID Then
                    strTemplate = GetTemplate(ChannelID, 3, TemplateID)
                    tmpTemplateID = TemplateID
                End If
                strHtml = strTemplate
                Call PE_Content.GetHtml_Article
                tmpArticle = PE_Content.ReplaceContentLabel(strHtml)
                If InStr(tmpArticle, "{$ShowPageContent}") > 0 Then tmpArticle = Replace(tmpArticle, "{$ShowPageContent}", "")
                '写入生成地址
                Call WriteToFile(tmpFileName, tmpArticle)
                Response.Write "<li>成功生成第 <font color='red'><b>" & iCount & " </b></font> " & ChannelItemUnit & ChannelShortName & "。&nbsp;&nbsp;ID：" & ArticleID & " &nbsp;&nbsp;标题：" & rsArticle("Title") & " &nbsp;&nbsp;地址：<a href='" & tmpFileName & "' target='_blank'>" & tmpFileName & "</a></li>" & vbCrLf
                Response.Flush
                
                For CurrentPage = 2 To PE_Content.TotalPage
                    tmpFileName = ArticlePath & "_" & CurrentPage & FileExt_Item
                    tmpArticle = PE_Content.ReplaceContentLabel(strHtml)
                    If InStr(tmpArticle, "{$ShowPageContent}") > 0 Then tmpArticle = Replace(tmpArticle, "{$ShowPageContent}", "")
                    Call WriteToFile(tmpFileName, tmpArticle)
                    Response.Write "<br>&nbsp;&nbsp;&nbsp;成功生成第 <font color='red'><b>" & iCount & " </b></font> " & ChannelItemUnit & ChannelShortName & "的第 <font color='blue'>" & CurrentPage & "</font> 页：<a href='" & tmpFileName & "' target='_blank'>" & tmpFileName & "</a>" & vbCrLf
                    Response.Flush
                Next
            End If
            '生成内容结束，更新内容的生成时间
            Conn.Execute ("update PE_Article set CreateTime=" & PE_Now & " where ArticleID=" & ArticleID)

        End If
        If Response.IsClientConnected = False Then Exit Do
        If iCount Mod MaxPerPage_Create = 0 Then Exit Do
        rsArticle.MoveNext
    Loop
    rsArticle.Close
    Set rsArticle = Nothing
End Sub
%>