解决typecho文章附件未引用被隐藏的问题

作者: 傻猫    分类: 搞软件     发布时间: 08-18 20:50    浏览次数: 6385     无留言

从sablog转到typecho后,数据都导入了,但是由于程序上的原因,有很多附件没有显示出来。Sablog对附件的处理是这样的:如果文章里有ABCD四个附件,文章里引用了AB两个附件,CD没在文章里引用,那么CD会自动在文章末尾显示出来。typecho对附件的处理方法:文章里引用了附件才会显示在前台,如果文章里没有引用附件的话,那这个附件只能在后台看见,前台是看不见附件的。

为此傻猫写了一个小工具,本人对PHP不是很熟悉,所以采用了本人最熟悉的delphi编写了一个小软件,直接对数据库进行处理。下载地址:typechoAtt.rar

处理原理:对文章对应的附件进行检查,如果文章里未引用附件的话,自动在文章末尾添加附件链接,如果已经引用的话则不处理。因为文章和附件内容都存在typecho_contents表中,所以所有操作都在这个表中进行,不会对其它表进行处理。

另附该软件源代码:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, MemDS, DBAccess, MyAccess, StdCtrls,IdStrings, ComCtrls;

type
  TForm1 = class(TForm)
    MyConnection1: TMyConnection;
    myqry_select: TMyQuery;
    myqry_update: TMyQuery;
    Button1: TButton;
    Memo1: TMemo;
    myqry_att: TMyQuery;
    Label1: TLabel;
    edt_server: TEdit;
    Label2: TLabel;
    edt_username: TEdit;
    Label3: TLabel;
    edt_password: TEdit;
    Label4: TLabel;
    edt_port: TEdit;
    Label5: TLabel;
    edt_database: TEdit;
    Label6: TLabel;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function IsImage(filename:string):Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.IsImage(filename:string):Boolean;
var atttile:string;
begin
            Result:=False;
           
            atttile:= UpperCase(filename);
            if Pos('.JPG',atttile)>0 then
            begin
                Result:=True;
                exit;
            end;

            if Pos('.JPEG',atttile)>0 then
            begin
                Result:=True;
                exit;
            end;

            if Pos('.BMP',atttile)>0 then
            begin
                Result:=True;
                exit;
            end;

            if Pos('.GIF',atttile)>0 then
            begin
                Result:=True;
                exit;
            end;

            if Pos('.PNG',atttile)>0 then
            begin
                Result:=True;
                exit;
            end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j,mycount,attcount:Integer;
    sql,sqlatt,mycid,mytxt,atttitle,attid,attname,myatt,temp,l,r,updatesql:string;
begin
    try
        MyConnection1.Server:=Trim(edt_server.Text);
        MyConnection1.Username:=Trim(edt_username.Text);
        MyConnection1.Password:=Trim(edt_password.Text);
        MyConnection1.Database:=Trim(edt_database.Text);
        MyConnection1.Port:=StrToInt(edt_port.Text);
        MyConnection1.Connected:=True;
    except
        Application.MessageBox('链接数据库失败,请检查配置信息!', '提示',
          MB_OK + MB_ICONSTOP);
        exit; 
    end;

    if not MyConnection1.Connected then exit;

 

    sql:='select cid,text from typecho_contents ';
    try
        //查询文章
        myqry_select.Close;
        myqry_select.SQL.Clear;
        myqry_select.SQL.Add(sql);
        myqry_select.Open;
        mycount:=myqry_select.RecordCount;
        for i:=1 to mycount do
        begin
            Button1.Caption:= IntToStr(i)+'/'+inttostr(mycount);
            mycid:=Trim(myqry_select.fieldbyname('cid').AsString);
            mytxt:=Trim(myqry_select.fieldbyname('text').AsString);
           
                  //查询附件内容
                  sqlatt:='select cid,title,text FROM `typecho_contents`  WHERE `order` ='+mycid+' AND (`type` LIKE ''attachment'') LIMIT 0 , 100 ';
                  myqry_att.Close;
                  myqry_att.SQL.Clear;
                  myqry_att.SQL.Add(sqlatt);
                  myqry_att.Open;
                  attcount:=myqry_att.RecordCount;
                  if attcount>0 then
                  begin
                      for j:=1 to attcount do
                      begin
                            myatt:=Trim(myqry_att.fieldbyname('text').AsString);
                            atttitle:= Trim(myqry_att.fieldbyname('title').AsString);
                            attid:=  Trim(myqry_att.fieldbyname('cid').AsString);

                            temp:='';

                            //;s:4:"path";s:49:"/attachments/b778f0603cc8b4ff2271b858289b3780.jpg";s:4:"size";i:61355
                            //把附件名称拆分出来
                            SplitString(myatt,'"path";s:',l,r);
                            SplitString(r,'";s:4:"size";',l,r);
                            SplitString(l,'"',l,r);
                            attname:=r;

                            if Pos(attname,mytxt)=0 then
                            begin
                                //对附件进行处理,图片和程序处理方式不一样
                                  if IsImage(atttitle) then
                                  temp:='<br><a href="https://samool.com/attachment/'+attid+'/" title="' + atttitle + '"><img src="' + attname + '" alt="' + atttitle + '" /></a><br>'
                                  else
                                  temp:='<br><a href="https://samool.com/attachment/'+attid+'/" title="' + atttitle + '">' + atttitle + '</a><br>' ;

                                  Memo1.Lines.Add('cid='+mycid+' 文章《'+atttitle+'》已经更新!');
                                 //更新数据库
                                  if temp<>'' then
                                  begin
                                      updatesql:='update `typecho_contents` set text=concat(text,'''+temp+''') where cid='+mycid;
                                      myqry_update.Close;
                                      myqry_update.SQL.Clear;
                                      myqry_update.SQL.Add(updatesql);
                                      myqry_update.Execute;
                                  end; 
                            end;
                            myqry_att.FindNext;
                      end;

                  end;

              myqry_select.FindNext;

        end;
    except
        ShowMessage('err');
    end;

end;

end.

添加新评论