帝国cms怎么装excel

1.开源CMS如何加上表格显示发现此公告没有用到表格,所以想用css

代码如下： Function ShowAnnounce(sChannelID,TopNum,TitleLen,ShowType,DateType) sChannelID = Cl。

ChkCLng(sChannelID) : ShowType = Cl。 ChkCLng(ShowType) TopNum = Cl。

ChkCLng(TopNum) : DateType = Cl。ChkCLng(DateType) dim SQL, Rs, i, sTemp if TopNum>0 then SQL="Select Top " & TopNum & " " else SQL="Select Top 10 " end if sTemp=sTemp&"" SQL=SQL & " ID,Title,Content,Author,AddTime from Cl_Announce where IsSelected=True and (ChannelID=-1 or ChannelID=" & sChannelID & ") and (ShowType=0 or ShowType=1) order by ID Desc" Set Rs = Cl。

Execute(SQL) if f and Rs。eof then ShowAnnounce = "当前没有通告！" Rs。

Close : Set Rs=Nothing : Exit Function end if SQL = Rs。 GetRows(-1) Rs。

Close : Set Rs=Nothing sTemp = "" : TopNum = Ubound(SQL,2) Select Case ShowType Case 0 TitleLen = Cl。 ChkClng(TitleLen) for i=0 to TopNum sTemp = sTemp & "" sTemp = sTemp & "·" & Cl。

GotTopic(SQL(1,i),TitleLen) & "" next Case 1 for i=0 to TopNum sTemp = sTemp & " " & SQL(1,i) & "" & SQL(3,i) & " " & Cl。 Format_Time(SQL(4,i),DateType) & "" if i " next Case 2 for i=0 to TopNum sTemp = sTemp & "·" & SQL(1,i) & " [" & SQL(3,i) & " " & Cl。

Format_Time(SQL(4,i),DateType) & "] " sTemp=sTemp&"" next End Select ShowAnnounce = sTemp SQL=Empty End Function 。