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


            ACCESS数据库用的方法: Instr(','+Speciality+',',',2,')<>0 完整的代码如下:复制代码 代码如下: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 Instr(','+Speciality+',',',18,')<>0  order By Id DESC"      Set Rs=Conn.ExeCute(Sql)      While Not Rs.Eof          strHtml=strHtml&"·[" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}") & "]<a href=""" & Rs("FilePath") & """ target=""_blank"">" & Rs("Title") & "</a><br>" & vbCrLf          Rs.MoveNext      Wend      Rs.Close      Set Rs=Nothing      With TClass          .OpenTemplate(TemplateFilePath)          .StartElement="<!--DownRecommand:start-->"          .EndElement="<!--DownRecommand:end-->"          .Value=strHtml          .ReplaceTemplate()          .Save()      End With      Set TClass=Nothing  End Function 如果这段使用在SQL中会提示'Instr' 不是可以识别的 函数名。 SQL数据库更新应用:dbo.IsSpeciality(Speciality,'2')>0 完整代码如下:复制代码 代码如下:'//下载中心 － 推荐  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}") & "]<a href=""" & Rs("FilePath") & """ target=""_blank"">" & Rs("Title") & "</a><br>" & vbCrLf          Rs.MoveNext      Wend      Rs.Close      Set Rs=Nothing      With TClass          .OpenTemplate(TemplateFilePath)          .StartElement="<!--DownRecommand:start-->"          .EndElement="<!--DownRecommand:end-->"          .Value=strHtml          .ReplaceTemplate()          .Save()      End With      Set TClass=Nothing  End Function