Métodos usados no banco de dados de acesso:
Instr (','+Specialty+',', ',', 2, ') <> 0
O código completo é o seguinte:
A cópia do código é a seguinte:
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)
Whilenotrs.eof
strhtml = strhtml & "· [" & strclass.formatmydate (rs ("addtime"), "{m}/{d}") & "] <ahref =" "& rs (" filepath ") &" alvo = "" _blain "" "" & rs ("rs (" filepath ") &" alvo = "" _blain "" "" & rs ("rs (" ") e" Title "" "" "" e "" "" "" "" "" & rs ("FilePath") e "" "" "" "" "" & Rs ("
Rs.movenext
Wend
Rs.close
Setrs = nada
Withtclass
.Pentemplate (templateFilePath)
.StartElement = "<!-DownRecommand: start->"
.ENDELEMENT = "<!-DownRecommand: end->"
.Value = strhtml
.Replacetemplate ()
.Salvar()
ENDWITH
SettClass = nada
Função final
Se este parágrafo for usado no SQL, solicitará que 'Instr' não seja um nome de função reconhecível.
Aplicativo de atualização do banco de dados SQL:
DBO.ISSPECIALIDADE (Especialidade, '2')> 0
O código completo é o seguinte:
A cópia do código é a seguinte:
'// Centro de download - recomendado FunctionUpdate08 ()
DimtemplateFilePath
Templatefilepath = server.mappath ("../../../ default.htm")
DIMTCLASS, STRHTML
SettClass = newtkl_templateclass
strhtml = ""
DIMRS, SQL
Sql = "SelectTop8Title, FilePath, AddTimeFromview_Newsinfowheredbo.isspeciality (Specialty, '18 ')> 0OrderByiddesc"
Setrs = Conn.Execute (SQL)
Whilenotrs.eof
strhtml = strhtml & "· [" & strclass.formatmydate (rs ("addtime"), "{m}/{d}") & "] <ahref =" "& rs (" filepath ") &" alvo = "" _blain "" "" & rs ("rs (" filepath ") &" alvo = "" _blain "" "" & rs ("rs (" ") e" Title "" "" "" e "" "" "" "" "" & rs ("FilePath") e "" "" "" "" "" & Rs ("
Rs.movenext
Wend
Rs.close
Setrs = nada
