VBS、ASP代码语法加亮显示的类(8)

objBuffer.ParseFile False '注意：显示代码的response.write已经在class中。这里调用方法就可以了。



' Check for errors that may have been raised and write them out
If Err.number <> 0 Then
Response.Write Err.number & ":" & Err.description & ":" & Err.source & "<br>"
End If

' Output the processing time and number of lines processed by the script
Response.Write "<strong>Processing Time:</strong> " & objBuffer.ProcessingTime & " seconds<br>"
Response.Write "<strong>Lines Processed:</strong> " & objBuffer.LineCount & "<br>" 

' Destroy the instance of our cBuffer class
Set objBuffer = Nothing
%>