<%
'------------------------------------------------- --------------------------
' 程序作用:打印request.form输入的所有值
'------------------------------------------------- --------------------------
Respon.Tulis FormData()
fungsi Data Formulir()
Redupkan llngMaxFieldIndex
Redupkan llngFieldIndex
Redupkan llngMaxValueIndex
Redupkan llngValueIndex
Redupkan lstrDebug
' Formulir Hitungan
llngMaxFieldIndex = Permintaan.Form.Hitungan
' Beri tahu pengguna jika Formulir Tidak ada
jika llngMaxFieldIndex = 0 Lalu
FormData = "Data formulir kosong."
Fungsi keluar
Berakhir jika
' Mulailah membuat daftar semua Formulir
lstrDebug = "<OL>"
' Ulangi Setiap Formulir
Untuk llngFieldIndex = 1 Ke llngMaxFieldIndex
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Permintaan.Form.Key(llngFieldIndex))
' Hitung nilainya
llngMaxValueIndex = Permintaan.Form(llngFieldIndex).Hitungan
' jika Bidang tidak memiliki banyak nilai ...
jika llngMaxValueIndex = 1 Lalu
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Permintaan.Form.Item(llngFieldIndex))
' Lain Ulangi Setiap nilai
Kalau tidak
lstrDebug = lstrDebug & "<OL>"
Untuk llngValueIndex = 1 Ke llngMaxValueIndex
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Permintaan.Form(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
Berikutnya
lstrDebug = lstrDebug & "</OL>"
Berakhir jika
lstrDebug = lstrDebug & "</LI>"
Berikutnya
lstrDebug = lstrDebug & "</OL>"
' Kembalikan datanya
FormData = lstrDebug
Fungsi akhir
%>
<%
'------------------------------------------------- ------------------------
' 函数功能：输出所有输入request.querystring值，用于调试！
'------------------------------------------------- ------------------------
Respon.Tulis QueryStringData()
fungsi QueryStringData()
Redupkan llngMaxFieldIndex
Redupkan llngFieldIndex
Redupkan llngMaxValueIndex
Redupkan llngValueIndex
Redupkan lstrDebug
' Hitung QueryString
llngMaxFieldIndex = Permintaan.QueryString.Hitungan
' Beri tahu pengguna jika QueryString Tidak ada
jika llngMaxFieldIndex = 0 Lalu
QueryStringData = "Data QueryString kosong."
Fungsi keluar
Berakhir jika
' Mulailah membuat daftar semua QueryString
lstrDebug = "<OL>"
' Ulangi Setiap QueryString
Untuk llngFieldIndex = 1 Ke llngMaxFieldIndex
lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Permintaan.QueryString.Key(llngFieldIndex))
' Hitung nilainya
llngMaxValueIndex = Permintaan.QueryString(llngFieldIndex).Hitungan
' jika Bidang tidak memiliki banyak nilai ...
jika llngMaxValueIndex = 1 Lalu
lstrDebug = lstrDebug & " = "
lstrDebug = lstrDebug & Server.HTMLEncode(Permintaan.QueryString.Item(llngFieldIndex))
' Lain Ulangi Setiap nilai
Kalau tidak
lstrDebug = lstrDebug & "<OL>"
Untuk llngValueIndex = 1 Ke llngMaxValueIndex
lstrDebug = lstrDebug & "<LI>"
lstrDebug = lstrDebug & Server.HTMLEncode(Permintaan.QueryString(llngFieldIndex)(llngValueIndex))
lstrDebug = lstrDebug & "</LI>"
Berikutnya
lstrDebug = lstrDebug & "</OL>"
Berakhir jika
lstrDebug = lstrDebug & "</LI>"
Berikutnya
lstrDebug = lstrDebug & "</OL>"
' Kembalikan datanya
QueryStringData = lstrDebug
Fungsi akhir
%>