---
title: "request sniffer"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38192-request-sniffer"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "icaaq"
published: "2001-04-26T20:11:00.000Z"
updated: "2001-04-26T20:11:00.000Z"
replies: 0
views: 786
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/38192-request-sniffer"
---

# request sniffer

## #1 — icaaq, 2001-04-26T20:11Z

lägger upp ett litet script som är mäkta användbart mo du vill veta om du har några värden i din request:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
\<%@ Language=VBScript %\>
\<HTML\>
\<HEAD\>
\<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"\>
\</HEAD\>
\<BODY\>
\<h3\>Request Sniffer-\</H3\>

\<%
'///// Decide whether to reap data from QueryString or Form collection
Response.Write "\<hr\>"
if Request.QueryString \<\> "" then
	call ShowQueryString
elseIf Request.Form \<\> "" then
	call ShowForm
else
	response.write "Both the QueryString and Forms collectison are empty"
end if

'////// Call this if data is in the FORM collection
sub ShowForm
Response.write "From Form collection - POST\<BR\>"
Response.Write "Total # of values = "
Response.Write Request.form.Count & "\<BR\>"
Response.Write "Entire Form Collection as string: \<BR\>"
Response.Write Request.form & "\<BR\>\<BR\>"
Response.Write "\<table border=1\>\<tr\>"
For each MyItem in Request.form
  Response.Write "\<TR\>\<TD\>"  
  Response.Write MyItem & "\</TD\>\<TD\>"
  Response.Write Request.form(MyItem).Item
  Response.Write "\</TD\>\</TR\>"
next
Response.Write "\</table\>"
end sub

'////// Call this if data is in the QueryString collection
Sub ShowQueryString
Response.write "From QueryString collection - GET\<BR\>"
Response.Write "Total # of values = "
Response.Write Request.QueryString.Count & "\<BR\>"
Response.Write "Entire QueryString Collection as string: \<BR\>"
Response.Write Request.QueryString & "\<BR\>\<BR\>"
Response.Write "\<table border=1\>\<tr\>"
For each MyItem in Request.QueryString
  Response.Write "\<TR\>\<TD\>"  
  Response.Write MyItem & "\</TD\>\<TD\>"
  Response.Write Request.QueryString(MyItem).Item
  Response.Write "\</TD\>\</TR\>"
next
Response.Write "\</table\>"
end sub
%\>
\</BODY\>
\</HTML\>

Permalänk: https://www.webforum.nu/p/38192

---

Tråden på webben: https://www.webforum.nu/amne/asp/38192-request-sniffer