Méthodes utilisées dans la base de données d'accès:
Instant (',' + spécialité + ',', ',', 2, ') <> 0
Le code complet est le suivant:
La copie de code est la suivante:
FunctionUpdate08 () Dimtremplatefilepath
TemplateFilePath = server.mappath ("../../../ default.htm")
Dimtclass, strhtml
SextClass = newtkl_templateclass
strhtml = ""
DIMRS, SQL
Sql = "selectTop8Title, filepath, addtimefromview_newsinfowhereinstr (',' + spécial + ',', ', 18,') <> 0OrderByIdDesc"
Setrs = conn.excute (sql)
Whilenotrs.eof
strhtml = strhtml & "· [" & strclass.formatmydate (rs ("addtime"), "{m} / {d}") & "] <ahref =" "& rs (" filepath ") &" "" "
Rs.MovEnext
Se promener
Rs.Close
Setrs = rien
Avec
.OpenEmplate (templateFilePath)
.Startelement = "<! - DownRecommand: start ->"
.EndElement = "<! - DownRecommand: end ->"
.Value = strhtml
.Replacetemplate ()
.Sauvegarder()
Fin
SettClass = rien
Finition de fin
Si ce paragraphe est utilisé dans SQL, il incitera que «instant» n'est pas un nom de fonction reconnaissable.
Application de mise à jour de la base de données SQL:
dbo.isspecialité (spécialité, '2')> 0
Le code complet est le suivant:
La copie de code est la suivante:
'// Centre de téléchargement - recommandé FunctionUpdate08 ()
Dimtremplatefilepath
TemplateFilePath = server.mappath ("../../../ default.htm")
Dimtclass, strhtml
SextClass = newtkl_templateclass
strhtml = ""
DIMRS, SQL
Sql = "selectTop8Title, filepath, addtimefromview_newsinfowheredbo.isspeciality (spécialité, '18 ')> 0OrderByidDesc"
Setrs = conn.excute (sql)
Whilenotrs.eof
strhtml = strhtml & "· [" & strclass.formatmydate (rs ("addtime"), "{m} / {d}") & "] <ahref =" "& rs (" filepath ") &" "" "
Rs.MovEnext
Se promener
Rs.Close
Setrs = rien
