厦门装比博客(IT&电信&生活&博客) - PJblog

PJBLOG相关日志功能最终实现方案

zhuang5122@163.com(老庄) — Sun,02 Mar 2008 17:55:02 +0800

实现步骤：
　　1、找到博客根目录下的article.asp文件，用DW等编辑软件打开，找到最后一行代码：
　　
　　在其之前插入如下代码：

XML/HTML代码

2、动态日志模式下，找到class文件夹下的cls_article.asp文件，找到：

XML/HTML代码
Tags: <%=getTag.filterHTML(log_ViewArr(19,0))%>

在其下面添加：

XML/HTML代码
相关日志:

静态日志模式下，找到Template文件夹下的Article.asp文件，找到：

XML/HTML代码
引用通告地址: target="_blank"><$trackback$>

Tags: <$log_tag$>

在其下面加入：

XML/HTML代码
相关日志:

3、将如下代码保存为ajaxJS.js文件，放到博客根目录下：

XML/HTML代码
function $(id)
{
    return document.getElementById(id);
}
function echo(obj,html)
{
    $(obj).innerHTML=html;
}
function fopen(obj)
{
    $(obj).style.display="";
}
function fclose(obj)
{
    $(obj).style.display="none";
}
function createxmlhttp()
{
    var xmlhttp=false;
    try    {
          xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
     }
    catch (e) {
          try {
               xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
          }
        catch (e) {
               xmlhttp = false;
         }
     }
    if (!xmlhttp && typeof XMLHttpRequest!='undefined') {
          xmlhttp = new XMLHttpRequest();
                if (xmlhttp.overrideMimeType) {//设置MiME类别
            xmlhttp.overrideMimeType('text/xml');
        }
    }

    return xmlhttp;
}

function getdata(url,obj1,obj2)
{

        var xmlhttp=createxmlhttp();
        if(!xmlhttp)
        {
            alert("你的浏览器不支持XMLHTTP！！");
            return;
        }
        xmlhttp.onreadystatechange=requestdata;
        xmlhttp.open("GET",url,true);
        xmlhttp.send(null);
        function requestdata()
        {

                fopen(obj1);
                echo(obj1,"正在加载数据，请稍等......");
                if(xmlhttp.readyState==4)
                {
                    if(xmlhttp.status==200)
                    {
                        if(obj1!=obj2){fclose(obj1);};
                        echo(obj2,xmlhttp.responseText);

                    }
                }

        }
}
4、将以下代码保存为wbc_getarticle.asp文件，放到博客根目录下：

XML/HTML代码




<%

Dim id : id=CheckStr(request("id"))
if IsInteger(id) then
Dim temp_tags,Rs,OutPut,ifMore,total_rela,page,pagestr,listnum
    listnum = CheckStr(request("listnum"))
    If Not IsInteger(listnum) Then listnum = 10
    page = CheckStr(request("page"))
If Not IsInteger(page) Then page = 1
    if page < 1 then page = 1
    page = CLng(page)
    OutPut = ""
    pagestr = ""
ifMore = False
    if request("act")="more" then ifMore=True
    Set Rs=conn.execute("Select log_tag from blog_Content where log_ID="&id&"")
if not rs.eof Then
        If rs("log_tag")<>"" Then
            temp_tags=GetTagsql(rs("log_tag"))
            Getrelated temp_tags
        End If
    End If
    OutPut = "

"& OutPut &"" & vbcrlf & pagestr & vbcrlf
OutPut=replace(OutPut,chr(39),chr(34))
response.Write OutPut
Set rs=nothing
end If

Function GetTagsql(arrstr)
        Dim i,hayden_sqlTag : hayden_sqlTag = ""
        Dim hayden_tag : hayden_tag = arrstr
        hayden_tag=split(hayden_tag,"{")
        For i = 1 to Ubound(hayden_tag)
            If i > 1 Then hayden_sqlTaghayden_sqlTag=hayden_sqlTag & " or "
            hayden_sqlTaghayden_sqlTag = hayden_sqlTag & "log_tag like '%{" & hayden_tag(i) & "%' "
        Next
        GetTagsql = hayden_sqlTag
End Function

Function Getrelated(str_tag)
    Dim RsT,sql,ipage
    sql = ("Select log_Title,log_id,log_ViewNums from blog_Content where ("&temp_tags&") and log_ID<>"&id&" and log_IsDraft=False and log_CateID not in (select cate_id from blog_Category where cate_secret=True ) order by log_PostTime desc")
    set RsT=server.createobject("adodb.recordset")
    RsT.open sql,conn,1,1
    If Not (RsT.EOF or RsT.BOF) Then
        total_rela = RsT.recordcount
        RsT.MoveFirst
        RsT.PageSize = Int(listnum) '每页显示的条数
        If ifMore Then RsT.PageSize = total_rela
        If page < 1 Then page = 1
        If page > RsT.PageCount Then page = RsT.PageCount
        RsT.AbsolutePage = page
        For ipage = 1 To RsT.PageSize
            OutPutOutPut = OutPut & "

"&RsT(0)&"["&RsT(2)&"]

"
            RsT.MoveNext
            If RsT.EOF Then Exit For
        Next
        Getpageinfo RsT.PageCount
    End If
    RsT.close
    Set RsT = Nothing
End Function

Function Getpageinfo(str_pagecount)
    Dim i
    If str_pagecount>1 And Not Ifmore Then
        pagestr = "

"
        pagestrpagestr = pagestr & "分页: "
        For i = 1 To str_pagecount
             if page=i then
                    pagestrpagestr = pagestr & "["&i&"]"
             Elseif abs(page-i)<5 then'getdata('wbc_getarticle.asp?id="&id&"act=more','wbc_tag','wbc_tag')
                    pagestrpagestr = pagestr &"["&i&"]"
             end if
        Next
        pagestrpagestr = pagestr & "
"
        pagestrpagestr = pagestr & "模式: 全部显示[共"&total_rela&"个相关文章]"
    ElseIf str_pagecount=1 And Ifmore Then
        pagestrpagestr = pagestr & "模式: 分页显示[共"&total_rela&"个相关文章]"
    End If
    pagestrpagestr = pagestr & "

"

End Function
%>
呵呵,如果你觉得改动的地方过多,那么还可以下载WBC的相关日志插件来自动安装,效果是一样的哦~~~

下载地址:http://wingsfly.cn/LoadMod.asp?plugins=downloadForPJBlog

里面慢慢找吧,全是jpblog的插件哦

转载请注明,原文章地址：http://wingsfly.cn/article.asp?id=111 by:混乱羽翼 http;//wingsfly.cn

最全的PJBLOG后台插件大合集免费下载

zhuang5122@163.com(老庄) — Sun,02 Mar 2008 16:58:05 +0800

引用内容

最全的PJBLOG后台插件大合集免费下载（七十款绿色PJBLOG后台插件）原文网址：http://www.weike365.cn/article.asp?id=140
解压密码：www.weike365.cn  原文网址：http://www.weike365.cn/article.asp?id=140
http://www.weike365.cn/rouputuan/cpm.html原文网址：http://www.weike365.cn/article.asp?id=140
原文网址：http://www.weike365.cn/article.asp?id=140
后台插件使用比较简单而且安全，不需要去修改代码，这是PJBLOG爱好者最喜欢的资源。使用时直接解压到PJBLOG目录下的PLUGINS插件目录中，然后到后台去安装设置一下即可。原文网址：http://www.weike365.cn/article.asp?id=140
但是有一点需要提醒：由于插件过多，比如本站下载包中提供的后台插件，可能几个不同的插件都是为了同一功能，往往同种功能插件同时使用会相互干扰导致PJBLOG出现问题。所以使用时一点要注意。别犯这样的低级错误。另外个别插件由于宽度等问题可能与你所使用的皮肤样式界面有一定的小冲突，适当做一下修正即可。  原文网址：http://www.weike365.cn/article.asp?id=140
原文网址：http://www.weike365.cn/article.asp?id=140
以下为PJBLOG后台插件压缩包里列表和简明使用教程，如果有不明白处详见插件各自附带的说明文件：  原文网址：http://www.weike365.cn/article.asp?id=140
原文网址：http://www.weike365.cn/article.asp?id=140
AboutMePro（关于我们增强版）：PJBLOG自带有AboutMe插件，这个是“增强型”。安装完毕会生成一个专用的“关于我们”的页面，用来介绍站长及网站，如果懂点网页制作的话可以再修改增强或者美化一下。原文网址：http://www.weike365.cn/article.asp?id=140
album（向导PJ相册）：支持aspjpeg自动创建缩略图功能。可自定义数据库名称，安全可靠。独立数据库，方便管理。支持相片分类。支持相片评论。易于管理。可直接调用外部图片，直接填写完整图片路径后点发布即可。支持首页侧拦调用，可自定义首页调用图片尺寸，可自定义首页调用图片个数等等功能。原文网址：http://www.weike365.cn/article.asp?id=140
album TH（向导PJ相册繁体版）：功能见上或者阅读插件自带说明原文网址：http://www.weike365.cn/article.asp?id=140
ArticleVote（日志投票）：PJBLOG作者自己制作的一个后台插件，可以独立为每一篇日志投票。原文网址：http://www.weike365.cn/article.asp?id=140
ADsearch（google搜索插件）原文网址：http://www.weike365.cn/article.asp?id=140
BababianAlbum（巴巴相册PJBLOG后台集成插件）：此插件可以将巴巴变免费相册“集成”到PJBLOG的特定页面，或者把巴巴变相册里的某个图片当作日志发布到PJBLOG日志来。安装及使用步骤相对繁杂，请参看本站相关专题：http://www.weike365.cn/article.asp?id=103 原文网址：http://www.weike365.cn/article.asp?id=140
BlogGallery（PJBLOG2相册）：由JinnLynn制作的一个独立数据库的PJBLOG相册半成品，作者放弃了完善。原文网址：http://www.weike365.cn/article.asp?id=140
BlogWeather（PJBLOG天气预报插件）：PJBLOG作者PuterJam自己制作的一款PJBLOG天气预报插件，安装完毕后，可以在PJBLOG侧边栏实现一个天气预报专栏。原文网址：http://www.weike365.cn/article.asp?id=140
CoolSite（网络收藏夹插件）：作者：菊开那夜。该插件安装后可实现一个网站简介即链接收藏页面，可以把自己喜欢的网站收藏起来，数据库独立，支持网站链接的分类。原文网址：http://www.weike365.cn/article.asp?id=140
copyright（文章水印插件）：安装本插件后，可以实现禁止访客复制文章的功能，或者可设置成让别人复制走文章时在结尾或者段尾强制添加上该日志的网址。原文网址：http://www.weike365.cn/article.asp?id=140
CoverJF（简繁转换插件）：由于PJBLOG为UTF-8代码格式所以即支持简体中文又支持繁体中文，这个插件安装完毕后可以在日志前台生成一个“转换开关”。这样就方便了两岸三地甚至海外华人的使用或者访问PJBLOG。原文网址：http://www.weike365.cn/article.asp?id=140
CuizWeather（天气预报插件）：又一款天气预报插件，原作者：辣辣箭。原文网址：http://www.weike365.cn/article.asp?id=140
DatePlaner（行事历插件）：行程记事日历。作者：楓翎谷風。安装后会有一个独立页面用来记录自己的行程日历。原文网址：http://www.weike365.cn/article.asp?id=140
Dewplayer：一款非常简洁的单曲mp3播放器，支持后台选择歌曲；支持自定义音乐；支持自动播放；支持重复播放。原文网址：http://www.weike365.cn/article.asp?id=140
EliteArticle（精华日志插件）：用来标记精华日志，是推荐日志的一种方式。原文网址：http://www.weike365.cn/article.asp?id=140
EnglishXML（英语句子插件）：滚动的中英文对照句子，学习英语的好东东。安装完毕后会自动在日志内容页面的顶部生成界面。数据库独立，如果有兴趣可以自己更换。原文网址：http://www.weike365.cn/article.asp?id=140
exobudmusic（exobud防刷新弹出式播放器）：安装后会生成一个音乐播放器界面，音乐列表通过后台管理。原文网址：http://www.weike365.cn/article.asp?id=140
exobudp music（exobud播放器原版）：安装后会生成一个音乐播放器界面，音乐列表通过后台管理。原文网址：http://www.weike365.cn/article.asp?id=140
exobudpmusic tnb（忒牛屄防刷新弹出式播放器）：安装后会生成一个音乐播放器界面，音乐列表通过后台管理。原文网址：http://www.weike365.cn/article.asp?id=140
FlashCounter：FLASH版网站流量统计显示插件。原文网址：http://www.weike365.cn/article.asp?id=140
FlickrBadge（Flickr相册插件）：又一款免费相册集成插件，Flickr是国外一个免费相册空间，如果你是其用户的话，安装完毕后在后台设置一下Flickr帐号就可以使用了。网速等各方面因素，自行考虑是否使用。原文网址：http://www.weike365.cn/article.asp?id=140
GmailNotifier（GMail邮件提醒器简化版）：PJBLOG作者PuterJam编写，此为简化版。需要手动的在源文件中添加一下你的GMAIL帐号及密码。原文网址：http://www.weike365.cn/article.asp?id=140
GTMmusic auto（GTM防刷新音乐播放器自动版）：安装后会自动在PJBLOG侧边栏生成一音乐播放器界面，音乐及音乐列表分类通过后台管理。原文网址：http://www.weike365.cn/article.asp?id=140
GTMusic（GTM防刷新音乐播放器）：同上原文网址：http://www.weike365.cn/article.asp?id=140
GuestBookPro（留言本增强版）：对PJBLOG自带留言本的增强。原文网址：http://www.weike365.cn/article.asp?id=140
HotArticle（热点日志插件）：安装后会自动在PJBLOG侧边栏生成HotArticle（热点日志）列表，默认的显示PJBLOG中点击量最多的前十个日志列表。原文网址：http://www.weike365.cn/article.asp?id=140
JapaneseXML（日语句子插件）：类似英语句子插件。原文网址：http://www.weike365.cn/article.asp?id=140
KoreanXML（韩语句子插件）：类似英语句子插件。原文网址：http://www.weike365.cn/article.asp?id=140
LINK（FLASH版分页滚动友情链接）：同下原文网址：http://www.weike365.cn/article.asp?id=140
LINKMIX（FLASH版分页滚动友情链接）：此插件直接安装于Plugins中。但安装后不会出现在后台界面与插件目录下，需要手动设置如下：原文网址：http://www.weike365.cn/article.asp?id=140
1.在设置模块中添加新模块，模块标识及模块名称自定，并在其中添加如下HTML源代码：原文网址：http://www.weike365.cn/article.asp?id=140
http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" height="140" width="168" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000">原文网址：http://www.weike365.cn/article.asp?id=140
原文网址：http://www.weike365.cn/article.asp?id=140
原文网址：http://www.weike365.cn/article.asp?id=140
原文网址：http://www.weike365.cn/article.asp?id=140

$Link_Code$

更多链接…

原文网址：http://www.weike365.cn/article.asp?id=140
2.相对路径及文件长、宽可自定义。注意flash的相对路径要与您的文件相一致。附带了两个flash源文件，样式可自己用修改。以适应自己的风格，另外已经附带了三个现成的SWF友情链接。原文网址：http://www.weike365.cn/article.asp?id=140
3.添加修改友情链接，在link.xml中进行。原文网址：http://www.weike365.cn/article.asp?id=140
4.不支持火狐浏览器。原文网址：http://www.weike365.cn/article.asp?id=140
LoginPanel登录插件原文网址：http://www.weike365.cn/article.asp?id=140
moreArticle（相关文章插件菜刀版）原文网址：http://www.weike365.cn/article.asp?id=140
MyDo（计划任务插件）：在Blog中显示你设定的计划事件的完成进度、时间消逝度及持续时间段，督促你在预定的时间内完成预定的计划，避免偷懒，呵呵！支持图片或文字等多种显示方式。通过后台管理。原文网址：http://www.weike365.cn/article.asp?id=140
mp3player：一款漂亮的MP3音乐盒子，安装后自动在侧边生成界面，歌曲列表需要在mp3List.xml中编辑。原文网址：http://www.weike365.cn/article.asp?id=140
MusicPlayer：CenFun音乐盒子，设置和音乐添加通过该插件的基本设置或高级设置进行，导航条上的Music名称和位置可在日志分类管理中进行修改和排序。其他注意事项请参看附带的说明文件。原文网址：http://www.weike365.cn/article.asp?id=140
NiceHistory（历史上的今天插件，带数据库）原文网址：http://www.weike365.cn/article.asp?id=140
NiceHistoryN（历听上的今天插件，不带数据库）原文网址：http://www.weike365.cn/article.asp?id=140
PicasaWebReader（Picasa相册插件）：又一款免费相册插件，但须asp.net空间支持，而且据说该插件中隐藏有广告点击代码，请使用者注意。作者：Wintle. 原文网址：http://www.weike365.cn/article.asp?id=140
PicShowFlash（图片秀Flash版侧边栏插件）：安装后会在侧边栏生成FLASH图片秀，可以展示图片，图片上可以设置链接，还可以添加文字说明，相关设置在后台进行。原文网址：http://www.weike365.cn/article.asp?id=140
PJCssEdit（PJblog外观样式编辑器）：PJblog Style Editor是一款后台增强类插件,它用于在线编辑您Blog外观的CSS。是三栏风格爱好者的一把利器，有了它，以后不用一遍一遍地调试定位和一遍一遍地上传FTP了原文网址：http://www.weike365.cn/article.asp?id=140
QQ_Online_Status（QQ在线状态插件）：作者：crazy_quanta 菜雨，关于此插件的作用没什么可说的。不过八卦点的说，QQ相关插件尽然不是PJBLOG作者PuterJam编写，而是由其他爱好者所编写，好像PJ也没有编写过任何QQ相关插件，真是有点纳闷。原文网址：http://www.weike365.cn/article.asp?id=140
Random（随机日志插件）：Random Article 1.0 bata For PJBlog2 Plugin，作者：菊开那夜，可以参看本站侧边栏，可以设定随机日志的个数。原文网址：http://www.weike365.cn/article.asp?id=140
rssBlog2.5（Blog手拉手）：展示友情BLOG指定数目的文章链接，通过后台设置。注意RSS地址的格式和正确性即可。原文网址：http://www.weike365.cn/article.asp?id=140
skinswitch（皮肤切换器）：当有多个PJBLOG皮肤需要访客自行选择时，可以安装这个皮肤切换器，安装后会在前台生成界面，后台管理皮肤列表。原文网址：http://www.weike365.cn/article.asp?id=140
请参看PJBLOG百款皮肤及皮肤制作相关专题：http://www.weike365.cn/article.asp?id=375原文网址：http://www.weike365.cn/article.asp?id=140
http://www.weike365.cn/article.asp?id=376 原文网址：http://www.weike365.cn/article.asp?id=140
Subscibe（RSS订阅代码插件）：可以将你的PJBLOG订阅到国内外很多RSS阅读网站，注意RSS地址的格式和正确性即可。原文网址：http://www.weike365.cn/article.asp?id=140
SiteFocus（侧边栏站点聚焦插件）：支持五个158×118大小图片轮换展示的站点聚焦插件。可以通过基本设置进行图片及每个图片的链接以及聚焦显示和文字显示的高度。原文网址：http://www.weike365.cn/article.asp?id=140
TagsSidebar（侧边栏标签列表插件）：原文网址：http://www.weike365.cn/article.asp?id=140
1. 重新编写全部代码，使用AJAX实现，运行效率更高原文网址：http://www.weike365.cn/article.asp?id=140
2. 可伸缩的显示界面，并且可以选择Tag数量原文网址：http://www.weike365.cn/article.asp?id=140
3. 自适应不同宽度的侧边栏原文网址：http://www.weike365.cn/article.asp?id=140
4. 可选择字体显示方式，更适合侧边栏显示原文网址：http://www.weike365.cn/article.asp?id=140
5. 独立运作，不影响官方Tag.asp页面原文网址：http://www.weike365.cn/article.asp?id=140
TimeCounter（倒计时插件）：可以通过后台设置倒计时时间。可以精确到秒。还可以用代码自由定义计时牌的样式。原文网址：http://www.weike365.cn/article.asp?id=140
VoteSun（FLASH投票调查插件）：安装后会在侧边栏生成投票界面，投票选项需要通过添加和管理。原文网址：http://www.weike365.cn/article.asp?id=140
WBC Tongxunlu（WBC通讯录插件）：安装后会生成一个方便来访者填写通讯方式的志用页面。管理员可以管理。安装方法如下：1.把解压后的文件夹内的所有文件上载至BLOG主目录。2.进入blog后台--> 日志分类管理--> 添加日志分类-->标题填：通讯录外部链接填：wbc_addresslist.asp-->保存日志分类-->OK。3.通讯录的自定义设置：登录你的blog后，进入你的通讯录，然后点 “管理”。原文网址：http://www.weike365.cn/article.asp?id=140
wbc_cleaner_n（无用附件清除插件，无防盗链版本）原文网址：http://www.weike365.cn/article.asp?id=140
wbc_cleaner（无用附件清除插件，本站防盗链版本）原文网址：http://www.weike365.cn/article.asp?id=140
WBC_GetSkins（自动获取其他PJBLOG皮肤界面的插件）原文网址：http://www.weike365.cn/article.asp?id=140
wbc_online_n（online外部IP库）原文网址：http://www.weike365.cn/article.asp?id=140
wbc online（online本地IP库）原文网址：http://www.weike365.cn/article.asp?id=140
wbc_online（WBC访客在线插件）：安装后会在侧边栏出现，可参见本站侧边栏。显示参数通过后台管理。原文网址：http://www.weike365.cn/article.asp?id=140
WeatherSun：又一款天气预报插件。原文网址：http://www.weike365.cn/article.asp?id=140
WMPForPJBlog（WMP播放器插件）：PJBLOG作者编写，设置选项如下：原文网址：http://www.weike365.cn/article.asp?id=140
播放列表；播放器模式：无控件模式、迷你模式、完整模式、隐藏模式；播放器宽度、高度；自动播放与否；原文网址：http://www.weike365.cn/article.asp?id=140
播放次数；音量；按比例伸展视频等等功能设置。原文网址：http://www.weike365.cn/article.asp?id=140
yupoo_pro_1.4（Yupoo相册插件增强版）：又一款免费相册插件，YUPOO与巴巴变是国内最有名气的两个免费相册空间，这个插件类似巴巴变相册插件，使用与安装也相当相似。当然你如果想使用得先申请YUPOO帐号。原文网址：http://www.weike365.cn/article.asp?id=140
注意此插件的目录，因为将其中的两个目录复制到PJBLOG根目录下。这个插件目录制作时不同于以上的那些插件，需要注意。
原文网址：http://www.weike365.cn/article.asp?id=140

pjblog各类好用的插件下载

zhuang5122@163.com(老庄) — Sun,02 Mar 2008 16:55:32 +0800

引用内容

PJBlog修改-后台显示所有留言评论
PjBlog修改-pjblog2 加密日志补丁程序 V1.0
PJBlog插件、程序、代码、皮肤(不断更新整理)
PJ Blog插件-友情链接加强版
PJblog插件-将你的RSS订阅到各大网站
PJBlog插件-vista首页公告
PJBlog插件-Ajax草稿自动保存v1.2
PJBlog插件-站点聚焦
PJBlog插件-网络收藏夹
PJBlog插件-百万格子式友情链接
PJBlog插件-Rss阅读器
PJBlog插件-个人档案加强版
PJBlog插件-在后台增加留言本头像
PJBlog插件-通讯录
PJBlog插件-无用附件清除
PJBlog插件-自动获取PJBlog皮肤
PJBlog插件-Ajax版文章评论
PJBlog插件-巴巴变相册插件-PJBaba 1.21 beta
PJBlog插件-行事历
PJBlog插件-最热日志
PJBlog插件-精华日志
PJBlog插件-QQ在线交谈
PJBlog插件-随机日志
PJBlog插件-皮肤选择器
PJ Blog插件-未来天气预报
PJBlog插件-倒数记时提醒
PJBlog插件-投票程序
PJBlog插件-防刷新的在线播放器
PJBlog插件-繁简转换器
PJBlog插件-相关日志
PJBlog插件-文章评分
PJBlog插件-英语句子
PJBlog插件-在线人员明细
PJBlog插件-给图片加上水印
PJBlog插件-自动读取Google与Alexa的PR值
PJBlog插件-美化版日语900句插件
PJBlog插件-Sytax Highlighter
PJBlog插件-详细在线列表显IP插件
PJBlog插件-旋木留言本
PJBlog插件-Flash播放器自动激活版
PJBlog插件-显示文件下载次数
PJBlog插件-QQ直播(QQLive)
PJBlog插件-Google PICASA WEB
PJBlog插件-心情涂鸦
PJ Blog插件-imageVue相册调用插件 v1.0
PJBlog插件-下载插件修改版（带上传模块）
PJBlog插件－GTMusic For PJBlog V1.0 防刷新播放器
PJBlog皮肤-llawn_black风格下載
PJBlog皮肤-简单风格iLoafer-2.1
PJBlog皮肤-简单蓝灰风格
PJBlog皮肤-满城尽带黄金甲 for PJBlog2.6（最新版）
PJBlog皮肤-猪2007
PJBlog皮肤-Smile V 1.0橙色
PJBlog皮肤-DokyoNo.2风格皮肤发布
PJBlog皮肤-AI-ONE 2007 | 灰色格调 | 二栏风格皮肤下载 | 含全部PSD文件
PJBlog皮肤 iKK-Clear/Green/Black For PJBlog2
pjblog皮肤--Hope

提供给大家参考，下载地址可以参考，需要注册就是，呵呵
http://www.main365.net

pjblog各类修改-1

zhuang5122@163.com(老庄) — Sun,02 Mar 2008 16:45:29 +0800

PJBlog修改-使系统自动填写验证码
在Blog根目录新建一个“*.asp”文件，在里面填写以下代码：

然后在footer.asp的最上面插入一句：

PJBlog修改-后台显示所有留言评论

把ConContent.asp文件的第659行的

<%=MultiPage(comm_Num,30,CurPage,aUrl,"","")%>

换成

<%=MultiPage(comm_Num,20,CurPage,aUrl,"","")%>

经典！PJBlog的日志栏目调用

zhuang5122@163.com(老庄) — Sun,02 Mar 2008 16:36:04 +0800

引用内容

1、创建调用处理页面-topblog.asp；
2、写入以下内容：

<%
getInfo(1)

Response.Charset = "UTF-8"
Response.Expires=60

Dim cate_ID,FeedCate,FeedTitle,memName,FeedRows
Dim showType,titleLength,authorLength,topLen

cate_ID=CheckStr(Request.QueryString("cateID"))

showType=Request.QueryString("showType")
titleLength=Request.QueryString("titleLength")
authorLength=Request.QueryString("authorLength")
topLen = Request.QueryString("topLen")
If Not isinteger(topLen) Then topLen = 10

if IsInteger(titleLength)=false then titleLength=20
if IsInteger(authorLength)=false then authorLength=6

FeedCate=False

IF IsInteger(cate_ID) = False Then
SQL="Select TOP "&topLen&" L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,C.cate_Name,C.cate_ID,log_IsTop FROM blog_Content AS L,blog_Category AS C Where C.cate_ID=L.log_cateID AND L.log_IsShow=true AND L.log_IsDraft=false and C.cate_Secret=false orDER BY log_IsTop,log_PostTime DESC"
Else
SQL="Select TOP "&topLen&" L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,C.cate_Name,C.cate_ID,log_IsTop FROM blog_Content AS L,blog_Category AS C Where log_cateID="&cate_ID&" AND C.cate_ID=L.log_cateID AND L.log_IsShow=true AND L.log_IsDraft=false and C.cate_Secret=false orDER BY log_IsTop,log_PostTime DESC"
FeedCate=True
End If
Dim RS,DisIMG,i
Set RS=Conn.ExeCute(SQL)
if RS.EOF or RS.BOF then
ReDim FeedRows(0,0)
else
if FeedCate then FeedTitle=SiteName & " - " & RS("cate_Name")
FeedRows=RS.getrows()
end if
RS.close
set RS=nothing
Conn.Close
Set Conn=Nothing

if ubound(FeedRows,1)=0 then
%>
document.write ("没有找到任何日志")
<%
else
for i=0 to ubound(FeedRows,2)
select case showType
case 1:
%>
document.write ("

<%=DateToStr(FeedRows(3,i),"Y-m-d")%>[\" target=\"_blank\"><%=toUnicode(FeedRows(4,i))%>]\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%>

")
<%
case 2:
%>
document.write ("

\" title=\"<%=toUnicode(FeedRows(2,i))%>\"><%=toUnicode(CutStr(FeedRows(2,i),authorLength))%>\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%>

")
<%
case 3:
%>
document.write ("

<%=DateToStr(FeedRows(3,i),"Y-m-d")%>\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%>

")
<%
case 4:
%>
document.write ("

\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\" style=\"color:#0469C4;TEXT-DECORATION: underline\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%>

")
<%
case else:
%>
document.write ("

\" title=\"<%=toUnicode(FeedRows(2,i))%>\"><%=toUnicode(CutStr(FeedRows(2,i),authorLength))%>[\" target=\"_blank\"><%=toUnicode(FeedRows(4,i))%>]\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%>

")
<%
end select

next
end if

function toUnicode(str) 'To Unicode
dim i, unicodeF, getUnicode
for i=1 to len(str)
unicodeF=Mid(str,i,1)
getUnicode=getUnicode & chr(38) & chr(35) & chr(120) & Hex(ascw(unicodeF)) & chr(59)
next
toUnicode=getUnicode
end function
%>

3、调用方法：
showType 输出类型,类型有五种
留空 = [分类]标题+作者
1 = [分类]标题+日期
2 = 标题+作者
3 = 标题+日期
4 = 标题

调用参数
titleLength        标题长度
authorLength   作者名称长度
TopLen              调用几条记录
cateID              调用栏目ID号

示例：

再测试一下，ohyeah，太开心了，看看我首页的调用效果多棒啊，真佩服这些写代码的牛人啊，真是无地自容啊，什么时候我也能自己写一段就牛逼了，接下来还要在首页调用精华日志，TAG等，还要接受考验，大家先去看看调用效果吧，嘿嘿。空间首页