ASP常用函数:Trace()

　　<%

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

　　%>