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