ASP common functions: Trace () _ Application Tips

Copy Code code as follows:

<%
'//----input string and end current page (debug), function can also be named debug----//

Function Trace (s)
On Error Resume Next
Response.Write (S & vbCrLf)
Response.End ()
End Function
%>

The following is a modified version of the upgrade, still in the test ...

Copy Code code as follows:

<%
'//----input string and end current page (debug)----//

Function Trace (s)
On Error Resume Next
If IsArray (s) Then
For i = 0 to UBound (s)
Response.Write (S (i) & VbCrLf)
Next
Else
Response.Write (S & vbCrLf)
End If
Response.End ()
End Function
%>