'得到一个栏目的新闻列表
Function GetOneClassNewsList(AlreadyClassObj,NewsListNumberStr,TitleNumberStr,CompatPicStr,NaviPicStr,DateRuleStr,DateRightStr,RowHeightStr,RowNumberStr,MoreLinkTypeStr,MoreLinkContentStr_R,CSSStyleStr,OpenTypeStr,DateCSSStyleStr,TxtNaviStr)
Dim RsNewsObj,NewsSql,i,ClassSaveFilePath
Dim TempDateShowStr,MoreLinkContentStr
'新加变量
Dim TempRowNumberStr
if Not AlreadyClassObj.Eof then
if DateRuleStr <> "" then
if DateRightStr = "Left" then
TempRowNumberStr = "colspan=""" & RowNumberStr & """"
elseif DateRightStr = "Center" then
TempRowNumberStr = "colspan=""" & RowNumberStr * 2 & """"
elseif DateRightStr = "Right" then
TempRowNumberStr = "colspan=""" & RowNumberStr * 2 & """"
else
TempRowNumberStr = "colspan=""" & RowNumberStr & """"
end if
else
TempRowNumberStr = "colspan=""" & RowNumberStr & """"
end if
if AlreadyClassObj("SaveFilePath") = "/" then
ClassSaveFilePath = AlreadyClassObj("SaveFilePath")
else
ClassSaveFilePath = AlreadyClassObj("SaveFilePath") & "/"
end if
OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
NewsSql = "Select top " & NewsListNumberStr & " NewsID,Title,Path,AddDate,HeadNewsTF,HeadNewsPath,FileName,FileExtName,TitleStyle from FS_News where ClassID='" & AlreadyClassObj("ClassID") & "' and AuditTF=1 and DelTF=0 order by ID desc"
GetOneClassNewsList = "<table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""100%"">" & Chr(13) & Chr(10)
if TxtNaviStr <> "" then
NaviPicStr = TxtNaviStr
if RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
CompatPicStr = GetCompatPicStr(CompatPicStr,DateRightStr,DateRuleStr,RowNumberStr)
NaviPicStr = TxtNaviStr
end if
if RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
if DateRuleStr <> "" then
'子栏目标题
GetOneClassNewsList = GetOneClassNewsList & "<tr bgcolor=#ecf8e7 Height=24><td class=""color_class_bg"" colspan=""2"" align=""center"" background=""/images/blue/tr_bg.gif""><strong><a " & OpenTypeStr & " Class=""color_title"" href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/index." & AlreadyClassObj("FileExtName") & """ >" & AlreadyClassObj("ClassCName") & "</a></strong></td></tr>" & Chr(13) & Chr(10)
else
GetOneClassNewsList = GetOneClassNewsList & "<tr><td class=""color_class_bg"" align=""center""><a " & OpenTypeStr & " Class=""color_title"" href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/index." & AlreadyClassObj("FileExtName") & """ >" & AlreadyClassObj("ClassCName") & "</a></td><td width=30></td></tr>" & Chr(13) & Chr(10)
end if
Set RsNewsObj = Conn.Execute(NewsSql)
if Not RsNewsObj.Eof then
do while Not RsNewsObj.Eof
GetOneClassNewsList = GetOneClassNewsList & "<tr>" & Chr(13) & Chr(10)
for i = 1 to RowNumberStr
if DateRuleStr <> "" then
if DateRightStr = "Left" then'下面为大栏目下子栏目新闻日期样式
TempDateShowStr = " <font color=#ff000><span class=""" & DateCSSStyleStr & """>" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</span></font>"
elseif DateRightStr = "Center" then
TempDateShowStr = "<td align=""center""> <font color=#ff000><span class=""" & DateCSSStyleStr & """>" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</span></font>" & "</td>"& Chr(13) & Chr(10)
elseif DateRightStr = "Right" then
TempDateShowStr = "<td align=""Right""> <font color=#ff000><span class=""" & DateCSSStyleStr & """>" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</td>" & "</span></font>" & Chr(13) & Chr(10)
else
TempDateShowStr = " <font color=#ff000><span class=""" & DateCSSStyleStr & """>" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</span></font>"
end if
else
TempDateShowStr = ""
end if
if RsNewsObj("HeadNewsTF") = 1 then
if DateRightStr = "Center" OR DateRightStr = "Right" then
GetOneClassNewsList = GetOneClassNewsList & "<td " & RowHeightStr & "><img src=" & NaviPicStr & "><a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & RsNewsObj("HeadNewsPath") & """ title="""& RsNewsObj("Title")&""">" & GetHTMLTitle(RsNewsObj("TitleStyle"),GotTopic(RsNewsObj("Title"),TitleNumberStr)) & "</a></td>" & TempDateShowStr & Chr(13) & Chr(10)
else
GetOneClassNewsList = GetOneClassNewsList & "<td " & RowHeightStr & "><img src=" & NaviPicStr & "><a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & RsNewsObj("HeadNewsPath") & """ title="""& RsNewsObj("Title")&""">" & GetHTMLTitle(RsNewsObj("TitleStyle"),GotTopic(RsNewsObj("Title"),TitleNumberStr)) & "</a>" & TempDateShowStr & "</td>" & Chr(13) & Chr(10)
end if
else
if DateRightStr = "Center" OR DateRightStr = "Right" then
GetOneClassNewsList = GetOneClassNewsList & "<td " & RowHeightStr & "><img src=" & NaviPicStr & "><a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/" & RsNewsObj("FileName") & "." & RsNewsObj("FileExtName") & """ title="""& RsNewsObj("Title")&""">" & GetHTMLTitle(RsNewsObj("TitleStyle"),GotTopic(RsNewsObj("Title"),TitleNumberStr)) & "</a></td>" & TempDateShowStr & Chr(13) & Chr(10)
else
GetOneClassNewsList = GetOneClassNewsList & "<td " & RowHeightStr & "><img src=" & NaviPicStr & "><a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/" & RsNewsObj("FileName") & "." & RsNewsObj("FileExtName") & """ title="""& RsNewsObj("Title")&""">" & GetHTMLTitle(RsNewsObj("TitleStyle"),GotTopic(RsNewsObj("Title"),TitleNumberStr)) & "</a>" & TempDateShowStr & "</td>" & Chr(13) & Chr(10)
end if
end if
RsNewsObj.MoveNext
if RsNewsObj.Eof then
Exit For
end if
Next
GetOneClassNewsList =GetOneClassNewsList & "</tr>" & Chr(13) & Chr(10) & "<tr>" & Chr(13) & Chr(10) & "<td Height=1 " & TempRowNumberStr & ">" & Chr(13) & Chr(10) & "<table width=""100%"" cellpadding=""0"" cellspacing=""0"">" & Chr(13) & Chr(10) & "<tr>" & Chr(13) & Chr(10) & "<td Height=1 background=""" & CompatPicStr & """>" & Chr(13) & Chr(10) & "</td>" & Chr(13) & Chr(10) & "</tr>" & Chr(13) & Chr(10) & "</table>" & Chr(13) & Chr(10) & "</td>" & Chr(13) & Chr(10) & "</tr>" & Chr(13) & Chr(10)
Loop%>
<%
if MoreLinkContentStr <> "" then
if DateRuleStr <> "" then
if MoreLinkTypeStr = "1" then
GetOneClassNewsList = GetOneClassNewsList & "<tr><td " & TempRowNumberStr & " align=""right"">" & "<a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/index." & AlreadyClassObj("FileExtName") & """ ><img border=0 src=""" & MoreLinkContentStr & """></a>" & "</td></tr>" & Chr(13) & Chr(10)
elseif MoreLinkTypeStr = "0" then
GetOneClassNewsList = GetOneClassNewsList & "<tr><td " & TempRowNumberStr & " align=""right"">" & "<a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/index." & AlreadyClassObj("FileExtName") & """ >" & MoreLinkContentStr & "</a>" & "</td></tr>" & Chr(13) & Chr(10)
else
GetOneClassNewsList = GetOneClassNewsList & "<tr><td " & TempRowNumberStr & " align=""right""></td></tr>" & Chr(13) & Chr(10)
end if
else
if MoreLinkTypeStr = "1" then
GetOneClassNewsList = GetOneClassNewsList & "<tr><td align=""right"" """"""""" & TempRowNumberStr & ">" & "<a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/index." & AlreadyClassObj("FileExtName") & """ ><img border=0 src=""" & MoreLinkContentStr & """></a>" & "</td></tr>" & Chr(13) & Chr(10)
elseif MoreLinkTypeStr = "0" then
GetOneClassNewsList = GetOneClassNewsList & "<tr><td align=""right"" """"""""" & TempRowNumberStr & ">" & "<a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/index." & AlreadyClassObj("FileExtName") & """ >" & MoreLinkContentStr & "</a>" & "</td></tr>" & Chr(13) & Chr(10)
else
GetOneClassNewsList = GetOneClassNewsList & "<tr>ā<td align=""right"" """"""""" & TempRowNumberStr & "></td></tr>" & Chr(13) & Chr(10)
end if
end if
end if
GetOneClassNewsList = GetOneClassNewsList & "</table>" & Chr(13) & Chr(10)
else
GetOneClassNewsList = ""
end if
Set RsNewsObj = Nothing
else
GetOneClassNewsList = ""
end if
End Function
