Métodos utilizados en la base de datos de acceso:
Instr (','+Specialty+',', ',', 2, ') <> 0
El código completo es el siguiente:
La copia del código es la siguiente:
FunctionUpdate08 () Dimtemplatefilepath
TEMPLATEFILEPATH = Server.Mappath ("../../../ Default.htm")
DimtClass, strhtml
Settclass = newtkl_templateClass
strhtml = ""
Dimrs, sql
Sql = "selectTop8title, FilePath, addTimeFromView_newsinfowhereInstr (','+especialty+',', ', 18,') <> 0erDerByidDesc"
Setrs = conn.execute (SQL)
Mientras que
strhtml = strhtMl & "· [" & strclass.FormatMyDate (rs ("addtime"), "{m}/{{d}") & "enlausos en salsas en los habitantes ("
Rs.Movenext
Encaminarse a
Rs.
SETRS = nada
Con ciclo
.Opentemplate (TemplateFilepath)
.StartElement="<!--DownRecommand:start-->"
.Edelement = "<!-DownRecommand: End->"
.Value = strhtml
.ReplaceTemplate ()
.Ahorrar()
Fin
Settclass = nada
Función final
Si este párrafo se usa en SQL, solicitará que 'Instr' no es un nombre de función reconocible.
Aplicación de actualización de la base de datos SQL:
dbo.isspecialy (especialidad, '2')> 0
El código completo es el siguiente:
La copia del código es la siguiente:
'// Descargar Centro - Recomendado FunctionUpdate08 ()
Dimtemplatefilepath
TEMPLATEFILEPATH = Server.Mappath ("../../../ Default.htm")
DimtClass, strhtml
Settclass = newtkl_templateClass
strhtml = ""
Dimrs, sql
Sql = "selectTop8title, filepath, addTimeFromView_newsinfowheredBo.isspecialy (especialty, '18 ')> 0erDerByidDesc"
Setrs = conn.execute (SQL)
Mientras que
strhtml = strhtMl & "· [" & strclass.FormatMyDate (rs ("addtime"), "{m}/{{d}") & "enlausos en salsas en los habitantes ("
Rs.Movenext
Encaminarse a
Rs.
SETRS = nada
