Metode yang digunakan dalam database akses:
Instr (','+spesialisasi+',', ',', 2, ') <> 0
Kode lengkapnya adalah sebagai berikut:
Salinan kode adalah sebagai berikut:
FunctionUpdate08 () DiMTemplateFilePath
TemplateFilePath = server.mappath ("../../../ default.htm")
DIMTClass, strhtml
Settclass = newtkl_templateClass
strhtml = ""
DIMRS, SQL
Sql = "selecttop8title, filepath, addTimefromview_newsinfowhereIntr (','+Specialty+',', ', 18,') <> 0OrderByIddesc"
Setrs = conn.execute (sql)
Whilenotrs.eof
strhtml = strhtml & "· [" & strclass.FormatMyDate (rs ("addTime"), "{m}/{d}") & "] <ahref =" "& rs (" filepath ") &" "target =" "_ blank" "" ">" "& rs ("
Rs.movenext
Pergi ke
Rs.close
SetRs = tidak ada
Denganclass
.Opentemplate (templateFilePath)
.Startelement = "<!-downrecommand: start->"
.Endelement = "<!-downrecommand: end->"
.Value = strhtml
.Replacetemplate ()
.Menyimpan()
Endwith
Settclass = tidak ada
Fungsi endfungsi
Jika paragraf ini digunakan dalam SQL, itu akan meminta bahwa 'instr' bukan nama fungsi yang dapat dikenali.
Aplikasi Pembaruan Database SQL:
dbo.isspeciality (spesialisasi, '2')> 0
Kode lengkapnya adalah sebagai berikut:
Salinan kode adalah sebagai berikut:
'// Download Center - Direkomendasikan FunctionUpdate08 ()
DiMTemplateFilePath
TemplateFilePath = server.mappath ("../../../ default.htm")
DIMTClass, strhtml
Settclass = newtkl_templateClass
strhtml = ""
DIMRS, SQL
Sql = "selecttop8title, filepath, addtimefromview_newsinfowheredbo.isspeciality (spesialisasi, '18 ')> 0OrderByIddesc"
Setrs = conn.execute (sql)
Whilenotrs.eof
strhtml = strhtml & "· [" & strclass.FormatMyDate (rs ("addTime"), "{m}/{d}") & "] <ahref =" "& rs (" filepath ") &" "target =" "_ blank" "" ">" "& rs ("
Rs.movenext
Pergi ke
Rs.close
SetRs = tidak ada
