'------------------------------------------------ - -------------------------
'Fungsi: Melindungi kode HTML
'Parameter: Informasi masukan pengguna StrInput
'------------------------------------------------ - -------------------------
fungsi FunInput(StrInput)
jika tidak isnull(Str) maka
StrInput=Ganti(StrInput,<,<)
StrInput=ganti(StrInput,>,>)
StrinPut=ganti(Strinput,chr(32), )
stringinput=ganti(strinput,chr(34),)
stringinput=ganti(strinput,chr(39),')
stringinput=ganti(strinput,chr(13),)
Input Menyenangkan=string
berakhir jika
fungsi akhir
'------------------------------------------------ - -------------------------
'Fungsi: Mencegah injeksi SQL
'Parameter: Data yang dikirimkan pengguna StrValue
'Tipe data BloType
'Nilai parameter: data numerik sebenarnya
' data karakter palsu
'------------------------------------------------ - -------------------------
fungsi FunSQL(StrValue,BloType)
jika BloType maka
jika Isnumerik(StrValue) maka
FunSQL=clng(Nilai Str)
kalau tidak
Nilai Str=0
berakhir jika
kalau tidak
jika bukan isnull(StrValue) maka
StrValue=lcase(StrValue)
StrValue=Ganti(StrValue,','')
StrValue=ganti(StrValue,pilih,)
StrValue=ganti(StrValue,perbarui,)
StrValue=ganti(StrValue,masukkan,)
StrValue=ganti(StrValue,hapus,)
StrValue=ganti(StrValue,;,)
StrValue=ganti(StrValue, ,)
StrValue=ganti(StrValue,chr(255),)
StrValue=ganti(StrValue,*,)
StrValue=ganti(StrValue,%,)
berakhir jika
berakhir jika
FunSQL=Nilai Str
fungsi akhir
'------------------------------------------------ - ----------------------
'Fungsi: Konversi tipe umum
' Parameter: _Jenis tipe data
' _Nilai data
'Nilai parameter: _Tipe 1: Konversikan ke data numerik
' _Tipe 2: Konversi ke data karakter
' _Tipe 3: Konversi ke data Boolean
'------------------------------------------------ - ----------------------
fungsi FunSwitch(Nilai_,Jenis_)
pada kesalahan lanjutkan berikutnya
pilih tipe kasus_
kasus 1
jika isnumerik(Nilai_) maka
jika bukan isnull(Value_) maka
FunSwitch=clng(Nilai_)
kalau tidak
Saklar menyenangkan=0
berakhir jika
kalau tidak
Saklar menyenangkan=0
berakhir jika
kasus 2
jika bukan isnull(Value_) maka
FunSwitch=cstr(Nilai_)
kalau tidak
saklar menyenangkan=
berakhir jika
kasus 3
jika bukan isnull(Value_) dan isnumeric(Value_) maka
FunSwitch=cbool(Nilai_)
kalau tidak
FunSwitch=salah
berakhir jika
kasus lain
respon.redirect(Error.asp?err=Silakan tentukan tipe data yang akan ditransfer di FunSwitch!)
akhir pilih
jika err.number<>0 maka
respon.redirect(Error.asp?err=Terjadi kesalahan yang tidak diketahui selama konversi data!)
err.jelas
berakhir jika
fungsi akhir
''------------------------------------------------ -----------------------
' Fungsi : Memverifikasi apakah data berasal dari luar
' Parameter: Tidak ada
'------------------------------------------------ - -------------------------
fungsi checkfrom()
server_v1=Cstr(Permintaan.ServerVariables(HTTP_REFERER))
server_v2=Cstr(Permintaan.ServerVariables(SERVER_NAME))
jika pertengahan(server_v1,8,len(server_v2))<>server_v2 lalu
checkfrom=benar
kalau tidak
checkfrom=salah
berakhir jika
fungsi akhir
''------------------------------------------------ -----------------------
'Fungsi: kotak prompt JS
' Parameter: StrURL: Alamat halaman untuk kembali setelah mengklik OK
'StrMSG: informasi cepat kotak dialog
'------------------------------------------------ - -------------------------
Fungsi FunMsg(StrURL,StrMSG)
Respon.tulis <script bahasa='javascript'>&_
Vbcrlf&peringatan(&StrMSG&);&_
Vbcrlf&window.location=&StrURL&;&_
Vbcrlf&</script>
Fungsi Akhir
'------------------------------------------------ - ----------------------
'Fungsi: Paging universal
'Parameter: Jumlah total halaman Intpagecount
'Intmypage nomor halaman saat ini
'Intrecordcount jumlah total catatan
'Intpagesize Jumlah catatan yang ditampilkan pada setiap halaman
'------------------------------------------------ - ----------------------
fungsi funpage(Intpagecount,Intmypage,Intrecordcount,Intpagesize)
'pada kesalahan lanjutkan berikutnya
redupkan Intfor,Intlist,intlist_b
Redupkan kueri, a, x, temp
tindakan = http:// & Permintaan.ServerVariables(HTTP_HOST) & Permintaan.ServerVariables(SCRIPT_NAME)
query = Split(Permintaan.ServerVariables(QUERY_STRING), &)
Untuk Setiap x Dalam kueri
a = Bagi(x, =)
Jika StrComp(a(0), halaman, vbTextCompare) <> 0 Lalu
suhu = suhu & a(0) & = & a(1) & &
Akhiri Jika
Berikutnya
jika intmypage>1 maka
funpage=funpage & <a href='&action&?&temp&page=1' title='Halaman teratas' class='no'><font face='Webdings'>9</font></a>
funpage=funpage&<a href='&action&?&temp&page=&Intmypage-1 & ' title='Halaman Sebelumnya' class='no'><font face='Webdings'>7</font></a>
kalau tidak
funpage=funpage &<font face='Webdings'>9</font>
funpage=funpage&<font face='Webdings'>7</font>
berakhir jika
jika Intlist<>0 maka
jika cintmypage= Intlist lalu
Daftar Dalam=Daftar Dalam+5
berakhir jika
kalau tidak
Daftar Dalam=Inthalamansaya+5
berakhir jika
jika intlist-9<1 maka
daftar_dalam=1
kalau tidak
intlist_b=intlist-9
berakhir jika
untuk Intfor=intlist_b ke Intlist
jika intfor<=Intpagecount maka
jika intfor=Intmypage maka '-------buat teks pada halaman saat ini menjadi merah dan tidak dapat diklik
funpage =funpage & strMode& <font color='#FF0000'><b>& Informasi & </b></font>
kalau tidak
funpage=funpage & strMode & <a href='&action&?&temp&page= & Intfor &' class='no'> & Intfor & </a>
berakhir jika
berakhir jika
strMode= <font color='#BBBBBB'>|</font>
Berikutnya
jika intmypage<intpagecount lalu
funpage=funpage& <a href='&action&?&temp&page=& Intmypage+1 &' title='Halaman berikutnya' class='no'><font face='Webdings'>8</font></a>
funpage=funpage &<a href='&action&?&temp&page=& Intpagecount & ' title='Halaman Terakhir' class='no'><font face='Webdings'>:</font></a>
kalau tidak
funpage=funpage& <font face='Webdings'>8</font>
funpage=funpage &<font face='Webdings'>:</font></a>
berakhir jika
funpage=<lebar tabel='100%' border='0' Cellspacing='0' cellpadding='0'><tr>&_
vbcrlf&<td width='40%' style=font:14px> &Intmypage& halaman&Intpagesize& catatan saat ini/total halaman &Intpagecount& halaman/&Intrecordcount& catatan</td>&_
vbcrlf&<td lebar='60%' align='kanan'>&_
vbcrlf&<lebar tabel='360' border='0' Cellspacing='0' cellpadding='0'><tr>&_
vbcrlf&<td align='right' style=font:14px>&funpage& </td>&_
vbcrlf&</tr></table></td></tr>&_
vbcrlf&</tabel>
jika err.number<>0 maka
err.jelas
respon.redirect(error.asp?err=Terjadi kesalahan pada fungsi paging, silakan hubungi administrator!|)
berakhir jika
fungsi akhir
'******************************************************* *
'Nama fungsi: Sorot
'Fungsi: Kata kunci yang dicari ditampilkan dalam warna yang disorot
'Parameter strText adalah string atau variabel yang berisi string atau variabel yang akan disorot
'strFind adalah string atau variabel yang akan disorot,
'strSebelum Awalan kode HTML yang disorot adalah: <font color=red>
'strAfterAkhiran kode HTML yang disorot:</font>
'******************************************************* ***
Sorotan Fungsi (strText, strFind, strBefore, strAfter)
Dimpos
Redupkan nLen
Redupkan nLenAll
nLen = Len(strTemukan)
nLenAll = nLen + Len(strSebelum) + Len(strAfter) + 1
Sorot = strTeks
Jika nLen > 0 Dan Len(Sorot) > 0 Lalu
nPos = InStr(1, Sorot, strFind, 1)
Lakukan Sementara nPos > 0
Sorot = Kiri(Sorot, nPos - 1) & _
strSebelum & Pertengahan(Sorot, nPos, nLen) & strSetelah & _
Pertengahan (Sorot, nPos + nLen)
nPos = InStr(nPos + nLenAll, Sorotan, strFind, 1)
Lingkaran
Akhiri Jika
Fungsi Akhir