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

Else
TempBg = ""
End If
If TempBk <> "" and TempBg <> "" then
TempB = "</div></div>"
Elseif TempBk = "" or TempBg = "" then
TempB = "</div>"
Else
TempB = ""
End If

Dim SpicNewsSql,SpicNewsObj,i,TitleStr,TempDoMain
If SpecialListStr = "" then
Select Case Fun_Refresh_Type
Case "Index"
SpicNewsSql = "Select Top " & NewsNumberStr & " * From Fs_News Where PicNewsTF = 1 and DelTF = 0 and SpecialID Is Not Null Order By NewsID Desc"
Case "Special"
SpicNewsSql = "Select Top " & NewsNumberStr & " * From Fs_News Where PicNewsTF = 1 and DelTF = 0 and SpecialID like '" & Fun_Refresh_ID & "' Order By NewsID Desc"
Case Else
SpicNewsSql = ""
End Select
Else
SpicNewsSql = "Select Top " & NewsNumberStr & " * From Fs_News Where PicNewsTF = 1 and DelTF = 0 and SpecialID like '" & SpecialListStr & "' Order By NewsID Desc"
End If
If SpicNewsSql <> "" then
Set SpicNewsObj = Conn.Execute(SpicNewsSql)
If Not SpicNewsObj.Eof then
SpicNews = "<table cellpadding=""0"" cellspacing=""" & RowSpaceStr & """ border=""0"" width=""100%"">" & Chr(13) & Chr(10)
Do While Not SpicNewsObj.Eof
SpicNews = SpicNews & "<tr>" & Chr(13) & Chr(10)
TitleStr = "<tr>"
For i = 1 to RowNumStr
If ShowTitleStr = "1" then
TitleStr = TitleStr & "<td " & TitleModeStr & ">" & Chr(13) & Chr(10) & "<a " & OpenModeStr & CssFileStr & " href=""" & GetOneNewsLinkURL(SpicNewsObj("NewsID")) & """ title="""& SpicNewsObj("Title")&""">" & GotTopic(SpicNewsObj("Title"),TitleNumberStr) & "</a></td>" & Chr(13) & Chr(10)
Else
TitleStr = ""
End If
If Left(SpicNewsObj("PicPath"),4)="http" then TempDoMain="" else TempDoMain=GetConfig(0)
SpicNews = SpicNews & "<td " & PicModeStr & ">" & Chr(13) & Chr(10) & TempBk & Chr(13) & Chr(10) & TempBg & Chr(13) & Chr(10) & "<a " & OpenModeStr & CssFileStr & " href=""" & GetOneNewsLinkURL(SpicNewsObj("NewsID")) & """ title="""& SpicNewsObj("Title")&""">" & "<img border=""0"" src=""" & TempDoMain & SpicNewsObj("PicPath") & """ width=""" & PicWidthStr & """ height=""" & PicHeightStr & """ style=""margin-top: expression(" & ImgT & ");"">" & "</a>" & TempB & "</td>" & Chr(13) & Chr(10)9 7 3

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