首页 » Blog » 博客相关 ✿ weblog » 浏览内容
修改“置顶”标识
分静态和动态两种模式
这里要修改4个地方，因为两种模式下都有普通日志显示和列表日志显示。
动态模式：
打开class/cls_default.asp（这里以阅读全文为修改对象）
查找以下代码：
复制内容到剪贴板
程序代码
程序代码<%If CanRead Then%>
因为添加了加密日志，所以代码为：
复制内容到剪贴板 程序代码
程序代码<%If CanRead Then
If bReadPw then '密码访问
If bReadPw then '密码访问
不过这里不是要修改，在此文件中找到两处这样的代码：（第180行，第289行）
复制内容到剪贴板 程序代码
程序代码<%If CanRead Then
在第一处下面查找：（第182行）
复制内容到剪贴板 程序代码
程序代码<a class="titleA" href="article.asp?id=<%=webLogArr(0,PageCount)%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>
替换为：
复制内容到剪贴板 程序代码
程序代码<%'=================已修改的动态普通模式置顶字符=================%>
<a class="titleA" href="article.asp?id=<%=webLogArr(0,PageCount)%>"><%if webLogArr(9,PageCount) then response.Write "[置顶]"%><%=HtmlEncode(webLogArr(3,PageCount))%></a>
<%'=================已修改的动态普通模式置顶字符=================%>
<a class="titleA" href="article.asp?id=<%=webLogArr(0,PageCount)%>"><%if webLogArr(9,PageCount) then response.Write "[置顶]"%><%=HtmlEncode(webLogArr(3,PageCount))%></a>
<%'=================已修改的动态普通模式置顶字符=================%>
第二处下面查找：（第291行）
复制内容到剪贴板 程序代码
程序代码<a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>
替换为：
复制内容到剪贴板 程序代码
程序代码<%'=================已修改的动态列表模式置顶字符=================%>
<a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>"><%if webLogArr(9,PageCount) then response.Write "[置顶]"%><%=HtmlEncode(webLogArr(3,PageCount))%></a>
<%'=================已修改的动态列表模式置顶字符=================%>
<a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>"><%if webLogArr(9,PageCount) then response.Write "[置顶]"%><%=HtmlEncode(webLogArr(3,PageCount))%></a>
<%'=================已修改的动态列表模式置顶字符=================%>
（因为我基本上只使用动态模式，所以下面只是列出如何修改静态模式，自己的blog并没有修改。）
静态模式：
打开class/cls_logAction.asp
搜索
复制内容到剪贴板 程序代码
程序代码Temp1=Replace(Temp1,"<$log_Title$>",HtmlEncode(log_View("log_Title")))
改为：
复制内容到剪贴板 程序代码
程序代码 '＝＝＝＝＝＝＝＝＝＝＝＝已修改的静态普通模式“置顶”字符＝＝＝＝＝＝＝＝＝＝＝
'原来是：
'Temp1=Replace(Temp1,"<$log_Title$>",HtmlEncode(log_View("log_Title")))
'现在改为：
if log_View("log_IsTop") then
Temp1=Replace(Temp1,"<$log_Title$>","[置顶] "&HtmlEncode(log_View("log_Title")))
Else
Temp1=Replace(Temp1,"<$log_Title$>",HtmlEncode(log_View("log_Title")))
End if
'＝＝＝＝＝＝＝＝＝＝＝＝已修改的静态普通模式“置顶”字符＝＝＝＝＝＝＝＝＝＝＝
'原来是：
'Temp1=Replace(Temp1,"<$log_Title$>",HtmlEncode(log_View("log_Title")))
'现在改为：
if log_View("log_IsTop") then
Temp1=Replace(Temp1,"<$log_Title$>","[置顶] "&HtmlEncode(log_View("log_Title")))
Else
Temp1=Replace(Temp1,"<$log_Title$>",HtmlEncode(log_View("log_Title")))
End if
'＝＝＝＝＝＝＝＝＝＝＝＝已修改的静态普通模式“置顶”字符＝＝＝＝＝＝＝＝＝＝＝
刚改完的上面是普通模式，下面是列表模式
搜索：
复制内容到剪贴板 程序代码
程序代码Temp2=Replace(Temp2,"<$log_Title$>",HtmlEncode(log_View("log_Title")))
改为：
复制内容到剪贴板 程序代码
程序代码'＝＝＝＝＝＝＝＝＝＝＝＝已修改的静态列表模式“置顶”字符＝＝＝＝＝＝＝＝＝＝＝
'原本是这样：
'Temp2=Replace(Temp2,"<$log_Title$>",HtmlEncode(log_View("log_Title")))
'现在改为：
if log_Vi
ew("log_IsTop") then
Temp2=Replace(Temp2,"<$log_Title$>","[置顶] "&HtmlEncode(log_View("log_Title")))
Else
Temp2=Replace(Temp2,"<$log_Title$>",HtmlEncode(log_View("log_Title")))
End if
'＝＝＝＝＝＝＝＝＝＝＝＝已修改的静态列表模式“置顶”字符＝＝＝＝＝＝＝＝＝＝＝
'原本是这样：
'Temp2=Replace(Temp2,"<$log_Title$>",HtmlEncode(log_View("log_Title")))
'现在改为：
if log_Vi
ew("log_IsTop") then
Temp2=Replace(Temp2,"<$log_Title$>","[置顶] "&HtmlEncode(log_View("log_Title")))
Else
Temp2=Replace(Temp2,"<$log_Title$>",HtmlEncode(log_View("log_Title")))
End if
'＝＝＝＝＝＝＝＝＝＝＝＝已修改的静态列表模式“置顶”字符＝＝＝＝＝＝＝＝＝＝＝
评论 共0条 (RSS 2.0) 发表评论