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

(0)

相关推荐

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

    ACCESS数据库用的方法: Instr(','+Speciality+',',',2,')<>0 完整的代码如下: 复制代码 代码如下: Function Update08()      Dim TemplateFilePath          TemplateFilePath=Server.MapPath("../../../default.htm")      Dim TClass,strHtml      Set TClass=New Tkl_TemplateCl

  • Javascript的setTimeout()使用闭包特性时需要注意的问题

    setTimeout经常被用于延迟执行某个函数,用法为: 复制代码 代码如下: setTimeout(function(){ - }, timeout); 有时为了进行异步处理,而使用setTimeout(function-,0):比如: 复制代码 代码如下: function f(){ - // get ready setTimeout(function(){ -. // do something }, 0);   return -; } 在setTimeout设定的函数处理器之前,函数f返回

  • WIN10安装有多种数据库时如何防止电脑卡慢问题

    用的时候再开启服务,不用的时候就停止服务. 管理数据库服务的方法: 1.右击此电脑,找到管理并单击,打开如下页面: 2.找到服务和应用程序,展开它: 3.单击服务,右边就出现了所有可供开启/关闭的服务: 4.找到相应的数据库服务.这些服务都是按照字典序排列的,所以很容易找到相应的数据库服务,比如MySQL服务: 5.右击找到属性并单击,得到如下界面: 6.将启动类型改为手动,单击确定: 7.这样就无需担心系统自动启动相应的数据库服务了,还是在属性界面上,在需要开启的时候单击启动,使用完后单击停止

  • django model的update时auto_now不被更新的原因及解决方式

    gmt_create自动添加auto_now_add:gmt_modify自动更新auto_now class CommonInfo(models.Model): """基类,提供共同信息,不会创建真实的table""" class Meta: # 声明自己为抽象基类 abstract = True # 下面表示先根据更新时间gmt_modify降序排序,如果更新时间相同,再根据创建时间gmt_create降序排序 ordering = ['-g

  • TSYS中生成静态页时溢出: 'CInt'

    今天在添加文章生成静态页是,发生了 溢出: 'CInt'. 经查得知: 原来是CINT不支持太大的数字,估计有一个数值范围吧,所以换成CLNG就解决问题了. 修改TSYS下的MANAGE/INCLUDE/CreateFile_Fun.asp中的第107行.             复制代码 代码如下: If I=0 Then                  '生成文件存放路径                 '原来的提示cint溢出FilePath=CreateFileSaveToPath(C

  • js当一个变量为函数时 应该注意的一点细节小结

    先看一段简单的代码: 复制代码 代码如下: var testFun=function (name,age){ var job='Flash Develop'; return new testFun.init(name,age,job); } testFun.init=function(name,age,job){ return 'name:'+name+',age:'+age+',job:'+job+''; } alert(testFun('vincent',30)); //[object Ob

  • ajax上传时参数提交不更新等相关问题

    先前,我从网上下载了一个jQuery的Ajax上传插件,网页的左侧是上传分类,想要实现的一个功能是如此这样的:我本来是打算在服务端根据上传分类建立不同的文件夹来保存文件的,因此这个就需要传一个上传分类参数给后台.这些上传分类是从数据库读出,用repeater生成的.当点击其中一个分类时就给他设置一个样式,并且将这个分类的名字保存到一个变量uploadCatlog中.我可以取到分类并传给后台,但是很奇怪的是只有第一次是正确的,以后的每次参数都不更新.其实在上传插件的onComplete回调函数中也

  • 微信小程序发布新版本时自动提示用户更新的方法

    如图,当小程序发布新的版本后,用户如果之前访问过该小程序,通过已打开的小程序进入(未手动删除),则会弹出这个提示,提醒用户更新新的版本.用户点击确定就可以自动重启更新,点击取消则关闭弹窗,不再更新. 官方给的示例代码: const updateManager = wx.getUpdateManager() updateManager.onCheckForUpdate(function (res) { // 请求完新版本信息的回调 console.log(res.hasUpdate) }) upd

  • 举例理解Ruby on Rails的页面缓存机制

    有了页面缓存,Rails 就可以不再介入.在某种程度上,这是件好事,因为您的确可以获得优秀的性能.Rails 只需创建 HTML 页面,将其放入目录,之后,就可以置之于脑后.从那时起,就由应用服务器管理这些页面,且页面进入应用服务器无需任何循环.从性能的角度而言,页面缓存真是天赐之福. 我也钟爱页面缓存,Rails 使之简单利落.只需使用一行代码就可以启用缓存.如果再加入一些代码,就能通过简单地删除文件操作或使用 Rails 较高层的 API 终止缓存.这里存在一个问题.并不是每个网站都能使用页

  • 在Mac OS的终端中运行Swift应用的方法

    在读完苹果开发者文档( Apple Developer Docs)后,我发现: "Xcode的调试器包括一个Swift语言的交互版本,叫做REPL(Read-Eval-Print-Loop)...可以通过Xcode的控制台或终端来访问" 不幸的是,它并没有告诉你怎样从终端访问.好在这也不是什么难事. 输入如下命令即可(无论你用哪个beta,换掉app的名字) 复制代码 代码如下: alias swift="/Applications/Xcode6-Beta2.app/Cont

随机推荐