Set RsNewsListObj = Conn.Execute("FS_ReFunGetOneNewsList '"&NewsListStyleStr&"'")
if Not RsNewsListObj.Eof then
StyleContent = RsNewsListObj("Content")
'标题
if Not IsNull(RsNewsObj("Title")) then
StyleContent = Replace(StyleContent,"{News_Title}",NaviPicStr & ClassCNName & "<a " & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneNewsLinkURL(RsNewsObj("NewsID")) & """ " & OpenModeStr & ">" & RsNewsObj("Title") & "</a>")
else
StyleContent = Replace(StyleContent,"{News_Title}","")
end if
'副标题
if Not IsNull(RsNewsObj("SubTitle")) then
StyleContent = Replace(StyleContent,"{News_SubTitle}",RsNewsObj("SubTitle"))
else
StyleContent = Replace(StyleContent,"{News_SubTitle}","")
end if
'新闻点击率
'StyleContent = Replace(StyleContent,"","<script src=" & AvailableDoMain & "/" & "Click.asp?NewsID="& RsNewsObj("NewsID") &"></script>")'打开列表就会使点击率增加
if Not IsNull(RsNewsObj("ClickNum")) then
StyleContent = Replace(StyleContent,"",RsNewsObj("ClickNum"))
else
StyleContent = Replace(StyleContent,"","")
end if
'来源
if Not IsNull(RsNewsObj("TxtSource")) then
StyleContent = Replace(StyleContent,"www.foosun.net",RsNewsObj("TxtSource"))
else
StyleContent = Replace(StyleContent,"www.foosun.net","")
end if
'作者
if Not IsNull(RsNewsObj("Author")) then
StyleContent = Replace(StyleContent,"{News_Author}",RsNewsObj("Author"))
else
StyleContent = Replace(StyleContent,"{News_Author}","")
end if
'责任编辑
if Not IsNull(RsNewsObj("Editer")) then
StyleContent = Replace(StyleContent,"{News_Editer}",RsNewsObj("Editer"))
else
StyleContent = Replace(StyleContent,"{News_Editer}","")
end if
'添加时间
if Not IsNull(RsNewsObj("AddDate")) then
StyleContent = Replace(StyleContent,"2006-2-19",DateFormat(RsNewsObj("AddDate"),DateRuleStr))
else
StyleContent = Replace(StyleContent,"2006-2-19","")
end if
'===========================================
'控制新闻列表中的文章内容字数
TempStr = LoseHtml(RsNewsObj("Content"))
If len(TempStr)>ContentLimitStr then
TempStr = left(TempStr,ContentLimitStr) & "......"
End If
'==========================================
if Not IsNull(TempStr) then
StyleContent = Replace(StyleContent,"{News_Content}",TempStr)
else
StyleContent = Replace(StyleContent,"{News_Content}","")
end if
'图片
if Not IsNull(RsNewsObj("PicPath")) then
StyleContent = Replace(StyleContent,"{News_Pic}","<img border=""0"" width="""&PicWidthStr&""" height="""&PicHeightStr&""" src=""" & RsNewsObj("PicPath") & """>")
