Methoden, die in der Zugriffsdatenbank verwendet werden:
Instr (','+Specialty+',', ',', 2, ') <> 0
Der vollständige Code lautet wie folgt:
Die Codekopie lautet wie folgt:
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")&"""target=""_blank""">"&Rs("Title")&"</a><br>"&vbCrLf
Rs.Movenext
Wend
Rs.close
Setrs = nichts
Mit T -Klassen
.Opentemplate (TemplateFilePath)
.StartElement = "<!-DownRecommand: Start->"
.EndElement = "<!-Downrecommand: Ende->"
.Value = strhtml
.Replacetemplate ()
.Speichern()
Endwith
SettClass = nichts
Endfunktion
Wenn dieser Absatz in SQL verwendet wird, fordert 'Instrument' kein erkennbarer Funktionsname.
SQL -Datenbank -Aktualisierungsanwendung:
dbo.isspeciality (Spezialität, '2')> 0
Der vollständige Code lautet wie folgt:
Die Codekopie lautet wie folgt:
'// Download Center - Empfohlen FunctionUpdate08 ()
DimtemplateFilepath
TemplateFilepath = server.mappath ("../../../ default.htm")
DimtClass, strhtml
SettClass = newtkl_temPlateClass
strhtml = ""
DiMRs, SQL
Sql = "selectTop8title, filepath, addtimeFromView_newSinfowheredBo.isspeciality (Spezialität, '18 ')> 0OrDBYIDDESC"
Setrs = conn.execute (SQL)
Whilenotrs.eof
strHtml=strHtml&"·["&StrClass.FormatMyDate(Rs("AddTime"),"{m}/{d}")&"]<ahref=""&Rs("FilePath")&"""target=""_blank""">"&Rs("Title")&"</a><br>"&vbCrLf
Rs.Movenext
Wend
Rs.close
Setrs = nichts
