PJBLOG 设置技巧

最新推荐文章于 2021-08-06 12:00:08 发布

weixin_33924312

最新推荐文章于 2021-08-06 12:00:08 发布

阅读量168

点赞数

原文链接：http://blog.51cto.com/shenyaoyuan/202126

版权

PJBLOG 后台查看访客IP/地址位置完全版

修改办法:

1.打开ConContent.asp文件在81行找到

<td width="100" nowrap="nowrap" class="TDHead">访客IP</td>
在后边一行中插入

<td nowrap="nowrap" class="TDHead">访客地理位置</td>
2.在91行中找到

<td nowrap><%=bCounter("coun_IP")%></td>
在后边插入

 <td nowrap><script src=" http://www.cz88.net/ip/ipcheckutf8.aspx?ip=<%=bCounter("coun_IP")%>"></script></td>

现在后台又不能正常显示IP的物理地址了，收录备忘。

工具条左右移位：

一般改一下皮肤文件夹里的layout.css相应段落代码即可，举例如下。

 /*---工具条--*/
 #sidebar{float:right;width:205px;

 /*---主内容--*/
 #mainContent{float:left;margin:3px 0 6px;width:640px

去掉皮肤版权说明：

修改BLOG根目录下的footer.asp文件

查找<%=SkinInfo%>字段，删除即可。

统计代码修改完整版：

1、打开common\library.asp文件，查找info_code(Str)，将以下函数替换原版函数就好。

程序代码

Function info_code(Str)
    Dim vOnline
    vOnline = getOnline
    Str = Replace(Str, "$blog_LogNums$", blog_LogNums)
    Str = Replace(Str, "$blog_CommNums$", blog_CommNums)
    Str = Replace(Str, "$blog_TbCount$", blog_TbCount)
    Str = Replace(Str, "$blog_MessageNums$", blog_MessageNums)
    Str = Replace(Str, "$blog_MemNums$", blog_MemNums)
    Str = Replace(Str, "$blog_VisitNums$", blog_VisitNums)
    Str = Replace(Str, "$blog_OnlineNums$", vOnline)
        '运行天数统计\n
    str=replace(str,"$blog_RunDays$",DateDiff ("d","2008-05-24",date))
        '今日评论数
    str=replace(str,"$Today_blog_CommNums$",Conn.ExeCute("Select COUNT(comm_ID) FROM blog_Comment Where Year(comm_PostTime)=Year(Now) and Month(comm_PostTime)=Month(Now) and Day(comm_PostTime)=Day(Now)")(0))
        '今日日志数
    str=replace(str,"$Today_blog_LogNums$",Conn.ExeCute("Select COUNT(log_ID) FROM blog_Content Where Year(log_PostTime)=Year(Now) and Month(log_PostTime)=Month(Now) and Day(log_PostTime)=Day(Now)")(0))
        '今日留言数
    str=replace(str,"$Today_MessageNums$",Conn.ExeCute("Select COUNT(book_id) FROM blog_book Where Year(book_PostTime)=Year(Now) and Month(book_PostTime)=Month(Now) and Day(book_PostTime)=Day(Now)")(0))
        '今日访问数
    str=replace(str,"$Today_VisitNums$",Conn.ExeCute("Select COUNT(coun_ID) FROM blog_Counter Where Year(coun_Time)=Year(Now) and Month(coun_Time)=Month(Now) and Day(coun_Time)=Day(Now)")(0))
        '今日引用数
    str=replace(str,"$Today_blog_TbCount$",Conn.ExeCute("Select COUNT(tb_ID) FROM blog_Trackback Where Year(tb_PostTime)=Year(Now) and Month(tb_PostTime)=Month(Now) and Day(tb_PostTime)=Day(Now)")(0))
        '待审链接数
        str=replace(str,"$blog_UnshownLinks$",Conn.ExeCute("Select COUNT(link_isshow) FROM blog_Links Where link_isshow=False")(0))
        '现有链接数
        str=replace(str,"$all_blog_Links$",Conn.ExeCute("Select COUNT(link_isshow) FROM blog_Links Where link_isshow=True")(0))
        '所有日志浏览量总和
    str=replace(str,"$All_ViewNums$",Conn.Execute("Select SUM(log_ViewNums) FROM blog_Content")(0))
        info_code=str
End Function

2、进入后台管理---界面与插件----设置模块---在“统计”，最右边选择“编辑HTML”，用下代码替换原来的。

程序代码

日志: <a href="default.asp">今日$Today_blog_LogNums$篇，总计$blog_LogNums$篇</a> 评论: <a href="search.asp?searchType=Comments">今日$Today_blog_CommNums$篇，总计$blog_CommNums$篇</a> 留言: <a href="LoadMod.asp?plugins=GuestBookFor PJBlog">今日$Today_MessageNums$条，总计$blog_MessageNums$条</a> 引用: <a href="search.asp?searchType=trackback">今日$Today_blog_TbCount$次，总计$blog_TbCount$次</a> 会员: <a href="member.asp">线上$blog_OnlineNums$人，总会员$blog_MemNums$人</a> 链接: <a href="bloglink.asp">待审$blog_UnshownLinks$个，现有$all_blog_Links$个</a> 访问: 今日$Today_VisitNums$次，总计$blog_VisitNums$人次 日志浏览总和: $All_ViewNums$ 次 建站日期: 2008-06-03 运行天数: $blog_RunDays$天

去除[本日志由 XX 于 2008-11-11 12:26 AM 编辑]字样～

PJ3下修改方法如下
全动态打开class\cls_article.asp文件，请在后台选择全动态日志模式，找到并删除下列代码：
<%if len(log_ViewArr(16,0))>0 then response.write (log_ViewArr(16,0)&"
")%>
半静态在Template目录修改文件Article.asp，请在后台选择半静态态日志模式，找到并删除下列代码：
<$log_Modify$>
全静态在Template目录修改文件static.htm，请在后台选择全静态态日志模式，找到并删除下列代码：
<$log_Modify$>

记得修改后在重新生成日志

转载于:https://blog.51cto.com/shenyaoyuan/202126