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="<>"

.EndElement="<>"

.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

WithTClass

.OpenTemplate(TemplateFilePath)

.StartElement="<>"

.EndElement="<>"

.Value=strHtml

.ReplaceTemplate()

.Save()

EndWith

SetTClass=Nothing

EndFunction