ASP常用函数:Trace()

代码如下:

<%  
'//---- 输入字符串并结束当前页面(调试用),函数可以也命名为Debug  ----//  

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

下面的是个修改升级版,还在测试中... 

复制代码代码如下:

<%  
'//---- 输入字符串并结束当前页面(调试用)  ----//  

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  
%>