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