TSYS一個新聞多種特性時如何進行前臺更新?

2024-05-04 10:58:36

字體：大中小

來源：轉載

供稿：網友

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}/iwvjtn8m0") & "]<a href=""" & Rs("FilePath") & """ target=""_blank"">" & Rs("Title") & "</a><br>" & 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

如果這段使用在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}/iwvjtn8m0") & "]<a href=""" & Rs("FilePath") & """ target=""_blank"">" & Rs("Title") & "</a><br>" & vbCrLf
        Rs.MoveNext
    Wend
    Rs.Close
    Set Rs=Nothing

上一篇：ASP解壓縮（在線解壓縮類）

下一篇：ASP上傳圖片功能的又一實現（OLE對象）

發表評論

共有條評論