新云2.1后台增加首页文章标题有图片显示
-
打开inc/cls_main.asp
找到
'函数名：ReadBriefTopicffd
'作 用：读取简短标题
在下面的
Case "6"
sBriefTopic = "<font color='green'>[转载]</font>"
下面添加
Case "7"
sBriefTopic = "<font color='green'><img border='0' src='/images/index_dujia.gif'></font>"
Case "8"
sBriefTopic = "<font color='green'><img border='0' src='/images/index_reping.gif'></font>"
Case "9"
sBriefTopic = "<font color='green'><img border='0' src='/images/index_video.gif'></font>"
继续往下找
找到
'=============================================================
'函数名：ReadPicTopic
'作 用：读取简短标题
在下面的
Case "6"
sBriefTopic = "<font color='" & Main_Setting(6) & "'>[转载]</font>"
下面添加
Case "7"
sBriefTopic = "<font color='" & Main_Setting(7) & "'><img border='0' src='/images/index_dujia.gif'></font>"
Case "8"
sBriefTopic = "<font color='" & Main_Setting(8) & "'><img border='0' src='/images/index_reping.gif'></font>"
Case "9"
sBriefTopic = "<font color='" & Main_Setting(9) & "'><img border='0' src='/images/index_video.gif'></font>"
---------------------------------------------------------------------------
接下来 为后台增加功能
打开admin/admin_article.asp
找
<option value="6"<%If Rs("BriefTopic") = 6 Then Response.Write (" selected")%>>[转载]</option>
下面添加
<option value="7"<%If Rs("BriefTopic") = 7 Then Response.Write (" selected")%>>图[独家]</option>
<option value="8"<%If Rs("BriefTopic") = 8 Then Response.Write (" selected")%>>图[热评]</option>
<option value="9"<%If Rs("BriefTopic") = 9 Then Response.Write (" selected")%>>图[视频]</option>
继续找
<option value="6">[转载]</option>
下面添加
<option value="7">图[独家]</option>
<option value="8">图[热评]</option>
<option value="9">图[视频]</option>
