Print_r() function ASP/VBScript

ASP Free Forums Sponsor:

January 16th, 2007, 08:43 AM

degsy

Contributing User

ASP Free God 2nd Plane (6000 - 6499 posts)

Join Date: Aug 2005

Location: North East, UK

Posts: 6,191

Time spent in forums: 3 Weeks 4 Days 19 h 41 m 52 sec
Reputation Power: 121

Print_r() function ASP/VBScript

Here is an example of a print_r equivalent to the PHP print_r() function in ASP VBScript.

It is not an exact match but it should work.
As with PHP if you want to specify an array element you need to add [] to the element name

Code:

<form name="form1" method="post" action="">
  <p>
    <input name="textfield" type="text" value="Joe, Bob">
</p>
  <p>
    <input name="checkbox[]" type="checkbox" value="Joe" checked>
    <input name="checkbox[]" type="checkbox" value="Bob" checked>
</p>
  <p>
    <select name="select[]" size="2" multiple>
      <option value="Joe" selected>Joe</option>
      <option value="Bob" selected>Bob</option>
    </select>
</p>
  <p>
    <input type="submit" name="Submit" value="Submit">
  </p>
</form>

php Code:

Original - php Code
<?php print_r($_POST); ?>

<?php
print_r($_POST);
?>

asp Code:

Original - asp Code
Sub print_r(a) Response.Write "Array (" For Each i In a i = Trim(i) If Right(i,2) = "[]" Then Response.Write " [" & Left(i,Len(i)-2) & "] => Array ( " s = Split(a(i),",") For c=0 To Ubound(s) Response.Write " [" & c & "]" & " => " & s(c) Next Response.Write " )" Else Response.Write " [" & i & "] => " & a(i) End If Next Response.Write " )" End Sub Call print_r(Request.Form)

Sub print_r(a)
    Response.Write "Array ("
    For Each i In a
        i = Trim(i)
        If Right(i,2) = "[]" Then
            Response.Write " [" & Left(i,Len(i)-2) & "] => Array ( "
                s = Split(a(i),",")
                For c=0 To Ubound(s)
                    Response.Write " [" & c & "]" & " => " & s(c)
                Next
            Response.Write " )"
        Else
            Response.Write " [" & i & "] => " & a(i)
        End If
    Next
    Response.Write " )"
 
End Sub
Call print_r(Request.Form)

__________________
CyberTechHelp

February 7th, 2007, 09:51 AM

degsy

Contributing User

Join Date: Aug 2005

Location: North East, UK

Posts: 6,191

Time spent in forums: 3 Weeks 4 Days 19 h 41 m 52 sec
Reputation Power: 121

Updated version using the Request.Form Index property.

asp Code:

Original - asp Code
For Each Item In Request.Form For x=1 To Request.Form(item).Count Response.Write Item & ": " & Request.Form(Item)(x) & "<br>" Next Next

For Each Item In Request.Form
    For x=1 To Request.Form(item).Count
        Response.Write Item & ": " & Request.Form(Item)(x) & "<br>"
    Next
Next

Using this you can do away with the [] to indicate an array that you need to use for PHP.

asp Code:

Original - asp Code
Sub print_r(a) Response.Write "Array (" For Each i In a i = Trim(i) If a(i).Count > 1 Then Response.Write " [" & i & "] => Array ( " For c=1 To a(i).Count Response.Write " [" & c-1 & "]" & " => " & a(i)(c) Next Response.Write " )" Else Response.Write " [" & i & "] => " & a(i) End If Next Response.Write " )" End Sub

Sub print_r(a)
    Response.Write "Array ("
    For Each i In a
        i = Trim(i)
        If a(i).Count > 1 Then
            Response.Write " [" & i & "] => Array ( "
                For c=1 To a(i).Count
                    Response.Write " [" & c-1 & "]" & " => " & a(i)(c)
                Next
            Response.Write " )"
        Else
            Response.Write " [" & i & "] => " & a(i)
        End If
    Next
    Response.Write " )"
 
End Sub

Viewing: ASP Free Forums > Programming > Code Bank > Print_r() function ASP/VBScript

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump