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

ACCESS数据库用的方法: Instr('',''+Speciality+'','','',2,'')0 完整的代码如下: 代码如下:FunctionUpdate08() DimTemplateFilePath TemplateFilePath=Server.MapPath('../../../default.htm') DimTClass,strHtml SetTClass=NewTkl_TemplateClass strHtml=''

作者: 来源: 时间: 17-11-23 15:16:48

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=http://www.popasp.com/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=http://www.popasp.com/strHtml
        .ReplaceTemplate() 
        .Save() 
    End With 
    Set TClass=Nothing 
End Function 
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们