Fungsi ASP yang umum digunakan, saya harap mereka dapat digunakan.
<%
redup db
db = dbms.mdb
'********************************************************************
'Jalankan pernyataan SQL tanpa mengembalikan nilai. Pernyataan SQL terbaik adalah sebagai berikut:
'Perbarui Nama Tabel Setel Nama Bidang = Nilai, Nama Bidang = Nilai Di mana Nama Bidang = Nilai
'hapus dari nama tabel di mana nama bidang = nilai
'Masukkan ke dalam nama tabel (Nama Bidang, Nama Bidang) Nilai (nilai, nilai)
'********************************************************************
Sub Noresult (SQL)
redup conn
Connstr
Set Conn = Server.CreateObject (AdodB.Connection)
connstr = provider = microsoft.jet.oledb.4.0; Sumber data = & server.mappath (& db &)
Conn.open Connstr
Conn.Execute SQL
Conn.Close
atur conn = tidak ada
Akhir sub
'*********************************************************************************
'Jalankan pernyataan pilih dan kembalikan objek Recordset. Objek ini hanya baca. Artinya, itu tidak dapat diperbarui
'*********************************************************************************
Hasil Fungsi (SQL)
redup conn
Connstr
redup rcs
Set Conn = Server.CreateObject (AdodB.Connection)
connstr = provider = microsoft.jet.oledb.4.0; Sumber data = & server.mappath (& db &)
Conn.open Connstr
Setel rcs = server.CreateObject (adodb.recordset)
rcs.open sql, conn, 1,1
Setel hasil = RCS
Fungsi akhir
'*********************************************************************************
'Kotak dialog muncul
'*********************************************************************************
Sub Alert (pesan)
pesan = ganti (pesan, ',/')
Response.write (<script> alert ('& message &') </cript>)
Akhir sub
'*********************************************************************************
'Kembali ke halaman sebelumnya, biasanya digunakan setelah menilai apakah informasi tersebut diserahkan sepenuhnya
'*********************************************************************************
Sub goback ()
Response.write (<script> history.go (-1) </script>)
Akhir sub
'*********************************************************************************
'Mengalihkan koneksi lain
'*********************************************************************************
Sub go (url)
Response.write (<script> location.href ('& url &') </cript>)
Akhir sub
'*********************************************************************************
'Ganti tag HTML
'*********************************************************************************
fungsi htmlencode2 (str)
Hasil redup
redup l
jika isnull (str) lalu
htmlencode2 =
fungsi keluar
akhiri jika
l = len (str)
hasil =
redup i
untuk i = 1 hingga l
Pilih case mid (str, i, 1)
kasus <
Hasil = Hasil+<
case>
Hasil = Hasil+>
case chr (13)