上一篇
下一篇
日志加密 For PJBlog v2.7 手动修改方法
作者:笨花 日期:2008-02-20
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
nd 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)))"]]></summary>")
else
Response.Write("<summary type=""html""><![CDATA["&AddSiteURL(UBBCode(HTMLEncode(FeedRows(4,i)),0,0,0,1,1))"]]></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)))"]]></summary>")
else
Response.Write("<summary type=""html""><![CDATA["&AddSiteURL(UBBCode(HTMLEncode(FeedRows(4,i)),0,0,0,1,1))"]]></summary>")
end if
lse
Response.Write("<summary type=""html""><![CDATA[这是篇<b>加密日志</b>，请到 "&SiteName" 的首页查看!]]></summary>")
nd 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&" 的首页查看!]]></description>")
'Else
IF FeedRows(5,i)=0 then
Response.Write("<description><![CDATA["&AddSiteURL(UnCheckStr(FeedRows(4,i)))"]]></description>")
else
Response.Write("<description><![CDATA["&AddSiteURL(UBBCode(HTMLEncode(FeedRows(4,i)),0,0,0,1,1))"]]></description>")
end if
'End IF
%>
【替换为】:
<%
If FeedRows(7,i)=False Then
Response.Write("<description><![CDATA[这是篇<b>隐藏日志</b>，请到 "&SiteName" 的首页查看!]]></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)))"]]></description>")
else
Response.Write("<description><![CDATA["&AddSiteURL(UBBCode(HTMLEncode(FeedRows(4,i)),0,0,0,1,1))"]]></description>")
end if
Else
Response.Write("<description><![CDATA[这是篇<b>加密日志</b>，请到 "&SiteName" 的首页查看!]]></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>
【替换为】:
<%
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已被记录日志已被锁定暂时不可以查看！<br/><br/>
<%
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>，需要输入密码才可以查看！<br/><br/>
<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\文件夹下，安装完成后可以查看一下！
MBS_Secret.rar (63.66 KB) MBS_Secret.rar (63.66 KB)
下载次数: 0
2008-2-20 15:06 插件包中添加了手动修改的TXT文件，大家可以下载下来用该文件修改！
大功告成，累死我了，写的比较啰嗦，主要是为了让更多的人都能看的懂！祝安装该插件的朋友都能安装成功！最后感谢vjlin带来这么好的插件。
文章来自: 
引用通告: 
Tags: 
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论