Anda dapat memodifikasi fungsi myreplace untuk mengimplementasikan penggantian yang kompleks. Haha, sepertinya tidak banyak gunanya. Tujuan utamanya adalah untuk melihat cara membaca tabel akses dan daftar bidang
<%.
'######################################
'Ganti konten basis data lamking 22-8-2005
'http://www.lamking.com QQ:628557
'######################################
Redupkan Db,Konstruksi,sambung,rs,rs2,str1,str2,I
str1="abcd" 'String yang akan diganti
str2="1234" 'Ganti stringnya dengan
Db="lamking.mdb"
Setel koneksi=Server.CreateObject("ADODB.Connection")
ConnStr="Penyedia=Microsoft.Jet.OLEDB.4.0;Sumber Data="&server.mappath(Db)
Sambungan.Buka SambunganStr
Setel rs = samb.OpenSchema(20)
Lakukan Saat Tidak rs.eof
Jika rs("TABLE_TYPE")="TABLE" Lalu
Setel Rs2=Server.Createobject("adodb.recordset")
Rs2.Buka "pilih * dari ["&rs("TABLE_NAME")&"]", samb.1,3
Lakukan Meskipun Tidak Rs2.Eof
Untuk I=0 sampai Rs2.fields.count-1
Jika Rs2(i).Properties("ISAUTOINCREMENT") = Salah Maka
Rs2(Rs2(i).nama)=Pengganti saya(Rs2(i).nilai)
Akhiri Jika
Berikutnya
Rs2.Movenext
Lingkaran
Rs2.Tutup
Tetapkan Rs2=tidak ada
Akhiri Jika
Rs.Movenext
Lingkaran
Rs.tutup
Tetapkan Rs=tidak ada
Sambungan tutup
Setel Sambungan=tidak ada
Respon.Tulis "Penggantian selesai"
Fungsi pengganti saya (byval Tstr)
Jika Tstr="" Atau isnull(Tstr) Lalu
Fungsi Keluar
Kalau tidak
myReplace=ganti(Tstr,str1,str2)
Akhiri Jika
Fungsi Akhir
%>