有很多网友再问如何做一个JS新闻调用程序,现在贴出来供大家参考: JS调用程序: List2.asp 源码:——————————————————————————– <% Dim RS,Sql Dim SpecId ‘资源特性Id SpecId=CLng(Request(“SpecId”)) Sql=”select Top 10 Id,Title,FilePath From view_NewsInfo where Instr(‘,’+Speciality+’,’,’,”&SpecId&”,
ACCESS数据库用的方法: Instr(‘,’+Speciality+’,’,’,2,’)0 完整的代码如下: 代码如下:Function Update08() Dim TemplateFilePath TemplateFilePath=Server.MapPath(“../../../default.htm”) Dim TClass,strHtml Set TClass=New Tkl_TemplateClass strHtm