Samool's blog

Sablog探秘之《全面了解Sablog-X V2.0》

作者：傻猫 发布时间：2009-07-28 23:08:38 分类：傻猫杂谈 1 Comment 16 Views

作为Sablog的忠实使用者，从2006年4月开始使用Sablog，这几年的经验告诉我，Sablog更新的很慢，但是每次版本升级都会加入重量级内容。Sablog-X是一个采用PHP和MySQL构建的博客系，统作为Sablog的后继产品，“速度卓越，操作简单”是她最大的特点，与国际上大大名鼎鼎的WordPress（简称WP）相比，Sablog速度比WP速度快，这也正是我这几年一直使用Sablog的原因，功能方面Sablog短小精悍，作为一个博客系统，完全够用了。

下面一一来展示一下各方面的功能吧，本站就是一个前台演示，主要看一下后台有那些功能和WAP功能。Sablog-X V2.0主要增加了“自定义URL”永久链接功能，非常有利于搜索引擎收录，还增加了站点地图以及模板风格标签的重新定义，制作模板更加简单，WAP功能全面加强，具体的东西看下面图片吧。


控制面板.png

文章管理.png

附件管理.png

模板风格.png

数据库信息.png

添加日志.png

评论管理.png

系统设置-rss.png

系统设置-安全限制.png

系统设置-侧栏.png

系统设置-附件.png

系统设置-基本.png

系统设置-评论.png

系统设置-搜索引擎优化.png

系统设置-显示.png

系统设置-永久连接.png

友情链接.png

wap标签.png

wap分类.png

wap归档.png

wap浏览文章.png

wap浏览文章2.png

wap评论.png

wap首页.png

wap搜索.png

wap写文章.png

Sablog2.0蓝风风格下载

作者：傻猫 发布时间：2008-08-13 10:38:09 分类：傻猫软件 13 Comments 9 Views

蓝风1.6的风格大家都很喜欢吧，我以前就一直用这个风格，挺好的，当升级到2.0以后当然以前的风格不能用了，问蓝风要了一个2.0的风格，不知道是服务器的原因还是其它原因，风格用不了，于是我按sablog官方模板的格式，把蓝风传给我的风格重新调整了下，在IE、Firefox、Opera浏览器下测试通过。

我在链接页添加了显示PR值的图标，PR查询服务由 http://samool.com/pagerank/ 提供。

风格版本：sablog2.0

风格下载：newbluefeel.rar    (解压密码：samool.com)

风格预览：newbluefeelsrc.png

同花顺风格下载 For Sablog2.0

作者：傻猫 发布时间：2008-08-12 9:09:24 分类：傻猫杂谈 3 Comments 8 Views

这个皮肤来源于国外网站，原来是WordPress的主题，被我看到后发现整个页面比较大气，而且深一点的绿色也不刺眼，一下子就喜欢上这个皮肤了，所以花时间转到Sablog上面来了，绿色版的，我已经把google广告链接去了，在友情链接页面上已经加上了自动显示PageRank的图标，喜欢的朋友就下载，请注明是傻猫修改的就可以了，只要百度Google有收录的博客，欢迎与我做友情连接。

皮肤版本：Sablog2.0

皮肤下载：samoolfun.rar

皮肤预览：

9auehwzve1.png

BackLinks的安装方法 For Sablog1.6

作者：傻猫 发布时间：2008-07-21 21:32:23 分类：傻猫杂谈 23 Comments 9 Views

今天偶注册了BackLinks，在安装代码的时候遇到问题，由于Sablog采用模板方式，不能直接插入BackLinks的代码，必须换一种方法才行，经过本人研究测试后，得到如下方法，先共享给需要帮助的朋友。

什么是BackLinks?

打开根目录下的index.php  在第37行修改

if (in_array($action, array('index', 'finduser', 'search', 'tags'))) {
 session_start();

将他们替换成以下代码，并将密钥代码换成你的密钥，在BlackLink网站上获取代码的地方可以看到钥。

if (in_array($action, array('index', 'finduser', 'search', 'tags'))) {
 session_start();

//BlackLink链接代码

// The following variable defines whether links are opened in a new window
// (1 = Yes, 0 = No)
$OpenInNewWindow = "1";

// ********************************************************************
// Please DO NOT modify anything below
// ********************************************************************

$BLKey = "密钥代码";

$BLQueryString  = "LinkUrl=".urlencode((($_SERVER['HTTPS']=='on')?'https://':'http://').$_SERVER['HTTP_HOST'].$_SERVER['REQUEST_URI']);
$BLQueryString .= "&Key=" .urlencode($BLKey);
$BLQueryString .= "&OpenInNewWindow=" .urlencode($OpenInNewWindow);


if(intval(get_cfg_var('allow_url_fopen')) && function_exists('file')) {
    if($BLcontent = @file("http://www.backlinks.com/engine.php?".$BLQueryString)) 
        $BLcode = @join('', $BLcontent);
}
else {
    $BLcode = "It appears that your web host has disabled all functions for handling remote pages and as a result the BackLinks software will not function on your web page. Please contact your web host for more information.";
}

现在链接代码已经生成了，现在将链接变量代码输出来，打开templates\default\index.php文件，在第303行处修改，将  <h2>友情链接</h2>  替换成以下代码即可，我把BackLinks链接放在友情链接上面的。

<h2>赞助商链接<h2>
    <ul>
     $BLcode
    </ul>

<h2>友情链接</h2>

代码修改好后，到BackLinks后台把广告位激活一下，点“My Link Pages”，看到网址后面红色字体是“Inactive”，表示还未激活，点一下“Validate Web Page”检测一下代码，看到最后“Congratulations! It appears that your web page is configured correctly! ”，就OK了，再看一下网址那里就显示的是绿色的“active”，表示已经激活，等着别人来买你的链接吧。

什么是BackLinks?

最后提一下，应该Sablog采用的是UTF-8网页编码，所以在修改文件的时候，建议使用DreamWave或者使用EditPlus修改，不能使用记事本打开修改，切记。。切记。。

我快成Sablog风格达人了,哈哈

作者：傻猫 发布时间：2008-06-01 10:17:07 分类：傻猫杂谈 4 Comments 8 Views

前几天我的处女作《皇帝的新装Hello:D》For Sablog2.0风格完成后，喜欢的不得了，也就是我现在博客用的这个风格，我的第一风格终于诞生了，这一时刻足足等了两年半啊，13，其实从其它程序移植风格是一件很好玩的事，说一下移植模板的步骤，希望给还没有做过模板的朋友一点帮助（此法对所有程序通用）。首先找到中意的模板，像WP这样的风格站一般都有预览的，先下载模板文件，再直接在网上预览模板效果，把首页和文章内页保存到本地（一般就只需要这两个页了），下载到本地后，用DW编辑网页一层一层地拨皮，一般兼容性比较好的模板都是用DIV来做的，将他们缩进排列起来，一个层对应一个层地分块，最后直接套进需要的程序就可以了，就这么简单。以前SA1.6做模板太麻烦，主要是那个模板引擎不好，标志性代码太复杂了，现在2.0在模板方面提高了很多，制作模板那就简单啦，只要会一点html应该就可以做模板咯，牛皮不是吹的，我昨天晚上又做了一个SamoolGrungeRed模板，嘿嘿。

昨天为了把我以前的两个米利用起来，反正买了空间一年多，一直闲在那里，不用白白浪费了，划不着嘛。说动就动，昨天晚上重新把模板拆分了一下，终于搞定了，这个也是从WP移植过来的，把我另外两个站《四川加油博客》和《成都IT信息》重新装扮了起来，用BLOG程序打造一个CMS系统也不是难事，呵呵。

闲话少说，看看截图吧

英语每日一句
I am hunger for a long vocation . 我渴望有一个长长的假期。

博客程序升级到Sablog2.0的前前后后

作者：傻猫 发布时间：2008-05-16 8:15:08 分类：我的生活 3 Comments 3 Views

昨天在一位朋友的帮助下，博客程序升级到Sablog2.0，换了新的内核，换了新的皮肤，爽歪歪咯。发现Sablog2.0与1.6相比，进步非常大，速度快操作方便，最重要是增加了自定义URL永久链接，对于网站收录和SEO来，这个永久链接功能很好很强大，继续挖掘Sablog2.0的强大功能。

我正在增加一个功能，就是在后台显示目前网站的爬虫功能，昨天晚上在网吧搞了几个小时，模板弄好了，但是数据没有显示出来，继续努力中，发现小A真TNND是天才，开发出这么好的博客程序，Sablog2.0继续完善，稳定的程序，强大的功能，再好好的推广一下，一定能超过WP博客，哇哈哈.

2008-5-16 10:18更新
Fatal error: Call to undefined function sax_daddslashes() in include/func/global.func.php on line 48
*修复Sablog2.0 附件修复的BUG.

+增加后台显示在线爬虫的功能(只是从数据库中将信息显示出来，数据具体准不准要问小A了，呵呵)
robot.jpg

2008-5-16 16:16 更新
*发现BUG.    附件图片水印有问题, 不能生成水印

顺便记录一下博客收录情况，看一下搜索引擎多久能够重新收录。

查询时间:2008-5-16  8:20:40    查询域名:samool.com      PageRank:4
Alexa排名:385954     Sogou Rank:6     ChinaRank:84706
baidu:收录 15700 , 反向链接 951
google:收录 15200 , 反向链接 583
yahoo:收录 12554 , 反向链接 444
live:收录 1950 , 反向链接 1
sogou:收录 1493 , 反向链接 3
yodao:收录 2454 , 反向链接 12

查询时间:2008-5-19  7:15:23
查询域名:samool.com     PageRank:4    Alexa排名:385954
Sogou Rank:6  ChinaRank:99702
baidu:收录 15900 , 反向链接 957
google:收录 13900 , 反向链接 583
yahoo:收录 12522 , 反向链接 296
live:收录 958 , 反向链接 1
sogou:收录 12837 , 反向链接 3
yodao:收录 2444 , 反向链接 12

查询时间:2008-5-23  13:44:59
查询域名:samool.com    PageRank:4    Alexa排名:428762
Sogou Rank:6    ChinaRank:111784
搜索引擎收录以及反向链接查询结果
baidu:收录 16000 , 反向链接 855
google:收录 13200 , 反向链接 581
yahoo:收录 14477 , 反向链接 267
live:收录 474 , 反向链接 1
sogou:收录 13609 , 反向链接 3
yodao:收录 2054 , 反向链接 0

查询时间:2008-5-16  8:21:40    查询域名:www.samool.com     PageRank:4
Alexa排名:385954      Sogou Rank:45     ChinaRank:84706
baidu:收录 15800 , 反向链接 2460
google:收录 9590 , 反向链接 583
yahoo:收录 11271 , 反向链接 6814
live:收录 2420 , 反向链接 0
sogou:收录 1016 , 反向链接 5449
yodao:收录 2184 , 反向链接 419

查询时间:2008-5-19  7:11:23   查询域名:www.samool.com   PageRank:4
Alexa排名:385954  Sogou Rank:45   ChinaRank:99702
baidu:收录 15800 , 反向链接 2470
google:收录 10400 , 反向链接 583
yahoo:收录 11736 , 反向链接 7105
live:收录 1200 , 反向链接 0
sogou:收录 1006 , 反向链接 5336
yodao:收录 2172 , 反向链接 419

查询时间:2008-5-23  13:46:14   查询域名:www.samool.com    PageRank:4
Alexa排名:428762    Sogou Rank:45    ChinaRank:111784
baidu:收录 16000 , 反向链接 2520
google:收录 10800 , 反向链接 581
yahoo:收录 12529 , 反向链接 7174
live:收录 454 , 反向链接 0
sogou:收录 12758 , 反向链接 5336
yodao:收录 1609 , 反向链接 423

Sablog1.6 站点地图(SiteMap)插件

作者：傻猫 发布时间：2007-10-12 14:45:59 分类：工具软件 10 Comments 7 Views

使用说明：

附件解压后，将sitemap.php上传到网站根目录，可将此文件连接到首页index.php上，方便以后生成站点地图。

直接在浏览器打开这个文件，它会自动生成网站地图Sitemap XML格式，保存为该文件到本地，然后最好用EditPlus打开，另存为utf-8格式，因为好像Google只能识别utf-8格式。

将保存的Sitemap.xml上传到网站根目录，到Google网站管理员工具里，添加Sitemap，将文件名链接上就OK，目前yahoo也有站点管理员工具，把站点地图Sitemap添加以后，可以方便搜索引擎收录网站。

下载插件：sitemap.rar

特别感谢：感谢CCTV，感谢MTV，感谢tension，感谢Angle 

此插件是Sablog2.0的功能，小T正在使用2.0，羡慕啊！原想叫小T把站点地图功能移植到1.6来，结果他泡MM耽误了，呵呵，今天小T把Sitemap.php发给偶，我直接传到空间上，发现不能使用，因为2.0数据库与1.6数据库有一些变化，于是偶试着修改了一下（就改了一下字段名）搞定，完全可以用于Sablog1.6，在此特别感谢小T和小A的辛勤劳动！

[转]Sablog1.6模板下载《蓝风中秋雨梦版》

作者：傻猫 发布时间：2007-10-06 18:58:56 分类：工具软件 4 Comments 6 Views

因为我只用Maxthon，所以本来只在IE下测试的，前几天刚修改了一下，兼容了Firefox，见有些人喜欢，就共享出来！

希望下载的朋友留一下言，让我知道谁谁下载了，也好让我满足一下虚荣心，当然，也希望使用此模板的朋友保留我的日志链接，谢谢！ 

bluefeel9f5fde93b1b.png

需要注意的地方：
1、此模板只在Sablog1.6下测试，不保证SaBlog的其它版本能正常使用；
2、此模板只在IE和Firefox下测试，不保证其它浏览器的正常显示，假如你发现此类问题，可以联系我修正；
3、考虑到排版的问题，发布的模板跟当前蓝风网络日志使用的模板没有任何区别，没有做任何的改动，包括本人使用的Google Adsense广告，正式使用时请自行修改；
4、本人使用的Sablog根据自己的喜好做了一些小的修改（已尽量不改动模板之外的文件）。

详细可以参考我之前的修改备忘：
http://www.bluefeel.com/show-593-1.html

模板下载地址：http://www.bluefeel.com/show-642-1.html

《163滚动新闻采集器》

作者：傻猫 发布时间：2007-09-17 14:32:14 分类：傻猫软件 20 Comments 16 Views

偶做了一个新闻采集的小程序，可以导出RSS文件，配合SA的导入功能，可以一下子导入采集的新闻，目前已经做好163滚动新闻，国际新闻，国内新闻，娱乐新闻，crsky软件，Cnbeta新闻进行自动采集。今天首次发布163滚动新闻采集器。

163nesw.jpg

本软件为绿色免费软件，解压后即可以使用！版权所有，盗版不究！

开发平台：
Delphi7 + WindowsXP SP2

测试平台：
WindowsXP SP2 / Windows2000 Server / Windows 2003
(其它平台未测试，只要是Windows系统应该都兼容的)

功能简介：
自动采集新闻标题，网站URL地址，新闻详细内容，新闻description部分自动过滤HTML代码，自动采集完整的新闻详细内容。
定时采集，自动过滤重复的新闻，导出RSS XML文件，
日志管理，数据支持ACC数据库和MSSQL数据库（也可以用于其它网站的导入功能）

使用说明：
点击采集新闻，软件是单线程进行采集（不会用多线程，呵呵，不要丢砖谢谢），等待采集完成以后，导出文件即可，输出的文件是XML文件，可直接导入到Sablog博客中，（注意：如果你的博客是UTF-8编码格式的话，请用转换工具如EditPlus打开导出的XML文件，另存为UTF-8格式即可），另外当新闻导出后，数据库会自动记录新闻为“已导出”状态，如果点“全部初始化”，会将数据库中所有已经采集的新闻置为“未导出”状态，可以再次导出所有新闻。

为配合Sablog导入，偶简单修改过Admin\database.php 请大家下载后，先备份原文件，再覆盖database.php 文件即可。

如果是导入到其它系统的话，请使用data\data.mdb文件导入即可，net163_news 为新闻表，net163_log 为日志表

备注：
诚接以下业务：机器人、软件破解、数据库管理系统、网站建设、域名服务
联系QQ：点击这里给我发消息    E-mail：


163scrollnews.rar

database.rar

让Sablog也支持Delphi代码高亮功能

作者：傻猫 发布时间：2007-09-15 12:42:34 分类：傻猫杂谈 4 Comments 15 Views

首先我们要强烈地谴责小T，在集成代码高亮时把Delphi高亮功能给去掉了，本来highlighter有这个功能的，他居然把选项给丢了，谴责、谴责、再谴责。

虽然对PHP不精通，但是还是看的懂的，呵呵，在网上也找了highlighter的代码，发现boblog都加了Delphi代码高亮的，为啥SA就歧视偶们Borland Fans呢，居然把Delphi代码高亮给去掉了，郁闷中，其实要给某种编程语言加上代码高亮也不是什么难事，因为highlighter已经有这种功能，只需要把关键字加上就OK了。

今天有空偶好好看了一下编辑高亮的代码，发现admin\editor\plugins\insertcode\fckplugin.js 文件里有Delphi代码转换的函数，如下代码

JavaScript代码
  1. /* Delphi brush is contributed by Eddie Shipman */  
  2. dp.sh.Brushes.Delphi = function()   
  3. {   
  4.     var keywords =  'abs addr and ansichar ansistring array as asm begin boolean byte cardinal ' +   
  5.                     'case char class comp const constructor currency destructor div do double ' +   
  6.                     'downto else end except exports extended false file finalization finally ' +   
  7.                     'for function goto if implementation in inherited int64 initialization ' +   
  8.                     'integer interface is label library longint longword mod nil not object ' +   
  9.                     'of on or packed pansichar pansistring pchar pcurrency pdatetime pextended ' +    
  10.                     'pint64 pointer private procedure program property pshortstring pstring ' +    
  11.                     'pvariant pwidechar pwidestring protected public published raise real real48 ' +   
  12.                     'record repeat set shl shortint shortstring shr single smallint string then ' +   
  13.                     'threadvar to true try type unit until uses val var varirnt while widechar ' +   
  14.                     'widestring with word write writeln xor';   
  15.   
  16.     this.regexList = [   
  17.         { regex: new RegExp('\\(\\*[\\s\\S]*?\\*\\)', 'gm'),        css: 'comment' },           // multiline comments (* *)  
  18.         { regex: new RegExp('{(?!\\$)[\\s\\S]*?}', 'gm'),           css: 'comment' },           // multiline comments { }  
  19.         { regex: dp.sh.RegexLib.SingleLineCComments,                css: 'comment' },           // one line  
  20.         { regex: dp.sh.RegexLib.SingleQuotedString,                 css: 'string' },            // strings  
  21.         { regex: new RegExp('\\{\\$[a-zA-Z]+ .+\\}', 'g'),          css: 'directive' },         // Compiler Directives and Region tags  
  22.         { regex: new RegExp('\\b[\\d\\.]+\\b', 'g'),                css: 'number' },            // numbers 12345  
  23.         { regex: new RegExp('\\$[a-zA-Z0-9]+\\b', 'g'),             css: 'number' },            // numbers $F5D3  
  24.         { regex: new RegExp(this.GetKeywords(keywords), 'gm'),      css: 'keyword' }            // keyword  
  25.         ];   
  26.   
  27.     this.CssClass = 'dp-delphi';   
  28.     this.Style =    '.dp-delphi .number { color: blue; }' +   
  29.                     '.dp-delphi .directive { color: #008284; }' +   
  30.                     '.dp-delphi .vars { color: #000; }';   
  31. }   
  32.   
  33. dp.sh.Brushes.Delphi.prototype  = new dp.sh.Highlighter();   
  34. dp.sh.Brushes.Delphi.Aliases    = ['delphi', 'pascal'];  

对应其它的函数，这个功能是齐全的，但是为什么Delphi代码就不能高亮呢，原来高亮接口文件fck_insertcode.html没有Delphi这个选项（小T啊小T，你可害苦我了）

XML/HTML代码
  1. <select id="icLan">                
  2.               <option value="xhtml">XML/HTML</option>  
  3.               <option value="javascript">JavaScript</option>  
  4.               <option value="css">CSS</option>  
  5.               <option value="csharp">C#</option>  
  6.               <option value="cpp">C++</option>  
  7.               <option value="java">Java</option>  
  8.               <option value="php">PHP</option>  
  9.               <option value="python">Python</option>  
  10.               <option value="ruby">Ruby</option>  
  11.               <option value="sql">SQL</option>  
  12.               <option value="vb">ASP/Visual Basic</option>  
  13.             </select>  

凭直觉偶把select里多加了一个选项，代码如下：

XML/HTML代码
  1. <option value="delphi">delphi</option>  

复制了一段Delphi代码进去，哈哈，搞定了，如下代码演示，最后我们再谴责一下小T和小A把偶们的最爱Delphi给去掉了。

最后偶把fck_insertcode.html文件发出来，你可以直接覆盖原admin\editor\plugins\insertcode\下的fck_insertcode.html即可，或者自己加上代码也行，说了这么多，还是感谢一下小T给Sablog加了代码高亮插件！

delphi代码
  1. unit u17288;   
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   
  7.   Dialogs, OleCtrls, SHDocVw, StdCtrls,mshtml, AppEvnts, ExtCtrls;   
  8.   
  9. type  
  10.   TFrm_main = class(TForm)   
  11.     wb1: TWebBrowser;   
  12.     pnl1: TPanel;   
  13.     lbl1: TLabel;   
  14.     ApplicationEvents1: TApplicationEvents;   
  15.     procedure wb1DocumentComplete(Sender: TObject; const pDisp: IDispatch;   
  16.       var URL: OleVariant);   
  17.     procedure ApplicationEvents1Message(var Msg: tagMSG;   
  18.       var Handled: Boolean);   
  19.     procedure FormCreate(Sender: TObject);   
  20.   private  
  21.     { Private declarations }  
  22.   public  
  23.     { Public declarations }  
  24.   end;   
  25.   
  26. var  
  27.   Frm_main: TFrm_main;   
  28.   
  29. implementation  
  30.   
  31. {$R *.dfm}  
  32.   
  33. procedure TFrm_main.wb1DocumentComplete(Sender: TObject;   
  34.   const pDisp: IDispatch; var URL: OleVariant);   
  35. var doc:IHTMLDocument2;   
  36. begin    
  37.    doc:=IHTMLDocument2(wb1.Document);    
  38.    if(doc<>nil) and (doc.body<>nil) then  
  39.    begin  
  40.       doc.body.style.borderstyle:='none';   
  41.    end;   
  42.    try  
  43.      wb1.oleobject.Document.body.Scroll := 'no';   
  44.    except  
  45.    end;   
  46. end;   
  47.   
  48. procedure TFrm_main.ApplicationEvents1Message(var Msg: tagMSG;   
  49.   var Handled: Boolean);   
  50. var    
  51.  p: TPoint;    
  52. begin    
  53.  if Msg.message = WM_MOUSEMOVE then    
  54.  begin    
  55.    p := ScreenToClient(Msg.pt);    
  56.    lbl1.Caption := Inttostr(p.x) + ', ' + Inttostr(p.y);    
  57.  end;   
  58.  {如果要取得 WebBrowser 的点击坐标，这么写：  
  59.  if (Msg.hwnd = WebBrowser1.Handle) and (Msg.message = WM_LBUTTONDOWN) then  
  60.  begin  
  61.    p := ScreenToClient(Msg.pt);  
  62.    ShowMessage(Inttostr(p.x) + ', ' + Inttostr(p.y));  
  63.  end;}    
  64. end;    
  65.   
  66.   
  67. procedure TFrm_main.FormCreate(Sender: TObject);   
  68. begin  
  69. wb1.Navigate('http://ha.17288.com');   
  70. end;   
  71.   
  72. end.   

fck_insertcode.rar

    1. 1
    2. 2