/*
豆腐制作 都是精品
http://www.asp888.net 豆腐技术站
如转载 请保留这个版权信息
*/
呵呵，这个程序大家看看就可以了
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim loop1 as long
Dim loop2 As long
Dim arr1(), arr2() As String
Dim coll As NameValueCollection
coll =Request.ServerVariables
arr1 = coll.AllKeys
For loop1 = 0 To UBound(arr1)
arr2 = coll.GetValues(arr1(loop1))
Response.Write("名称：<font color=blue>" & arr1(loop1) & "</font> 值: <font color=red>" & arr2(0) & "</font><br>")
Next loop1
end sub
</script>

作者:豆腐()