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