置顶日志换色For pjblog3 157
作者:小戒 日期:2008-10-09
老话了，请用Dreamweaver或EditPlus来编辑，编辑前就注意备份，本博已经经过测试，通过。出了问题就仔细检查修改代码。
打开class/cls_default.asp，找到：
替换为：
找到：
替换为：
其中：“#FF0000”是颜色代码，你可以根据需要改成你自己的。
以上为动态需要修改的代码。
-------------------------------------＃＃黄金分隔线＃＃--------------------------------------------
以下为静态模式下的修改方法。
打开Template/Articlelist.asp，找到（一共有两处）：
全部替换为：
打开Class/cls_logAction.asp，找到：
替换为：
其中#FF0000为颜色代码，你可以根据自己需要进行修改。
打开class/cls_default.asp，找到：
复制内容到剪贴板
程序代码
程序代码 <%If CanRead Then%>
<a class="titleA" href="<%=aUrl%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>
<%Else%>
<a class="titleA" href="<%=aUrl%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>
<%Else%>
替换为：
复制内容到剪贴板 程序代码
程序代码 <%If CanRead Then%>
<a class="titleA" href="<%=aUrl%>"><%If webLogArr(9,PageCount)=True Then%>
<font color="#FF0000"><%=HtmlEncode(webLogArr(3,PageCount))%></font>
<%else%>
<%=HtmlEncode(webLogArr(3,PageCount))%>
<%end if%></a>
<%Else%>
<a class="titleA" href="<%=aUrl%>"><%If webLogArr(9,PageCount)=True Then%>
<font color="#FF0000"><%=HtmlEncode(webLogArr(3,PageCount))%></font>
<%else%>
<%=HtmlEncode(webLogArr(3,PageCount))%>
<%end if%></a>
<%Else%>
找到：
复制内容到剪贴板 程序代码
程序代码 <%If CanRead Then%>
<a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>
<%Else%>
<a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>
<%Else%>
替换为：
复制内容到剪贴板 程序代码
程序代码 <%If CanRead Then%>
<%If webLogArr(9,PageCount)=True Then%>
<a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>"><font color="#FF0000"><%=HtmlEncode(webLogArr(3,PageCount))%></font></a>
<%else%>
<a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>
<%end if%>
<%Else%>
<%If webLogArr(9,PageCount)=True Then%>
<a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>"><font color="#FF0000"><%=HtmlEncode(webLogArr(3,PageCount))%></font></a>
<%else%>
<a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>
<%end if%>
<%Else%>
其中：“#FF0000”是颜色代码，你可以根据需要改成你自己的。
以上为动态需要修改的代码。
-------------------------------------＃＃黄金分隔线＃＃--------------------------------------------
以下为静态模式下的修改方法。
打开Template/Articlelist.asp，找到（一共有两处）：
复制内容到剪贴板 程序代码
程序代码<$log_Title$>
全部替换为：
复制内容到剪贴板 程序代码
程序代码<$log_Istop$><$log_Title$><$log_IstopE$>
打开Class/cls_logAction.asp，找到：
复制内容到剪贴板 程序代码
程序代码 If log_View("log_IsTop") Then
Temp2 = Replace(Temp2, "<$ShowButton$>", "<div class=""BttnE"" onclick=""TopicShow(this,'log_"&LogID&"')""></div>")
Temp2 = Replace(Temp2, "<$ShowStyle$>", " style=""display:none""")
Else
Temp2 = Replace(Temp2, "<$ShowButton$>", "")
Temp2 = Replace(Temp2, "<$ShowStyle$>", "")
End If
Temp2 = Replace(Temp2, "<$ShowButton$>", "<div class=""BttnE"" onclick=""TopicShow(this,'log_"&LogID&"')""></div>")
Temp2 = Replace(Temp2, "<$ShowStyle$>", " style=""display:none""")
Else
Temp2 = Replace(Temp2, "<$ShowButton$>", "")
Temp2 = Replace(Temp2, "<$ShowStyle$>", "")
End If
替换为：
复制内容到剪贴板 程序代码
程序代码 If log_View("log_IsTop") Then
Temp2 = Replace(Temp2, "<$ShowButton$>", "<div class=""BttnE"" onclick=""TopicShow(this,'log_"&LogID&"')""></div>")
Temp2 = Replace(Temp2, "<$ShowStyle$>", " style=""display:none""")
Temp2 = Replace(Temp2, "<$log_Istop$>", "<font color=""#FF0000"">")
Temp2 = Replace(Temp2, "<$log_IstopE$>", "</font>")
Else
Temp2 = Replace(Temp2, "<$ShowButton$>", "")
Temp2 = Replace(Temp2, "<$ShowStyle$>", "")
Temp2 = Replace(Temp2, "<$log_Istop$>", "")
Temp2 = Replace(Temp2, "<$log_IstopE$>", "")
End If
Temp2 = Replace(Temp2, "<$ShowButton$>", "<div class=""BttnE"" onclick=""TopicShow(this,'log_"&LogID&"')""></div>")
Temp2 = Replace(Temp2, "<$ShowStyle$>", " style=""display:none""")
Temp2 = Replace(Temp2, "<$log_Istop$>", "<font color=""#FF0000"">")
Temp2 = Replace(Temp2, "<$log_IstopE$>", "</font>")
Else
Temp2 = Replace(Temp2, "<$ShowButton$>", "")
Temp2 = Replace(Temp2, "<$ShowStyle$>", "")
Temp2 = Replace(Temp2, "<$log_Istop$>", "")
Temp2 = Replace(Temp2, "<$log_IstopE$>", "")
End If
其中#FF0000为颜色代码，你可以根据自己需要进行修改。
上一篇: 根据浏览器来自动判断语言
下一篇: office2003光盘镜象完全安装包（带序列号）
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 置顶 换色 PJBLOG 
相关日志:
评论: 1 | 引用: 0 | 查看次数: -
发表评论
还是只有红色....