asp get dan post fungsi filter penerimaan data, beberapa kode yang disalin untuk keamanan adalah sebagai berikut:
<%
'--------Bagian definisi------------------
Redupkan XH_Post,XH_Get,XH_In,XH_Inf,XH_Xh,XH_db,XH_dbstr
'Sesuaikan string yang perlu difilter, dipisahkan dengan |
XH_In = '|;|dan|exec|insert|select|delete%20from|update|count|*|%|chr|mid|master|truncate|char|deklarasikan|drop%20table|from|net%20user|xp_cmdshell| /tambahkan|net%20localgroup%20administrator|Asc|char
'----------------------------------
%>
<%
XH_Inf = terbagi(XH_In,|)
'--------POST bagian------------------
Jika Permintaan.Formulir<> Lalu
Untuk Setiap XH_Posting Dalam Formulir Permintaan
Untuk XH_Xh=0 Ke Ubound(XH_Inf)
Jika Instr(LCase(Request.Form(XH_Post)),XH_Inf(XH_Xh))<>0 Kemudian
Response.Write <Script Language=JavaScript>alert('Tolong jangan sertakan karakter ilegal dalam parameter dan coba masukkan!');</Script>
Respon.Tulis operasi ilegal! Sistem telah membuat catatan berikut↓<br>
IP operasi Response.Write: &Request.ServerVariables(REMOTE_ADDR)<br>
Response.Waktu operasi tulis: &Sekarang<br>
Halaman operasi Response.Write: &Request.ServerVariables(URL)<br>
Metode pengiriman Respon.Tulis: POST<br>
Response.Tulis parameter pengiriman: &XH_Post<br>
Response.Write mengirimkan data: &Request.Form(XH_Post)
Respon.Akhir
Akhiri Jika
Berikutnya
Berikutnya
Akhiri Jika
'----------------------------------
'--------DAPATKAN bagian------------------
Jika Permintaan.QueryString<> Lalu
Untuk Setiap XH_Dapatkan Di Request.QueryString
Untuk XH_Xh=0 Ke Ubound(XH_Inf)
Jika Instr(LCase(Request.QueryString(XH_Get)),XH_Inf(XH_Xh))<>0 Kemudian
Response.Write <Script Language=JavaScript>alert('Tolong jangan sertakan karakter ilegal dalam parameter dan coba masukkan!');</Script>
Respon.Tulis operasi ilegal! Sistem telah membuat catatan berikut↓<br>
IP operasi Response.Write: &Request.ServerVariables(REMOTE_ADDR)<br>
Respons.Waktu operasi tulis: &Sekarang<br>
Halaman operasi Response.Write: &Request.ServerVariables(URL)<br>
Metode pengiriman Respon.Tulis: DAPATKAN<br>
Response.Tulis parameter pengiriman: &XH_Get<br>
Response.Write mengirimkan data: &Request.QueryString(XH_Get)
Respon.Akhir
Akhiri Jika
Berikutnya
Berikutnya
Akhiri Jika
'----------------------------------
%>