http://www.woxun.com/html/Web/
看我给朋友做的
运用子新闻表建的｀在'Refresh＼RefreshFunction.asp
得到一个栏目的新闻列表
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
if Not AlreadyClassObj.Eof then
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"
GetOneClassNewsList = "<table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""100%"">" & Chr(13) & Chr(10)
NaviPicStr = GetNewsNavitionStr(TxtNaviStr,NaviPicStr)
if RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
CompatPicStr = GetCompatPicStr(CompatPicStr,DateRightStr,DateRuleStr,RowNumberStr)
if DateRuleStr <> "" then
GetOneClassNewsList = GetOneClassNewsList & "<tr><td colspan=""2"" align=""center"" width=""352"" height=""30"" background=""/woxun_images/woxun_lmbg.gif""><a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneClassLinkURL(AlreadyClassObj("ClassEName"),AlreadyClassObj("SaveFilePath"),AlreadyClassObj("FileExtName")) & """ >" & AlreadyClassObj("ClassCName") & "</a></td></tr>" & Chr(13) & Chr(10)
else
GetOneClassNewsList = GetOneClassNewsList & "<tr><td align=""center"" width=""352"" height=""30"" background=""/woxun_images/woxun_lmbg.gif""><a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneClassLinkURL(AlreadyClassObj("ClassEName"),AlreadyClassObj("SaveFilePath"),AlreadyClassObj("FileExtName")) & """ >" & AlreadyClassObj("ClassCName") & "</a></td></tr>" & Chr(13) & Chr(10)
end if
红色是运用的背景｀其他的自己灵活运用．．．
[em04]
