TSYS一个新闻多种特性时如何进行前台更新？

　　'//下载中心 － 推荐

　　Function Update08()

　　Dim TemplateFilePath

　　TemplateFilePath=Server.MapPath("/default.htm")

　　Dim TClass,strHtml

　　Set TClass=New Tkl_TemplateClass

　　strHtml=""

　　Dim Rs,Sql

　　Sql="Select Top 8 Title,FilePath,AddTime From view_NewsInfo Where dbo.IsSpeciality(Speciality,'18')>0 order By Id DESC"

　　Set Rs=Conn.ExeCute(Sql)

　　While Not Rs.Eof

　　strHtml=strHtml&"·[" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}") & "]" & Rs("Title") & "
" & vbCrLf

　　Rs.MoveNext

　　Wend

　　Rs.Close

　　Set Rs=Nothing

　　With TClass

　　.OpenTemplate(TemplateFilePath)

　　.StartElement=""

　　.EndElement=""

　　.Value=strHtml

　　.ReplaceTemplate()

　　.Save()

　　End With

　　Set TClass=Nothing

　　End Function