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