Методы, используемые в базе данных доступа:
Instr (','+specialty+',', ',', 2, ') <> 0
Полный код заключается в следующем:
Кода -копия выглядит следующим образом:
FunctionUpdate08 () DimTemplateFilePath
TemplateFilePath = server.mappath ("../../../ default.htm")
Dimtclass, strhtml
SettClass = newtkl_templateClass
strhtml = ""
Dimrs, SQL
Sql = "selecttop8title, filePath, addtimefromview_newsinfowhereinstr (','+specialty+',', ', 18,') <> 0orderbyiddesc"
Setrs = conn.execute (sql)
Пока
strhtml = strhtml & "· [" & strclass.formatmydate (rs ("addtime"), "{m}/{d}") & "] <ahref =" "& rs (" filePath ") &" "target =" "_ Blank" ">" & rs ("title") & "</a> <brlf>"
Rs.movenext
Венд
Rs.close
Setrs = ничего
Withtclass
.Opentemplate (Templatefilepath)
.Startelement = "<!-Down-Recommand: Start->"
.EndElement = "<!-Down-Recommand: End->"
.Value = strhtml
.ReplaceTemplate ()
.Сохранять()
Энд
SattClass = ничего
Конечная функция
Если этот абзац используется в SQL, он подскажет, что «instr» не является узнаваемой именем функции.
Приложение обновления базы данных SQL:
dbo.ispeciality (специальность, '2')> 0
Полный код заключается в следующем:
Кода -копия выглядит следующим образом:
'// Скачать центр - рекомендуется FunctionUpdate08 ()
DimTemplateFilePath
TemplateFilePath = server.mappath ("../../../ default.htm")
Dimtclass, strhtml
SettClass = newtkl_templateClass
strhtml = ""
Dimrs, SQL
Sql = "selecttop8title, filepath, addtimefromview_newsinfowheredbo.ispeciality (Speciesty, '18 ')> 0orderbyiddesc"
Setrs = conn.execute (sql)
Пока
strhtml = strhtml & "· [" & strclass.formatmydate (rs ("addtime"), "{m}/{d}") & "] <ahref =" "& rs (" filePath ") &" "target =" "_ Blank" ">" & rs ("title") & "</a> <brlf>"
Rs.movenext
Венд
Rs.close
Setrs = ничего