专题图片新闻调用(2)_风讯Cms教程

'================================================================================================
Case "unrulenews"
if UBound(m_Prar_Cont_Array) = 3 then ReDim Preserve m_Prar_Cont_Array(4) : m_Prar_Cont_Array(4) = "0"
if UBound(m_Prar_Cont_Array) = 4 then : Select_Function = Get_No_Rule_NewsList_Content(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4)) : else : Select_Function = "" : Exit Function : end if
Case "rss" : Select_Function = RSS : Exit Function
Case Else : Select_Function = "" : Exit Function
End Select
End Function

五、\Foosun\Admin\Refresh\RefreshFunction.asp 增加两个函数：

'===================2006-06-07===============================================================================
Function GetModeStr(ModeStr)
Select Case ModeStr
Case "1"
ModeStr = "align=""left"""
Case "2"
ModeStr = "align=""center"""
Case "3"
ModeStr = "align=""right"""
Case else
ModeStr = ""
End Select
GetModeStr=ModeStr
End Function

'专题图片
Function SpicNews(SpecialListStr,NewsNumberStr,ShowTitleStr,OpenModeStr,TitleNumberStr,RowNumStr,PicWidthStr,PicHeightStr,CssFileStr,RowSpaceStr,PicModeStr,TitleModeStr,IsBkStr,BkColorStr,BgColorStr,BgImgStr)
TitleNumberStr = GetTitleNumberStr(TitleNumberStr)
OpenModeStr = GetOpenTypeStr(OpenModeStr)
CssFileStr = GetCSSStyleStr(CssFileStr)
PicModeStr = GetModeStr(PicModeStr)
TitleModeStr = GetModeStr(TitleModeStr)
Dim DivW,DivH,ImgT
DivW = CInt(CInt(PicWidthStr) CInt(RowSpaceStr))
DivH = CInt(CInt(PicHeightStr) CInt(RowSpaceStr))
ImgT = CInt(CInt(RowSpaceStr)/2)
Dim TempBk,TempBg,TempB
If IsBkStr = "1" then
If BkColorStr <> "" then
TempBk = "<div STYLE=""border-style:Double;border-width:3pt; border-color: " & BkColorStr & ";width:" & DivW & "; height:" & DivH & ";text-align:center;"">"
Else
TempBk = "<div STYLE=""border-style:Double;border-width:3pt; border-color:#000000;width:" & DivW & "; height:" & DivH & ";text-align:center;"">"
End If
Else
TempBk = ""
End If
If BgColorStr <> "" and BgImgStr <> "" then
TempBg = "<div style=""background-color:" & BgColorStr & "; background-image:url(" & BgImgStr & ");width:" & DivW & "; height:" & DivH & ";text-align:center;"">"
Elseif BgColorStr = "" and BgImgStr <> "" then
TempBg = "<div style=""background-image:url(" & BgImgStr & ");width:" & DivW & "; height:" & DivH & ";text-align:center;"">"
Elseif BgColorStr <> "" and BgImgStr = "" then
TempBg = "<div style=""background-color:" & BgColorStr & ";width:" & DivW & "; height:" & DivH & ";text-align:center;"">"

查看更多 风讯cms教程  风讯cms模板