複製代碼代碼如下:
<%
'//----輸入字符串並結束當前頁面(調試用),函數可以也命名為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
%>