复制代码 代码如下:

<%

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

%>