为pj3添加内分页

dim fenyefu:fenyefu="[pagebreak]"

conn.execute("Delete * from blog_Content where log_ID="&Log_Dele(i))

                        '删除静态内分页文件——by：情留メ蚊子 Start
                        Set log_View = conn.Execute("Select * FROM blog_Content Where log_ID=" & Log_Dele(i))
                        dim arrcontent,rollnum,log_View
                        If InStr(log_View("log_Content"),fenyefu)>0 Then
                            arrcontent=split(log_View("log_Content"),fenyefu)
                          for rollnum=1 to ubound(arrcontent)
                        if fso.FileExists(server.MapPath("article/"&Log_Dele(i) &"_"&(rollnum)&".htm")) then
                            fso.DeleteFile(server.MapPath("article/"&Log_Dele(i) &"_"&(rollnum)&".htm"))
                        end if
                          next
                       end if
                       '删除静态内分页文件——by：情留メ蚊子  end

Conn.Execute("Delete * FROM blog_Content Where log_ID="&id)

        '删除静态内分页文件——by：情留メ蚊子 Start
        dim arrcontent,rollnum
        arrcontent=split(weblog("log_Content"),fenyefu)
        If InStr(weblog("log_Content"),fenyefu)>0 Then
        for rollnum=1 to ubound(arrcontent)
        DeleteFiles Server.MapPath("article/"&logiD &"_"&(rollnum)&".htm")
        next
        end if
        '删除静态内分页文件——by：情留メ蚊子 end