Berbagi beberapa fungsi ASP yang meniru PHP terutama untuk kenyamanan teman-teman yang pertama kali belajar PHP dan kemudian belajar ASP. Copy kode kodenya sebagai berikut:
'Proses: string keluaran [menggantikan Response.Write]
Sub gema(Str)
respon.Tulis(Str)
Akhiri Sub
'Fungsi: Dapatkan formulir [menggantikan Permintaan.Formulir]
Persyaratan fungsi(Str)
reqf = Permintaan.Formulir(Str)
Fungsi Akhir
'Proses: akhiri halaman dan keluarkan string
Subdie(Str)
respon.Tulis(Str)
respon.Akhir()
Akhiri Sub
'Fungsi: Mengembalikan hasil menjalankan file ASP sebagai string
Fungsi ob_get_contents(Jalur)
Redupkan tmp, a, b, t, korek api, m
Redupkan Str
Str = file_iread(Jalur)
tmp = redup htm : htm = &vbCrLf
sebuah = 1
b = InStr(a, Str, <%) + 2
Sedangkan b > a + 1
t = Tengah(Str, a, b - a -2)
t = Ganti(t, vbCrLf, {::vbcrlf})
t = Ganti(t, vbCr, {::vbcr})
t = Ganti(t, , )
tmp = tmp & htm = htm & & t & & vbCrLf
a = InStr(b, Str, %/>) + 2
tmp = tmp & str_replace(^/s*=, Tengah(Str, b, a - b -2), htm = htm & ) & vbCrLf
b = InStr(a, Str, <%) + 2
Pergi ke
t = Pertengahan(Str, a)
t = Ganti(t, vbCrLf, {::vbcrlf})
t = Ganti(t, vbCr, {::vbcr})
t = Ganti(t, , )
tmp = tmp & htm = htm & & t & & vbCrLf
tmp = Ganti(tmp, respon.tulis, htm = htm & , 1, -1, 1)
tmp = Ganti(tmp, echo, htm = htm & , 1, -1, 1)
'jalankan (tmp)
jalankanglobal(tmp)
htm = Ganti(htm, {::vbcrlf}, vbCrLf)
htm = Ganti(htm, {::vbcr}, vbCr)
ob_get_contents = htm
Fungsi Akhir
'Proses: menyertakan file secara dinamis
Subsertakan (Jalur)
gema ob_get_contents(Jalur)
Akhiri Sub
'Fungsi: enkripsi base64
Fungsi base64encode (byval Str)
Jika IsNull(Str) Kemudian Keluar dari Fungsi
Redupkan basis64
Tetapkan base64 = Kelas_base64 baru
Str = base64.encode(Str)
Tetapkan base64 = Tidak ada
base64encode = Str
Fungsi Akhir
'Fungsi: dekripsi base64
Fungsi base64decode(byvalStr)
Jika IsNull(Str) Kemudian Keluar dari Fungsi
Redupkan basis64
Tetapkan base64 = Kelas_base64 baru
Str = base64.decode(Str)
Tetapkan base64 = Tidak ada
base64decode = Str
Fungsi Akhir
'Fungsi: enkripsi URL
Fungsi urlencode(byvalStr)
Jika IsNull(Str) Kemudian Keluar dari Fungsi
Str = server.URLEncode(Str)
kode url = Str
Fungsi Akhir
'Fungsi: Keluar dari enkripsi
Fungsi escape (byval Str)
Jika IsNull(Str) Kemudian Keluar dari Fungsi
Redupkan i, c, a, tmp
tmp=
Untuk i = 1 Ke Len(Str)
c = Tengah(Str, i, 1)
a = tanya(c)
Jika (a>= 48 Dan a<= 57) Atau (a>= 65 Dan a<= 90) Atau (a>= 97 Dan a<= 122) Maka
tmp = tmp&c
ElseIf InStr(@*_+-./, c) > 0 Lalu
tmp = tmp&c
LainJika a>0 Dan a<16 Lalu
tmp = tmp & %0 & Hex(a)
LainJika a>= 16 Dan a<256 Maka
tmp = tmp & % & Hex(a)
Kalau tidak
tmp = tmp & %u & Hex(a)
Akhiri Jika
Berikutnya
melarikan diri=tmp
Fungsi Akhir
'Fungsi: Dekripsi melarikan diri
Fungsi unescape(byval Str)
Jika IsNull(Str) Kemudian Keluar dari Fungsi
Redupkan i, c, tmp
tmp=
Untuk i = 1 Ke Len(Str)
c = Tengah(Str, i, 1)
Jika Mid(Str, i, 2) = %u Dan i<= Len(Str) -5 Maka
Jika IsNumeric(&H & Mid(Str, i + 2, 4)) Maka
tmp = tmp & chrw(CInt(&H & Tengah(Str, i + 2, 4)))
saya = saya + 5
Kalau tidak
tmp = tmp&c
Akhiri Jika
ElseIf c = % Dan i<= Len(Str) -2 Lalu
Jika IsNumeric(&H & Mid(Str, i + 1, 2)) Maka
tmp = tmp & chrw(CInt(&H & Tengah(Str, i + 1, 2)))
saya = saya + 2
Kalau tidak
tmp = tmp&c
Akhiri Jika
Kalau tidak
tmp = tmp&c
Akhiri Jika
Berikutnya
unescape = tmp
Fungsi Akhir