快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

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

<!--#include file="token.asp"-->
<%
\\\' 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 we\\\'ll use the asp file that we created
\\\' in the last installment of this article series for testing purposes
objBuffer.PathToFile = "../081899/random.asp" \\\'这是文件名啦。

\\\' Here\\\'s 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 don\\\'t
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
%>
返回类别: 教程
上一教程: 跨多数据库
下一教程: 在ASP应用中验证用户身份(2)

您可以阅读与"VBS、ASP代码语法加亮显示的类(2)"相关的教程:
· VBS、ASP代码语法加亮显示的类(1)
· 加亮显示ASP文章原代码
· ASP中关于帖子分页显示的基本方式
· ASP利用正表达式解析HTML的类代码
· 用ASP实现分页显示的具体讲解
    微笑服务 优质保证 索取样品