ACCESS數據庫用的方法:
Instr(','+Speciality+',',',2,')<>0
完整的代碼如下:
FunctionUpdate08() DimTemplateFilePath
TemplateFilePath=Server.MapPath("../../../default.htm")
DimTClass,strHtml
SetTClass=NewTkl_TemplateClass
strHtml=""
DimRs,Sql
Sql="SelectTop8Title,FilePath,AddTimeFromview_NewsInfoWhereInstr(','+Speciality+',',',18,')<>0orderByIdDESC"
SetRs=Conn.ExeCute(Sql)
WhileNotRs.Eof
strHtml=strHtml&"·["&StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}")&"]<ahref="""&Rs("FilePath")&"""target=""_blank"">"&Rs("Title")&"</a><br>"&vbCrLf
Rs.MoveNext
Wend
Rs.Close
SetRs=Nothing
WithTClass
.OpenTemplate(TemplateFilePath)
.StartElement="<!--DownRecommand:start-->"
.EndElement="<!--DownRecommand:end-->"
.Value=strHtml
.ReplaceTemplate()
.Save()
EndWith
SetTClass=Nothing
EndFunction
如果這段使用在SQL中會提示'Instr'不是可以識別的函數名。
SQL數據庫更新應用:
dbo.IsSpeciality(Speciality,'2')>0
完整代碼如下:
'//下載中心－推薦FunctionUpdate08()
DimTemplateFilePath
TemplateFilePath=Server.MapPath("../../../default.htm")
DimTClass,strHtml
SetTClass=NewTkl_TemplateClass
strHtml=""
DimRs,Sql
Sql="SelectTop8Title,FilePath,AddTimeFromview_NewsInfoWheredbo.IsSpeciality(Speciality,'18')>0orderByIdDESC"
SetRs=Conn.ExeCute(Sql)
WhileNotRs.Eof
strHtml=strHtml&"·["&StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}")&"]<ahref="""&Rs("FilePath")&"""target=""_blank"">"&Rs("Title")&"</a><br>"&vbCrLf
Rs.MoveNext
Wend
Rs.Close
SetRs=Nothing
