官方首页 | 无图版 | BBS首页
PJBlog3 3.0.6.170 新版发布 下载|升级(2008.12.25) 庆圣诞+2009元旦+新春-PJ模板征集活动开始啦！ 2008版 PJHOME 珍藏/纪念版官方T恤 正式发布！ PJ3内测团队主创人员身份，性格，特点吐血大曝光
PJBlog技术支持论坛使用问题总索引 PJBLOG 3 的心路历程 感谢有你 【独家】我使用过的三种空间，与客服的精彩故事 Z-Blog,Wordpress,Bo-Blog转换到PJBlog
腊月的白菜-都辛苦了！祝PJ所有成员和用户的新年快乐！ 苦咖啡个人BLOG-祝PJ越来越好 pjblog3资源收集-PJ加油 Feln's Blog-你们辛苦了啊 ～～
听雨轩-继续努力。。期待着PJ4的在线安装插件 cludechn's blog-加油，以后能有更好的版本推出 移动3G-3G改变生活 爱之音-希望PJ3最终版能加入附件批量上传的功能哈
‹‹ 上一主题 | 下一主题 ››
 26 123
发新话题
打印

[插件修改] 日志加密 For PJBlog v2.7 手动修改方法

Rison

羽白

｛PJFORUM版主｝

Rank: 32Rank: 32

『插件区 斑竹』

UID
27015 
帖子
912 
精华
5 
积分
14252 
PJ币
5385 元 
专长
 
在线时间
1329 小时 
注册时间
2006-12-27 
1# 大 中 小 发表于 2008-2-20 15:06  只看该作者

日志加密 For PJBlog v2.7 手动修改方法

由于日志加密插件修改文件较多，许多博友想要个手动修改的方法，为方便修改源代码较多的博友使用上该插件，昨天有些空闲时间，就整理了一下修改内容，现将日志加密功能的手动修改方法发出来，大家也可以根据自己个性化需要再加工。

PS：另外近期想为日志加密插件添加个密码提示输入选项，不知道大家觉得是否有必要？

好了，废话少说，开工.....
一共修改9个文件，首先请备份这9个文件（article.asp、blogpost.asp、blogedit.asp、ConContent.asp、atom.asp、feed.asp、class/cls_logAction.asp、class/cls_default.asp、class/cls_article.asp），不要在你的博客源程序上修改，要在备份文件上修改，之后将修改完的文件放到插件文件夹MBS_Secret里的code文件夹里，不是上传覆盖你的博客源程序。

建议大家使用附件压缩包里的一个文本文件修改，在论坛粘贴代码的过程中难免会发生错误的情况，导致很多人修改失败，压缩包中的文本文件很清楚的说明了修改方法，请参照修改！

详情查看：http://www.snailstory.cn/blog/article.asp?id=152

---------------------------------------------------------------------------------------------------------
1、article.asp文件的修改（共两步）
---------------------------------------------------------------------------------------------------------
第一步【找到】:
复制内容到剪贴板
代码:
SQL="Select top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment FROM blog_Content Where log_ID="&id" and log_IsDraft=false"
【替换为】:
复制内容到剪贴板
代码:
SQL="Select top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_Readpw FROM blog_Content Where log_ID="&id" and log_IsDraft=false"
第二步【找到】:
复制内容到剪贴板
代码:
SQL="Select top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_Content,log_PostTime,log_edittype,log_ubbFlags,log_CommNums,log_QuoteNums,log_weather,log_level,log_Modify,log_FromUrl,log_From,log_tag FROM blog_Content Where log_ID="&id" and log_IsDraft=false"
【替换为】:
复制内容到剪贴板
代码:
SQL="Select top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_Content,log_PostTime,log_edittype,log_ubbFlags,log_CommNums,log_QuoteNums,log_weather,log_level,log_Modify,log_FromUrl,log_From,log_tag,log_Readpw FROM blog_Content Where log_ID="&id" and log_IsDraft=false"
---------------------------------------------------------------------------------------------------------
2、blogedit.asp文件的修改（共两步）
---------------------------------------------------------------------------------------------------------
第一步【找到】:
复制内容到剪贴板
代码:
lArticle.logPublishTimeType = request.form("PubTimeType")
【在下面添加】:
复制内容到剪贴板
代码:
lArticle.logReadpw = Trim(request.form("log_Readpw"))
第二步【找到】:
复制内容到剪贴板
代码:
<td align="left"><span style="font-weight: bold">来自:</span>   
    <input name="log_From" type="text" id="log_From" size="12" class="inputBox" value="<%=lArticle.logFrom%>" />   
    <span style="font-weight: bold">网址:</span>   
    <input name="log_FromURL" type="text" id="log_FromURL" size="38" class="inputBox" value="<%=lArticle.logFromURL%>"/>   
  </td>
【替换为】:
复制内容到剪贴板
代码:
<td align="left"><span style="font-weight: bold">来自:</span>   
    <input name="log_From" type="text" id="log_From" size="10" class="inputBox" value="<%=lArticle.logFrom%>" />   
    <span style="font-weight: bold">网址:</span>   
    <input name="log_FromURL" type="text" id="log_FromURL" size="37" class="inputBox" value="<%=lArticle.logFromURL%>"/>   
    <span style="font-weight: bold">加密:</span>      
    <input name="log_Readpw" type="password" id="log_Readpw" size="8" class="inputBox" value="<%=lArticle.logReadpw%>" />   
  </td>
---------------------------------------------------------------------------------------------------------
3、blogpost.asp文件的修改（共两步）
---------------------------------------------------------------------------------------------------------
第一步【找到】:
复制内容到剪贴板
代码:
lArticle.logPublishTimeType = request.form("PubTimeType")
【在下面添加】:
复制内容到剪贴板
代码:
lArticle.logReadpw = Trim(request.form("log_Readpw"))
第二步【找到】:
复制内容到剪贴板
代码:
<td align="left"><span style="font-weight: bold">来自:</span>
    <input name="log_From" type="text" id="log_From" value="本站原创" size="12" class="inputBox" />
    <span style="font-weight: bold">网址:</span>   
    <input name="log_FromURL" type="text" id="log_FromURL" value="<%=siteURL%>" size="38" class="inputBox" />
  </td>
【替换为】:
复制内容到剪贴板
代码:
<td align="left"><span style="font-weight: bold">来自:</span>   
    <input name="log_From" type="text" id="log_From" value="本站原创" size="10" class="inputBox" />   
    <span style="font-weight: bold">网址:</span>   
    <input name="log_FromURL" type="text" id="log_FromURL" value="<%=siteURL%>" size="37" class="inputBox" />   
    <span style="font-weight: bold">加密:</span>      
    <input name="log_Readpw" type="password" id="Readpw" size="8" class="inputBox" />   
  </td>
---------------------------------------------------------------------------------------------------------
4、ConContent.asp文件的修改（共一步）
---------------------------------------------------------------------------------------------------------
【找到】:
复制内容到剪贴板
代码:
if KeepTable=False Then InstallPlugingSetting "",UnPlugName,"delete"
【替换为】:
复制内容到剪贴板
代码:
          if KeepTable=False Then
                                                InstallPlugingSetting "",UnPlugName,"delete"
                                                If UnPlugName = "MBSSecretForPJBlog" Then
                                                        Dim FSO,sTmpPath
                                                        sTmpPath = "BackUp\Secretbak" '设置备份文件夹
                                                        Set FSO = Server.CreateObject("Scripting.FileSystemObject")
                                                        If FSO.folderexists(Server.mappath(sTmpPath)) Then '检查备份文件夹是否存在
                                                                '开始还原文件
                                                                sTmpPath = sTmpPath&"/"
                                                                FSO.CopyFile Server.MapPath(sTmpPath&"article.asp.mbs"),Server.MapPath("article.asp"),True
                                                                FSO.CopyFile Server.MapPath(sTmpPath&"blogpost.asp.mbs"),Server.MapPath("blogpost.asp"),True
                                                                FSO.CopyFile Server.MapPath(sTmpPath&"blogedit.asp.mbs"),Server.MapPath("blogedit.asp"),True
                                                                FSO.CopyFile Server.MapPath(sTmpPath&"feed.asp.mbs"),Server.MapPath("feed.asp"),True
                                                                FSO.CopyFile Server.MapPath(sTmpPath&"atom.asp.mbs"),Server.MapPath("atom.asp"),True
                                                                FSO.CopyFile Server.MapPath(sTmpPath&"wap.asp.mbs"),Server.MapPath("wap.asp"),True
                                                                FSO.CopyFile Server.MapPath(sTmpPath&"ConContent.asp.mbs"),Server.MapPath("ConContent.asp"),True
                                                                FSO.CopyFile Server.MapPath(sTmpPath&"cls_default.asp.mbs"),Server.MapPath("class"&"/"&"cls_default.asp"),True
                                                                FSO.CopyFile Server.MapPath(sTmpPath&"cls_logAction.asp.mbs"),Server.MapPath("class"&"/"&"cls_logAction.asp"),True
                                                                FSO.CopyFile Server.MapPath(sTmpPath&"cls_article.asp.mbs"),Server.MapPath("class"&"/"&"cls_article.asp"),True
                                                                FSO.CopyFile Server.MapPath(sTmpPath&"cls_wap.asp.mbs"),Server.MapPath("class"&"/"&"cls_wap.asp"),True
                                                                '删除备份文件
                                                                FSO.DeleteFile server.MapPath(sTmpPath&"article.asp.mbs"),true
                                                                FSO.DeleteFile server.MapPath(sTmpPath&"blogpost.asp.mbs"),true
                                                                FSO.DeleteFile server.MapPath(sTmpPath&"blogedit.asp.mbs"),true
                                                                FSO.DeleteFile server.MapPath(sTmpPath&"feed.asp.mbs"),true
                                                                FSO.DeleteFile server.MapPath(sTmpPath&"atom.asp.mbs"),true
                                                                FSO.DeleteFile server.MapPath(sTmpPath&"wap.asp.mbs"),true
                                                                FSO.DeleteFile server.MapPath(sTmpPath&"ConContent.asp.mbs"),true
                                                                FSO.DeleteFile server.MapPath(sTmpPath&"cls_default.asp.mbs"),true
                                                                FSO.DeleteFile server.MapPath(sTmpPath&"cls_logAction.asp.mbs"),true
                                                                FSO.DeleteFile server.MapPath(sTmpPath&"cls_article.asp.mbs"),true
                                                                FSO.DeleteFile server.MapPath(sTmpPath&"cls_wap.asp.mbs"),true
                                                        End If
                                                        Set FSO = Nothing
                                                End If
                                        End If
---------------------------------------------------------------------------------------------------------
5、atom.asp文件的修改（共四步）
---------------------------------------------------------------------------------------------------------
第一步【找到】:
复制内容到剪贴板
代码:
SQL="Select TOP 10 L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,L.log_Content,L.log_edittype,C.cate_Name,C.cate_ID 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_PostTime DESC"
【替换为】:
复制内容到剪贴板
代码:
SQL="Select TOP 10 L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,L.log_Content,L.log_edittype,C.cate_Name,C.cate_ID,L.log_Readpw 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_PostTime DESC"
第二步【找到】:
复制内容到剪贴板
代码:
SQL="Select TOP 10 L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,L.log_Content,L.log_edittype,C.cate_Name,C.cate_ID 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_PostTime DESC"
【替换为】:
复制内容到剪贴板
代码:
SQL="Select TOP 10 L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,L.log_Content,L.log_edittype,C.cate_Name,C.cate_ID,L.log_Readpw 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_PostTime DESC"
第三步【找到】:
复制内容到剪贴板
代码:
<title type="html"><![CDATA[<%=FeedRows(1,i)%>]]></title>
【替换为】:
复制内容到剪贴板
代码:
<%   
        If IsNull(FeedRows(8,i)) Or Trim(FeedRows(8,i)) = "" Or IsEmpty(FeedRows(8,i)) Then   
        %>   
  <title type="html"><![CDATA[<%=FeedRows(1,i)%>]]></title>   
<% Else %>   
<title type="html"><![CDATA[加密日志]]></title>   
<% End If %>
第四步【找到】:
复制内容到剪贴板
代码:
<%      
         IF FeedRows(5,i)=0 then   
            Response.Write("<summary type=""html""><![CDATA["&AddSiteURL(UnCheckStr(FeedRows(4,i)))"]]&gt;</summary>")   
           else   
            Response.Write("<summary type=""html""><![CDATA["&AddSiteURL(UBBCode(HTMLEncode(FeedRows(4,i)),0,0,0,1,1))"]]&gt;</summary>")   
  end if   
%>
【替换为】:
复制内容到剪贴板
代码:
<%      
IsNull(FeedRows(8,i)) Or Trim(FeedRows(8,i)) = "" Or IsEmpty(FeedRows(8,i)) Then   
         IF FeedRows(5,i)=0 then   
             Response.Write("<summary type=""html""><![CDATA["&AddSiteURL(UnCheckStr(FeedRows(4,i)))"]]&gt;</summary>")   
            else   
             Response.Write("<summary type=""html""><![CDATA["&AddSiteURL(UBBCode(HTMLEncode(FeedRows(4,i)),0,0,0,1,1))"]]&gt;</summary>")   
   end if   
Else   
Response.Write("<summary type=""html""><![CDATA[这是篇<b>加密日志</b>，请到 "&SiteName" 的首页查看!]]&gt;</summary>")   
End If   
%>
---------------------------------------------------------------------------------------------------------
6、feed.asp文件的修改（共四步）
---------------------------------------------------------------------------------------------------------
第一步【找到】：
复制内容到剪贴板
代码:
SQL="Select TOP 10 L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,L.log_Content,L.log_edittype,C.cate_Name 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_PostTime DESC"
【替换为】:
复制内容到剪贴板
代码:
SQL="Select TOP 10 L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,L.log_Content,L.log_edittype,C.cate_Name,L.log_IsShow,L.log_Readpw 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_PostTime DESC"
第二步【找到】:
复制内容到剪贴板
代码:
SQL="Select TOP 10 L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,L.log_Content,L.log_edittype,C.cate_Name 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_PostTime DESC"
【替换为】:
复制内容到剪贴板
代码:
SQL="Select TOP 10 L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,L.log_Content,L.log_edittype,C.cate_Name,L.log_IsShow,L.log_Readpw 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_PostTime DESC"
第三步【找到】:
复制内容到剪贴板
代码:
<title><![CDATA[<%=FeedRows(1,i)%>]]></title>
【替换为】:
复制内容到剪贴板
代码:
<%   
        If IsNull(FeedRows(8,i)) Or Trim(FeedRows(8,i)) = "" Or IsEmpty(FeedRows(8,i)) Then   
        %>   
        <title><![CDATA[<%=FeedRows(1,i)%>]]></title>   
       <% Else %>   
        <title><![CDATA[加密日志]]></title>   
        <% End If %>
第四步【找到】:
复制内容到剪贴板
代码:
<%   
    'IF RS("log_IsShow")=False Then   
    '   Response.Write("<description><![CDATA[这是篇隐藏日志，请到 "&SiteName&" 的首页查看!]]&gt;</description>")   
    'Else   
          IF FeedRows(5,i)=0 then   
              Response.Write("<description><![CDATA["&AddSiteURL(UnCheckStr(FeedRows(4,i)))"]]&gt;</description>")   
             else   
              Response.Write("<description><![CDATA["&AddSiteURL(UBBCode(HTMLEncode(FeedRows(4,i)),0,0,0,1,1))"]]&gt;</description>")   
       end if   
    'End IF   
%>
【替换为】:
复制内容到剪贴板
代码:
<%   
    If FeedRows(7,i)=False Then   
        Response.Write("<description><![CDATA[这是篇<b>隐藏日志</b>，请到 "&SiteName" 的首页查看!]]&gt;</description>")   
    Else   
        If IsNull(FeedRows(8,i)) Or Trim(FeedRows(8,i)) = "" Or IsEmpty(FeedRows(8,i)) Then   
          IF FeedRows(5,i)=0 then   
              Response.Write("<description><![CDATA["&AddSiteURL(UnCheckStr(FeedRows(4,i)))"]]&gt;</description>")   
             else   
              Response.Write("<description><![CDATA["&AddSiteURL(UBBCode(HTMLEncode(FeedRows(4,i)),0,0,0,1,1))"]]&gt;</description>")   
       end if   
        Else   
            Response.Write("<description><![CDATA[这是篇<b>加密日志</b>，请到 "&SiteName" 的首页查看!]]&gt;</description>")   
        End If   
    End IF   
%>
---------------------------------------------------------------------------------------------------------
7、class/cls_article.asp文件的修改（共三步）
---------------------------------------------------------------------------------------------------------
第一步【找到】:
复制内容到剪贴板
代码:
<div class="Content">   
  <div class="Content-top"><div class="ContentLeft"></div><div class="ContentRight"></div>   
    <h1 class="ContentTitle"><strong><%=HtmlEncode(log_ViewArr(2,0))%></strong></h1>   
【替换为】:
复制内容到剪贴板
代码:
<%   
                Dim ChkReadPW   
                ChkReadPW = Trim(Request("PW"))   
                If ChkReadPW = "" Then     
                    ChkReadPW = Session("MeBox_ReadPassWord_"&LogID)   
                Else     
                    Session("MeBox_ReadPassWord_"&LogID) = ChkReadPW   
                End If   
                '密码验证错误次数   
                If IsNull(Session("MeBox_chkpwErr_"&LogID)) Or IsEmpty(Session("MeBox_chkpwErr_"&LogID)) Then Session("MeBox_chkpwErr_"&LogID) = 0   
                %>   
               <div class="Content">   
               <div class="Content-top"><div class="ContentLeft"></div><div class="ContentRight"></div>   
                 <h1 class="ContentTitle"><strong>   
                     <% If log_ViewArr(20,0) = "" Or IsNull(log_ViewArr(20,0)) Or Trim(log_ViewArr(20,0)) = ChkReadPW or stat_Admin Or Not bShowTopic Then '密码访问 Then   
                     %>   
                     <%=HtmlEncode(log_ViewArr(2,0))%>   
                     <% Else %>   
                     [加密日志]   
                     <% End If %>   
                     </strong></h1>   
第二步【找到】:
复制内容到剪贴板
代码:
<div id="logPanel" class="Content-body">   
<%   
【在下面添加】:
复制内容到剪贴板
代码:
If Session("MeBox_chkpwErr_"&LogID) >= 3 Then   
        %>   
        <script>alert("密码已连续错误<%=Session("MeBox_chkpwErr_"&LogID)%>次，该日志已被锁定暂时不可以查看！");</script>   
        该日志是<b>加密日志</b>，你输入的密码已连续错误<%=Session("MeBox_chkpwErr_"&LogID)%>次，你的IP已被记录日志已被锁定暂时不可以查看！

   
        <%   
    ElseIf log_ViewArr(20,0) = "" Or IsNull(log_ViewArr(20,0)) Or Trim(log_ViewArr(20,0)) = ChkReadPW or stat_Admin Then
第三步【找到】:
复制内容到剪贴板
代码:
response.write (highlight(UnCheckStr(log_ViewArr(8,0)),keyword))   
    end if%>   
【替换为】:
复制内容到剪贴板
代码:
response.write (highlight(UnCheckStr(log_ViewArr(8,0)),keyword))   
     'response.write (content)     
    end if   
Else   
    If Trim(Request.Form("do")) = "chkpw" Then   
        Session("MeBox_chkpwErr_"&LogID) = Session("MeBox_chkpwErr_"&LogID) + 1   
    %>   
    <script>alert("密码错误，请输入正确的密码！");</script>   
    <%   
    End If   
%>   
<form id="chkread" name="chkread" method="post" action="">   
该日志是<b>加密日志</b>，需要输入密码才可以查看！

   
<label>   
请输入访问密码: <input name="pw" type="password" id="pw" size="10" class="inputBox" /><input name="do" type="hidden" value="chkpw" />　   
<input type="submit" name="Submit" value="确　定" class="userbutton" />   
</label>   
</form>   
<%   
End If      
        %>   
---------------------------------------------------------------------------------------------------------
8、class/cls_default.asp文件的修改（共九步）
---------------------------------------------------------------------------------------------------------
第一步【找到】:
复制内容到剪贴板
代码:
strSQL="log_ID,log_CateID,log_Author,log_Title,log_PostTime,log_IsShow,log_CommNums,log_QuoteNums,log_ViewNums,log_IsTop"   
【替换为】:
复制内容到剪贴板
代码:
strSQL="log_ID,log_CateID,log_Author,log_Title,log_PostTime,log_IsShow,log_CommNums,log_QuoteNums,log_ViewNums,log_IsTop,log_Readpw"
第二步【找到】:
复制内容到剪贴板
代码:
strSQL="log_ID,log_CateID,log_Author,log_Title,log_PostTime,log_IsShow,log_CommNums,log_QuoteNums,log_ViewNums,log_IsTop,log_Intro,log_Content,log_edittype,log_DisComment,log_ubbFlags,log_tag"   
【替换为】:
复制内容到剪贴板
代码:
strSQL="log_ID,log_CateID,log_Author,log_Title,log_PostTime,log_IsShow,log_CommNums,log_QuoteNums,log_ViewNums,log_IsTop,log_Intro,log_Content,log_edittype,log_DisComment,log_ubbFlags,log_tag,log_Readpw"   
第三步【找到】:
复制内容到剪贴板
代码:
' ----------------------- 输出普通模式--------------------   
function OutNomal(webLogArr,PageCount,getCate,CanRead)   
        if getCate.cate_Secret then   
          if not stat_ShowHiddenCate and not stat_Admin then exit function   
        end if   
【在下面添加】:
复制内容到剪贴板
代码:
dim bReadPW   
bReadPW = false   
If Trim(webLogArr(16,PageCount)) = "" Or isNull(Trim(webLogArr(16,PageCount))) Or  Session("MeBox_ReadPassWord_"&webLogArr(0,PageCount)) = Trim(webLogArr(16,PageCount)) or stat_Admin  Then bReadPW = true   
第四步【找到】:
复制内容到剪贴板
代码:
<%If CanRead Then%>   
    <a class="titleA" href="article.asp?id=<%=webLogArr(0,PageCount)%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>   
【替换为】:
复制内容到剪贴板
代码:
<%If CanRead Then   
            If bReadPW Then '密码访问   
        %>  <a class="titleA" href="article.asp?id=<%=webLogArr(0,PageCount)%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>   
            <%Else%>   
                <% If Not bShowTopic Then %>   
      <a class="titleA" href="article.asp?id=<%=webLogArr(0,PageCount)%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>   
                <% Else %>   
                <a class="titleA" href="article.asp?id=<%=webLogArr(0,PageCount)%>">[加密日志]</a>   
                <% End If %>   
            <%End If%>   
第五步【找到】:（这段代码有两段一样的，这是第一段）
复制内容到剪贴板
代码:
<img src="images/icon_lock.gif" style="margin:0px 0px -3px 2px;" alt="" />   
【在下面添加】:
复制内容到剪贴板
代码:
<%elseif (Trim(webLogArr(16,PageCount)) <> "" And Not isNull(Trim(webLogArr(16,PageCount))))then %>   
    <img src="<%=sSecretImg%>" style="margin:0px 0px -3px 2px;" alt="" />   
第六步【找到】:
复制内容到剪贴板
代码:
if webLogArr(12,PageCount)=1 then%>   
            <div class="Content-body"><%=UnCheckStr(UBBCode(webLogArr(10,PageCount),mid(webLogArr(14,PageCount),1,1),mid(webLogArr(14,PageCount),2,1),mid(webLogArr(14,PageCount),3,1),mid(webLogArr(14,PageCount),4,1),mid(webLogArr(14,PageCount),5,1)))%>   
            <%if webLogArr(10,PageCount)<>HtmlEncode(webLogArr(11,PageCount)) then%>   
                <p><a href="article.asp?id=<%=webLogArr(0,PageCount)%>" class="more">查看更多...</a></p>   
            <%end if%>   
    <%else%>   
            <div class="Content-body"><%=UnCheckStr(webLogArr(10,PageCount))%>   
            <%if webLogArr(10,PageCount)<>webLogArr(11,PageCount) then%>   
                <p><a href="default.asp?id=<%=webLogArr(0,PageCount)%>" class="more">查看更多...</a></p>   
            <%end if   
    end if   
【替换为】:
复制内容到剪贴板
代码:
If bReadPW Then
if webLogArr(12,PageCount)=1 then%>   
        <div class="Content-body"><%=UnCheckStr(UBBCode(webLogArr(10,PageCount),mid(webLogArr(14,PageCount),1,1),mid(webLogArr(14,PageCount),2,1),mid(webLogArr(14,PageCount),3,1),mid(webLogArr(14,PageCount),4,1),mid(webLogArr(14,PageCount),5,1)))%>   
        <%if webLogArr(10,PageCount)<>HtmlEncode(webLogArr(11,PageCount)) then%>   
            <p><a href="article.asp?id=<%=webLogArr(0,PageCount)%>" class="more">查看更多...</a></p>   
        <%end if%>   
<%else%>   
        <div class="Content-body"><%=UnCheckStr(webLogArr(10,PageCount))%>   
        <%if webLogArr(10,PageCount)<>webLogArr(11,PageCount) then%>   
            <p><a href="default.asp?id=<%=webLogArr(0,PageCount)%>" class="more">查看更多...</a></p>   
        <%end if   
end if   
Else%>   
<% If Not bShowIntro Then     
            if webLogArr(12,PageCount)=1 then%>   
                    <div class="Content-body"><%=UnCheckStr(UBBCode(webLogArr(10,PageCount),mid(webLogArr(14,PageCount),1,1),mid(webLogArr(14,PageCount),2,1),mid(webLogArr(14,PageCount),3,1),mid(webLogArr(14,PageCount),4,1),mid(webLogArr(14,PageCount),5,1)))%>   
                    <%if webLogArr(10,PageCount)<>HtmlEncode(webLogArr(11,PageCount)) then%>   
                        <p><a href="article.asp?id=<%=webLogArr(0,PageCount)%>" class="more">查看更多...</a></p>   
                    <%end if%>   
            <%else%>   
                    <div class="Content-body"><%=UnCheckStr(webLogArr(10,PageCount))%>   
                    <%if webLogArr(10,PageCount)<>webLogArr(11,PageCount) then%>   
                        <p><a href="default.asp?id=<%=webLogArr(0,PageCount)%>" class="more">查看更多...</a></p>   
                    <%end if   
            end if   
   Else %>   
<div class="Content-body">该日志是<b>加密日志</b>，需要输入密码才可以查看！   
<% End If %>   
<%   
End If   
第七步【找到】:
复制内容到剪贴板
代码:
' ----------------------- 输出列表模式 --------------------   
function OutList(webLogArr,PageCount,getCate,ViewDraft,CanRead)   
        dim logLink,logIcon   
        if getCate.cate_Secret then   
          if not stat_ShowHiddenCate and not stat_Admin then exit function   
        end if%>   
【替换为】:
复制内容到剪贴板
代码:
' ----------------------- 输出列表模式 --------------------   
function OutList(webLogArr,PageCount,getCate,ViewDraft,CanRead)   
        dim logLink,logIcon   
        if getCate.cate_Secret then   
          if not stat_ShowHiddenCate and not stat_Admin then exit function   
        end if   
        dim bReadPW   
        bReadPW = false   
        If Trim(webLogArr(10,PageCount)) = "" Or isNull(Trim(webLogArr(10,PageCount))) Or  Session("MeBox_ReadPassWord_"&Trim(webLogArr(0,PageCount))) = Trim(webLogArr(10,PageCount)) or stat_Admin  Then bReadPW = true   
        %>   
第八步【找到】:
复制内容到剪贴板
代码:
<%If CanRead Then%>   
    <a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>   
【替换为】:
复制内容到剪贴板
代码:
<%If CanRead Then   
        If bReadPW Then %>   
    <a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>   
        <%Else%>   
            <% If Not bShowTopic Then %>   
    <a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>   
            <% Else %>   
            <a href="<%=logLink%>">[加密日志]</a>   
            <% End If %>   
        <%End If%>   
第九步【找到】:（这段代码有两段一样的，这是第二段）
复制内容到剪贴板
代码:
<img src="images/icon_lock.gif" style="margin:0px 0px -3px 2px;" alt=""/>   
【在下面添加】:
复制内容到剪贴板
代码:
<%elseif (Trim(webLogArr(10,PageCount)) <> "" And Not isNull(Trim(webLogArr(10,PageCount)))) then%>   
            <img src="<%=sSecretImg%>" style="margin:0px 0px -3px 2px;" alt=""/>   
---------------------------------------------------------------------------------------------------------
9、class/cls_logAction.asp文件的修改（共五步）
---------------------------------------------------------------------------------------------------------
第一步【找到】:
复制内容到剪贴板
代码:
public logIsShow,logIsDraft,logWeather,logLevel,logCommentOrder   
【替换为】:
复制内容到剪贴板
代码:
public logIsShow,logIsDraft,logWeather,logLevel,logCommentOrder,logReadpw   
第二步【找到】 （有两个，只修改第一个） :
复制内容到剪贴板
代码:
logPublishTimeType="now"   
【在下面添加】:
复制内容到剪贴板
代码:
logReadpw = ""   
第三步【找到】:（有两处）
复制内容到剪贴板
代码:
weblog("log_comorder")=logCommentOrder   
【两处都在下面添加】:
复制内容到剪贴板
代码:
weblog("log_Readpw")=logReadpw   
第四步【找到】:
复制内容到剪贴板
代码:
sqlString="Select top 1 log_CateID,log_Author,log_Title,log_edittype,log_ubbFlags,log_Intro,log_weather,log_Level,log_comorder,log_DisComment,log_IsShow,log_IsTop,log_IsDraft,log_From,log_FromURL,log_Content,log_tag,log_PostTime,log_CommNums,log_QuoteNums,log_ViewNums FROM blog_Content Where log_ID="&id""   
【替换为】:
复制内容到剪贴板
代码:
sqlString="Select top 1 log_CateID,log_Author,log_Title,log_edittype,log_ubbFlags,log_Intro,log_weather,log_Level,log_comorder,log_DisComment,log_IsShow,log_IsTop,log_IsDraft,log_From,log_FromURL,log_Content,log_tag,log_PostTime,log_CommNums,log_QuoteNums,log_ViewNums,log_Readpw FROM blog_Content Where log_ID="&id""   
第五步【找到】:
复制内容到剪贴板
代码:
logViewCount = weblog("log_ViewNums")   
【在下面添加】:
复制内容到剪贴板
代码:
logReadpw = Trim(weblog("log_Readpw"))
OK，所有文件修改完毕。
其他说明：将这些修改过的文件放到加密插件文件夹下的code文件夹覆盖里面的文件，之后将整个MBS_Secret插件文件夹，上传到你空间的Plugins文件夹，在PJ后台安装加密日志插件，安装完成后先要浏览一下你的博客首页，让Plugins.asp文件执行一遍程序后，安装才算是真正的成功，后台插件状态会显示“已安装”，注意本插件仅支持PJBLOG动态日志方式！该日志加密插件安装版，安装时会自动备份相关的博客程序文件放在backUp\Secretbak\文件夹下，安装完成后可以查看一下！

  插件包中添加了手动修改的TXT文件，大家可以下载下来用该文件修改！

大功告成，累死我了，写的比较啰嗦，主要是为了让更多的人都能看的懂！祝安装该插件的朋友都能安装成功！
最后还要感谢vjlin带来这么好的插件。

[ 本帖最后由 Rison 于 2008-3-14 11:36 编辑 ]
附件: 您所在的用户组无法下载或查看附件
本帖最近评分记录
  • anson PJ币 +30 感谢分享 2008-2-21 16:26
偶的站:SnailStory｜蜗牛居の故事

在插件区发帖请注明你的发帖类别
求助帖请在发帖前看看置顶帖和搜索一下论坛
并尽量截图详细说明你出现的问题

TOP

轻草飞扬

｛PJFORUM荣誉版主｝

Rank: 33Rank: 33Rank: 33

『 PJ 基本使用 』区版主

UID
56340 
帖子
736 
精华
5 
积分
9036 
PJ币
1412 元 
专长
 
在线时间
825 小时 
注册时间
2008-2-3 
2# 大 中 小 发表于 2008-2-20 15:12  只看该作者
顶楼主一下。。辛苦了。。

TOP

xxwj

笨花

PJFORUM社区先锋

Rank: 16

http://www.ibenhua.cn

UID
50403 
帖子
75 
精华
0 
积分
2715 
PJ币
77 元 
专长
 
在线时间
264 小时 
注册时间
2007-11-9 
3# 大 中 小 发表于 2008-2-20 15:32  只看该作者
周末有时间一定改，好东西

TOP

Rison

羽白

｛PJFORUM版主｝

Rank: 32Rank: 32

『插件区 斑竹』

UID
27015 
帖子
912 
精华
5 
积分
14252 
PJ币
5385 元 
专长
 
在线时间
1329 小时 
注册时间
2006-12-27 
4# 大 中 小 发表于 2008-2-20 15:44  只看该作者
其实用软件对比修改要更方便一些，这样修改要花费不少功夫了！
我也尽量写的全一些，好让大家容易理解！
偶的站:SnailStory｜蜗牛居の故事

在插件区发帖请注明你的发帖类别
求助帖请在发帖前看看置顶帖和搜索一下论坛
并尽量截图详细说明你出现的问题

TOP

啊信

啊信

PJFORUM老会员

Rank: 8Rank: 8

UID
53285 
帖子
164 
精华
0 
积分
2444 
PJ币
610 元 
专长
 
在线时间
228 小时 
注册时间
2007-12-17 
5# 大 中 小 发表于 2008-2-20 15:52  只看该作者
顶楼主。。
辛苦了。。。
宇信工作室Blog__啊信

TOP

念狐人

PJFORUM老会员

Rank: 8Rank: 8

UID
54417 
帖子
56 
精华
0 
积分
1336 
PJ币
79 元 
专长
 
在线时间
128 小时 
注册时间
2008-1-2 
6# 大 中 小 发表于 2008-2-20 16:13  只看该作者
嗯。要没有官方改好的文件提供下载啊？

TOP

Rison

羽白

｛PJFORUM版主｝

Rank: 32Rank: 32

『插件区 斑竹』

UID
27015 
帖子
912 
精华
5 
积分
14252 
PJ币
5385 元 
专长
 
在线时间
1329 小时 
注册时间
2006-12-27 
7# 大 中 小 发表于 2008-2-20 16:33  只看该作者
引用:
原帖由 念狐人 于 2008-2-20 16:13 发表
嗯。要没有官方改好的文件提供下载啊？
下载附件里的插件安装包就有在PJ官方文件基础上修改的升级文件，在CODE文件夹下，你要是全新安装PJBLOG v2.7，那就可以直接用附件安装，不用手动修改！
偶的站:SnailStory｜蜗牛居の故事

在插件区发帖请注明你的发帖类别
求助帖请在发帖前看看置顶帖和搜索一下论坛
并尽量截图详细说明你出现的问题

TOP

313094

HaPBoy

PJFORUM社区先锋

Rank: 16

论坛服务人员 - 实习员

UID
29461 
帖子
682 
精华
0 
积分
4622 
PJ币
1304 元 
专长
 
在线时间
394 小时 
注册时间
2007-1-12 
8# 大 中 小 发表于 2008-2-20 17:06  只看该作者
PS：另外近期想为日志加密插件添加个密码提示输入选项，不知道大家觉得是否有必要？

要，谢谢啦。

我早等你提供修改方法了。呵呵
宽容大气.千万别小气.大度.是成功人的前提.
学会了宽容.才会认识到这个虚拟世界的精彩......
HaPBoyBlog.Cn

TOP

313094

HaPBoy

PJFORUM社区先锋

Rank: 16

论坛服务人员 - 实习员

UID
29461 
帖子
682 
精华
0 
积分
4622 
PJ币
1304 元 
专长
 
在线时间
394 小时 
注册时间
2007-1-12 
9# 大 中 小 发表于 2008-2-20 18:25  只看该作者
还是不行，要不楼主帮我改吧？
宽容大气.千万别小气.大度.是成功人的前提.
学会了宽容.才会认识到这个虚拟世界的精彩......
HaPBoyBlog.Cn

TOP

Rison

羽白

｛PJFORUM版主｝

Rank: 32Rank: 32

『插件区 斑竹』

UID
27015 
帖子
912 
精华
5 
积分
14252 
PJ币
5385 元 
专长
 
在线时间
1329 小时 
注册时间
2006-12-27 
10# 大 中 小 发表于 2008-2-20 21:45  只看该作者
说说什么情况？
偶的站:SnailStory｜蜗牛居の故事

在插件区发帖请注明你的发帖类别
求助帖请在发帖前看看置顶帖和搜索一下论坛
并尽量截图详细说明你出现的问题

TOP

‹‹ 上一主题 | 下一主题 ››
 26 123
发新话题