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