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
