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

FunctionTrace(s)
OnErrorResumeNext
Response.Write(s&vbCrLf)
Response.End()
EndFunction
%>

下面的是个修改升级版,还在测试中...

复制代码 代码如下:
<%
'//----输入字符串并结束当前页面(调试用)----//

FunctionTrace(s)
OnErrorResumeNext
IfIsArray(s)Then
Fori=0ToUBound(s)
Response.Write(s(i)&vbCrLf)
Next
Else
Response.Write(s&vbCrLf)
EndIf
Response.End()
EndFunction
%>