清心语轩

1、打开class/cls_logAction.asp文件

找到代码：

Temp1 = Replace(Temp1, "<$log_Title$>", HtmlEncode(log_View("log_Title")))

 

在其下添加代码：

if log_View("log_level")="level5" then
Temp1 = Replace(Temp1, "<$log_LevelE$>", "<img src="" images="" luke="" jing.gif""  style="" margin-bottom:-2px""="" alt="" 精华""="">")
Else
Temp1 = Replace(Temp1, "<$log_LevelE$>", "")
End if
if log_View("log_IsTop") then
Temp1 = Replace(Temp1, "<$log_IsTopE$>", "<img src="" images="" luke="" ding.gif""  style="" margin-bottom:-2px""="" alt="" 置顶""="">")
Else
Temp1 = Replace(Temp1, "<$log_IsTopE$>", "")
End if

 

找到代码：

Temp2 = Replace(Temp2, "<$log_Title$>", HtmlEncode(log_View("log_Title")))

 

在其下添加代码：

if log_View("log_level")="level5" then
Temp2 = Replace(Temp2, "<$log_LevelE$>", "<img src="" images="" luke="" jing.gif""  style="" margin-bottom:-2px""="" alt="" 精华""="">")
Else
Temp2 = Replace(Temp2, "<$log_LevelE$>", "")
End if
if log_View("log_IsTop") then
Temp2 = Replace(Temp2, "<$log_IsTopE$>", "<img src="" images="" luke="" ding.gif""  style="" margin-bottom:-2px""="" alt="" 置顶""="">")
Else
Temp2 = Replace(Temp2, "<$log_IsTopE$>", "")
End if

 

2、打开Template/ArticleList.asp文件

找到代码：

<a class="titleA" href="<$log_ceeurl$>" title="作 者：<$log_Author$>
时 间：<$log_PostTime$>
标 题：<$log_Title$>"><$log_Title$></a>

 

在其前添加代码：

<$log_IsTopE$> <$log_LevelE$>

 

找到代码：

<a href="<$log_ceeurl$>" title="作者:<$log_Author$> 日期:<$log_PostTime$>"><$log_Title$></a>

 

在其前添加代码：

<$log_IsTopE$> <$log_LevelE$>

 

3、打开class/cls_default.asp文件

找到代码：

If ViewType = "list" Then
strSQL = "log_ID,log_CateID,log_Author,log_Title,log_PostTime,log_IsShow,log_CommNums,log_QuoteNums,log_ViewNums,log_IsTop,log_Readpw,log_Pwtitle"
Else
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,log_Pwtitle"
End If

 

把以上代码修改为：

If ViewType = "list" Then
strSQL = "log_ID,log_CateID,log_Author,log_Title,log_PostTime,log_IsShow,log_CommNums,log_QuoteNums,log_ViewNums,log_IsTop,log_Readpw,log_Pwtitle,log_level"
Else
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,log_Pwtitle,log_level"
End If

 

找到代码：

<a class="titleA" href="<%=aUrl%>" title="作 者：<%=webLogArr(2,PageCount)%>
时 间：<%=DateToStr(webLogArr(4,PageCount)," y-m-d")%="">
标 题：<%=HtmlEncode(webLogArr(3,PageCount))%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a>

 

在其前添加代码：

<%if webLogArr(9,PageCount) then response.Write "<img src="" images="" luke="" ding.gif""  style="" margin-bottom:-2px""="" alt="" 置顶""=""> "%><%if webLogArr(18,PageCount)="level5" then response.Write "<img src="" images="" luke="" jing.gif""  style="" margin-bottom:-2px""="" alt="" 精华""=""> "%>

 

找到代码：

<a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount)," y-m-d")%="">"><%=HtmlEncode(webLogArr(3,PageCount))%></a>

 

在其前添加代码：

<%if webLogArr(9,PageCount) then response.Write "<img src="" images="" luke="" ding.gif""  style="" margin-bottom:-2px""="" alt="" 置顶""=""> "%><%if webLogArr(12,PageCount)="level5" then response.Write "<img src="" images="" luke="" jing.gif""  style="" margin-bottom:-2px""="" alt="" 精华""=""> "%>