编辑“创力网站管理系统-首页最新文章列表文字之间加分隔线效果!”

<span style="border:1px solid #000; float:right; text-align:center; padding:6px;"><strong>导航：</strong>[[创力网站管理系统教程|返回上一页]]</span>
<div style="clear:both;"></div>

[[创力网站管理系统]]-首页最新文章列表文字之间加分隔线效果!

修改INC目录下的Cl_Function_Article.[[asp]]文件中的

过程：ShowArticle


以下内容为程序代码:


'过程：ShowArticle(sChannelID,sClassID,sSpecialID,TopNum,TitleLen,ShowClassName,ShowProperty,

ShowPrefix,ShowAuthor,ShowDateType,ShowHits,ShowHot,IsElite,IsHot,UserName,CssStyle)

'参数：

' sChannelID  ------  频道ID

' sClassID  ------  栏目ID(0为全部，如果大于0，则调用指定栏目及其子栏目)

' sSpecialID  ------  专题ID(0为全部，如果大于0，刚调用指定专题)

' TopNum   ------  最多记录数，0为全部(用于分页显示)

' TitleLen  ------  标题最多字符数

' ShowClassName ------  是否显示栏目名称(True为显示，False为不显示)

' ShowProperty ------  是否显示文章属性(固顶/推荐/普通)，(True为显示，False为不显示)

' ShowPrefix  ------  是否显示前缀如：[推荐][图文][注意]字样(True为显示，False为不显示)

' ShowAuthor  ------  是否显示文章作者，True为显示，False为不显示)

' ShowDateType ------  显示更新日期的样式

'       ---- 0(不显示)

'       ---- 1(2004-10-01 23:45:45)

'       ---- 2(年-月-日 时:分:秒)

'       ---- 3(10-01 23:45)

'       ---- 4(2004-10-01)

'       ---- 5(2004年10月01日)

'       ---- 6(10-01)

'       ---- 7(20041001234545)

' ShowHits  ------  是否显示文章点击数(True为显示，False为不显示)

' ShowHot   ------  是否显示热门文章标志(True为显示，False为不显示)

' IsElite   ------  是否推荐(True为是，False为否)

' IsHot   ------  是否热门(True为是，False为否)

' UserName  ------  指定某用户(不指定请留空值或0)

' CssStyle        ------  [[CSS]]样式
<pre>
'====================================================================================================
Function ShowArticle(sChannelID,sClassID,sSpecialID,TopNum,TitleLen,ShowClassName,S

howProperty,ShowPrefix,ShowAuthor,ShowDateType,ShowHits,ShowHot,IsElite,

IsHot,UserName,CssStyle)

sChannelID  = Cl.ChkClng(sChannelID) : sClassID  = Cl.ChkClng(sClassID)

sSpecialID  = Cl.ChkClng(sSpecialID) : TopNum  = Cl.ChkClng(TopNum)

TitleLen  = Cl.ChkClng(TitleLen)  : ShowClassName = Cl.ChkCBool(ShowClassName)

ShowProperty = Cl.ChkCBool(ShowProperty) : ShowPrefix = Cl.ChkCBool(ShowPrefix)

ShowAuthor  = Cl.ChkCBool(ShowAuthor) : ShowDateType = Cl.ChkClng(ShowDateType)

ShowHits  = Cl.ChkCBool(ShowHits)  : ShowHot  = Cl.ChkCBool(ShowHot)

IsHot   = Cl.ChkCBool(IsHot)  : IsElite  = Cl.ChkCBool(IsElite)

UserName  = Trim(UserName)   : CssStyle  = Trim(CssStyle)

Cl.GetChannelSetting(sChannelID)

if TopNum=0 then

SqlInfo="Select "

else

SqlInfo="Select Top "&TopNum&" "

end if

SqlInfo = SqlInfo & "A.ArticleID,A.ClassID,C.ClassName,C.ParentPath,C.ClassDir,

C.ParentDir,A.Title,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,

A.TitleFontColor,A.TitleFontType,A.Hits,A.OnTop,A.Hot,A.Elite,

A.Passed,A.Prefixion,A.Stars,A.PaginationType,A.ReadLevel,

A.ReadPoint,A.DefaultPicUrl,A.IsHtml,A.HtmlFileUrl,

Intro from Cl_Article A Inner Join Cl_Class C On 

A.ClassID=C.ClassID where A.Deleted="&FalseType&" and A.Passed="&TrueType&" and 

A.ChannelID="&sChannelID&" "

if sClassID>0 then

Dim tClass

Set tClass=Cl.Execute("select ClassID,Child,ParentPath,arrChildID from Cl_Class where 

ChannelID="&sChannelID&" and ClassID=" & sClassID)

if not(tClass.bof and tClass.eof) then

if tClass(1)>0 then

SqlInfo=SqlInfo & " and A.ClassID in (" & tClass(3) & ")"

else

SqlInfo=SqlInfo & " and A.ClassID=" & sClassID

end if

else

SqlInfo=SqlInfo & " and A.ClassID=" & sClassID

end if

Set tClass=Nothing

end if

if sSpecialID>0 then SqlInfo=SqlInfo & " and A.SpecialID=" & sSpecialID

if IsElite=True then SqlInfo=SqlInfo & " and A.Elite="&TrueType

if IsHot=True then SqlInfo=SqlInfo & " and A.Hits>=" & Clng(Cl.Web_Setting(14))

if UserName<>"" and UserName<>"0" then SqlInfo=SqlInfo &  " and A.Editor='" & UserName & "'"

SqlInfo=SqlInfo & " order by A.OnTop,A.UpdateTime desc,A.ArticleID desc"

Set rsInfo= Server.CreateObject("ADODB.Recordset")

OpenConn : rsInfo.open SqlInfo,Conn,1,1

if rsInfo.bof and  rsInfo.eof then

TotalPut=0

ShowArticle="<br><li>没有任何"&Cl.Channel_Setting(2)&"</li>"

rsInfo.close:set rsInfo=Nothing : Exit Function

End if

TotalPut=rsInfo.recordcount

if TopNum>0 then

SqlInfo=rsInfo.GetRows(-1)

else

if (TotalPut mod MaxPerPage)=0 then

TotalPages = TotalPut \ MaxPerPage

else

TotalPages = TotalPut \ MaxPerPage + 1

end if

if CurrentPage > TotalPages then CurrentPage=TotalPages

if CurrentPage < 1 then CurrentPage=1

rsInfo.move (CurrentPage-1)*MaxPerPage

SqlInfo=rsInfo.GetRows(MaxPerPage)

end if

rsInfo.close:set rsInfo=Nothing

dim strTemp,Linkurl,i

dim TitleStr,Author,AuthorName,AuthorEmail,sTitleLen

i=0:strTemp = "<table width=100% border=0 cellpadding=0 

cellspacing=0 class="""&CssStyle&""">"

For i=0 to Ubound(SqlInfo,2)

sTitleLen = TitleLen

strTemp = strTemp & "<tr><td align=""left"">&nbsp;"

if ShowProperty=True then

if SqlInfo(14,i)=True then

strTemp = strTemp & "<img src=""" & Cl.mainpic(13) & """ alt=""固顶"">&nbsp;"

elseif SqlInfo(16,i)=True then

strTemp = strTemp & "<img src=""" & Cl.mainpic(12) & """ alt=""推荐"">&nbsp;"

else

strTemp = strTemp & "<img src=""" & Cl.mainpic(11) & """ alt=""普通"">&nbsp;"

end if

end if

if ShowClassName=True and SqlInfo(1,i)<>ClassID then

strTemp=strTemp & "[<a href=""" & Cl.WebDir & Cl.GetClassUrl(Clng(Cl.Channel_Setting

(11)),Cl.HtmlDir,Cl.Channel_Setting(4),SqlInfo(3,i),SqlInfo(1,i),

SqlInfo(5,i),SqlInfo(4,i),Clng(Cl.Channel_Setting(10)),

Cl.Channel_Setting(13)) & """>" & SqlInfo(2,i) & "</a>]&nbsp;"

sTitleLen=sTitleLen-Len(SqlInfo(2,i))-1

end if

if ShowPrefix=True and SqlInfo(18,i)<>"" then

strTemp = strTemp & "<font color=blue>"&SqlInfo(18,i)&"</font>"

sTitleLen=sTitleLen-Len(SqlInfo(18,i))-2

end if

if Instr(SqlInfo(7,i),"|")>0 then

Author=Split(SqlInfo(7,i),"|")

AuthorName=Author(0)

AuthorEmail=Author(1)

else

AuthorName=SqlInfo(7,i)

AuthorEmail="Aspoo@126.com"

end if

if SqlInfo(24,i)=True and Clng(Cl.Channel_Setting(10))=1 then

LinkUrl=Cl.WebDir & SqlInfo(25,i)

else

LinkUrl=Cl.WebDir & Cl.Channel_Setting(4) & "/ArticleShow.asp?ArticleID="&SqlInfo(0,i)

end if

strTemp = strTemp & "<a href=""" & LinkUrl & """ 

title=""标题：" & SqlInfo(6,i) & vbcrlf & "作者：" 

& AuthorName & vbcrlf & "更新：" & SqlInfo(9,i) 

& vbcrlf & "点击：" & SqlInfo(13,i) & """ target=""_blank"">"

TitleStr=Cl.GotTopic(SqlInfo(6,i),sTitleLen)

TitleStr=Cl.GetTitleFont(TitleStr,SqlInfo(12,i))

TitleStr=Cl.FormatColor(TitleStr,SqlInfo(11,i))

strTemp=strTemp & TitleStr & "</a></td><td align=right>"

if ShowHot=True then

if CDate(SqlInfo(9,i))=date() then

strTemp= strTemp & "<img src=""" & Cl.mainpic(7) & """ alt=""最新"">"

elseif SqlInfo(13,i)>=Clng(Cl.Web_Setting(14)) then

strTemp= strTemp & "<img src=""" & Cl.mainpic(8) & """ alt=""热门"">"

end if

end if

if ShowAuthor=True or ShowHits=True or ShowDateType>0 then

strTemp = strTemp & "("

if ShowAuthor=True then

strTemp=strTemp & "<a href=""mailto:" & AuthorEmail & """>" & AuthorName & "</a>"

end if

if ShowHits=True then

if ShowAuthor=True then

strTemp=strTemp & ","

end if

strTemp=strTemp & Cl.FormatColor(SqlInfo(13,i),"#ff0033")

end if

if ShowDateType>0 then

if ShowHits=True or ShowAuthor=True then

strTemp=strTemp & ","

end if

if CDate(SqlInfo(9,i))=date() then

strTemp = strTemp & "<font color=red>"

else

strTemp = strTemp & "<font color=#999999>"

end if

strtemp = strtemp & Cl.Format_Time(SqlInfo(9,i),ShowDateType) & "</font>"

end if

strTemp = strTemp & ")</td></tr>"

end if

strTemp= strTemp & "<tr><td height=""1"" background=""/images/title_bottom_line.gif""></td><td 

height=""1"" background=""/images/title_bottom_line.gif""></td></tr>" 
Next

ShowArticle=strTemp & "</table>"

SqlInfo=""

end Function
</pre>




==参考来源==
*[http://www.aspoo.cn/Html/Index.html 参考来源]



[[category:创力网站管理系统|C]]