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