ASP and ASPX Examples and Documentation

Contents of echo.asp:

<html> <head> <STYLE type="text/css"> body, table {font-family:Comic Sans MS, Times New Roman; font-size:10pt} </STYLE> </HEAD> <body> <center> <Table border="1"> <tr> <td valign='middle' bgcolor='#aaaaaa'> <img src="captsm.gif"> </td> <td valign='middle' bgcolor='#aaaaaa'> <center> Echo.asp Results Querystring or Form Submissions </td> </tr> </table></center> <% ' ' An inverse to Server.URLEncode ' code by Adam Vandenberg http://flangy.com ' ' http://flangy.com/dev/asp/urldecode.html ' function URLDecode(str) dim re set re = new RegExp str = Replace(str, "+", " ") re.Pattern = "%([0-9a-fA-F]{2})" re.Global = True URLDecode = re.Replace(str, GetRef("URLDecodeHex")) end function ' Replacement function for the above function URLDecodeHex(match, hex_digits, pos, source) URLDecodeHex = chr("&H" & hex_digits) end function ' ' '*************************** TOP OF MAIN ' ' dim objItem dim method_type icf=0 icq=0 For Each objItem in Request.Form icf=icf+1 next For Each objItem in Request.QueryString icq=icq+1 next if icf > 0 then set method_type = Request.Form method_type_out="POST" request_type_out="FORM" else if icq > 0 then set method_type = Request.QueryString method_type_out="GET" request_type_out="QUERYSTRING" end if end if if icf <> 0 or icq <> 0 then %> <center> <table border="1" width="90%"> <tr> <td width="15%" align='center' valign='bottom' bgcolor='#aaaaaa'>ELEMENT NUMBER</td> <td align='center' valign='bottom' bgcolor='#aaaaaa'> NAME </td> <td align='center' valign='bottom' bgcolor='#aaaaaa'> VALUE (decoded)</td> <td align='center' valign='bottom' bgcolor='#aaaaaa'> VALUE LENGTH (decoded)</td> </tr> <% ic=0 enc=0 vl=0 For Each objItem in method_type if method_type(objItem).Count > 1 then for k=1 to method_type(objItem).Count ic=ic+1 enc=enc+len(objItem) vl=vl+len(method_type(objItem)(k)) response.write "<tr><td align='right'>"+cstr(ic)+"</td>" response.write "<td align='center'>"+objItem +" duplicate</td><td>"+method_type(objItem)(k)+"</td><td align='right'>" response.write cstr(len(method_type(objItem)(k)))+"</td></tr>" next else ic=ic+1 enc=enc+len(objItem) vl=vl+len(method_type(objItem)) response.write "<tr><td align='right'>"+cstr(ic)+"</td>" response.write "<td align='center'>"+objItem +"</td><td>"+method_type(objItem)+"</td><td align='right'>" response.write cstr(len(method_type(objItem)))+"</td></tr>" end if next response.write "<tr><td colspan='3'>" if icf > 0 then response.write "METHOD=POST, "+cstr(icf) + " unique FORM items received, "+cstr(ic)+" total FORM items received," if icf=ic then response.write " No Duplicate names." else dif=abs(icf-ic)+1 response.write " "+cstr(dif)+" Duplicate names (see duplicate elements above)." end if else response.write "METHOD=GET, "+cstr(icq) +" unique QUERYSTRING items received, "+cstr(ic)+" total QUERYSTRING items received," if icq=ic then response.write " No Duplicate names." else dif=abs(icq-ic)+1 response.write " "+cstr(dif)+" Duplicate names (see duplicate elements above)." end if end if llen=50 response.write ""+ request_type_out+ " Data Received (URL Encoded -- i.e., as sent by the client, shown "+cstr(llen)+" characters per line):" response.write "" ostr=method_type lostr=len(ostr) lc=int(lostr/llen) for ln=0 to (lc-1) s=mid( ostr, (ln*llen)+1 ,llen) response.write s+" " next s=mid(ostr, (lc*llen)+1, (lostr-(lc*llen)) ) response.write s+" " lorig=len(method_type) response.write ""+Request_type_out+" Data Received (URL Decoded -- i.e., as entered by the user, shown "+cstr(llen)+" characters per line):" decoded=URLDecode(method_type) ostr=decoded lostr=len(ostr) lc=int(lostr/llen) response.write "" for ln=0 to (lc-1) s=mid( ostr, (ln*llen)+1 ,llen) response.write s+" " next s=mid(ostr, (lc*llen)+1, (lostr-(lc*llen)) ) response.write s+" " response.write "NOTE: URL Encoded means that non-alphabetic characters (i.e., characters that are NOT: 0 thru 9; A through Z; and a through z are converted to an escape sequence -- the % sign followed by the hexadecimal code for the character). Additionally, blank spaces are encoded as a + sign. This is done by the browser before the string is sent to the server. Decoded means that the non-alphabetic characters are converted back to their original single character representation. This decoding process is done on the server. See the original <a href='http://www.ietf.org/rfc/rfc1738.txt'>RFC</a>. See also <A href='ftp://ftp.rfc-editor.org/in-notes/rfc2555.txt'>30 years of RFCs</A> for a historical perspective." response.write "</td><td align='right' valign='top'><center>Decoded Lengths:</center><hr>" response.write "Total Length of Names = "+cstr(enc)+" " response.write "Total Length of Values = "+cstr(vl)+" " response.write "Number of Equal signs = "+cstr(ic)+" " if ic>0 then icm=ic-1 response.write "Number of & signs = "+cstr(icm) else response.write "Number of & signs = 0" end if response.write "<hr>Total Bytes Received (decoded) = "+cstr(len(decoded)) response.write " <hr> Total Bytes Received (encoded) = "+cstr(lorig)+"" response.write "</td></table></center>" else response.write "NO FORM OR QUERYSTRING DATA RECEIVED.Check to be sure the HTML objects have name=..." response.write " specified inside the HTML object tag (e.g., <input type='text' name='fred' ... >)" end if response.write "Program terminating normally. "+cstr(now) %> </body> </html>

***** end of file *** printed: 208 lines on: 11/23/2009 6:04:58 AM