欢迎光临
我们一直在努力

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

建站超值云服务器,限时71元/月

<!–#include file="token.asp"–>
<% *************************************************************************
this is all test/example code showing the calling syntax of the
cbuffer class … the interface to the cbuffer object is quite simple.

use it for reference … delete it … whatever.
*************************************************************************

rem this is a rem type comment just for testing purposes!

this variable will hold an instance of the cbuffer class
dim objbuffer

set up the error handling
on error resume next

create the instance of the cbuffer class
set objbuffer = new cbuffer
    
set the pathtofile property of the cbuffer class

just for kicks well use the asp file that we created
in the last installment of this article series for testing purposes
objbuffer.pathtofile = "../081899/random.asp"   这是文件名啦。

heres an example of how to add a new keyword to the keyword array
you could add a list of your own function names, variables or whatever…cool!
note: you can add different html formatting if you like, the <strong>
attribute will applied to all keywords … this is likely to change
in the near future.

objbuffer.addkeyword "response.write", "<font color=red>response.write</font>"
    
here are examples of changing the table background color, code color,
comment color, string color and tab space properties

objbuffer.tablebgcolor = "lightgrey" or
objbuffer.tablebgcolor = "#ffffdd" simple right?
objbuffer.codecolor = "red"
objbuffer.commentcolor = "orange"
objbuffer.stringcolor = "purple"
objbuffer.tabspaces = "  "
    
call the parsefile method of the cbuffer class, pass it true if you want the
html contained in the page output or false if you dont
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
%>

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » VBS、ASP代码语法加亮显示的类 (二)
分享到: 更多 (0)

相关推荐

  • 暂无文章