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

显示|语法

<!--#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 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
%>

时间: 2024-12-06 11:22:53

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

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

显示|语法 <!--#include file="token.asp"--><% ' *************************************************************************' This is all test/example code showing the calling syntax of the ' cBuffer class ... the interface to the cBuffer objec

VBS、ASP代码语法加亮显示的类_ASP CLASS类

复制代码 代码如下: <% Class cBuffer Private objFSO, objFile, objDict Private m_strPathToFile, m_TableBGColor, m_StartTime Private m_EndTime, m_LineCount, m_intKeyMin, m_intKeyMax Private m_CodeColor, m_CommentColor, m_StringColor, m_TabSpaces Private Sub Cla

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

显示|语法 <% Class cBuffer    Private objFSO, objFile, objDict    Private m_strPathToFile, m_TableBGColor, m_StartTime    Private m_EndTime, m_LineCount, m_intKeyMin, m_intKeyMax    Private m_CodeColor, m_CommentColor, m_StringColor, m_TabSpaces        P

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

显示|语法 <% Class cBufferPrivate objFSO, objFile, objDictPrivate m_strPathToFile, m_TableBGColor, m_StartTimePrivate m_EndTime, m_LineCount, m_intKeyMin, m_intKeyMaxPrivate m_CodeColor, m_CommentColor, m_StringColor, m_TabSpaces Private Sub Class_Initia

JScript中正则表达式用法详解(附例子:JScript做语法加亮显示)

js|jscript|显示|详解|语法|正则     呵呵,先罗嗦几句,去年用C#做了一个语法高亮的小东西,根据配制文件中的信息把所给代码格式化成HTML,使它能在网页上显示出和编辑器里一样的语法元素高亮的效果以及支持代码折叠.没错,就是和博客园上看到的类似啦.因为我当时使用的是MSN Space,它没有提供这项功能,只好自己写一个咯.     我使用的是C#进行编写,起初使用的是超级繁琐的for,while,switch,if等基本语句来判断关键字等等,大家莫笑话,本人愚笨当时还不知道正则表达

加亮显示ASP文章原代码(转)

加亮显示ASP文章原代码 加入时间:2000年10月29日 来源网站:中华技术网 <%@ LANGUAGE="VBSCRIPT" %><% Option Explicit %><%'File: CodeBrws.asp'Overview: This formats and writes the text of the selected page for' the View Script Button 'This file is provided as pa

飘浮广告的显示脚本类(VBS,JS双版)

js|广告|脚本|显示 在写一个项目时要用到广告模块,为了不想用ASP生成脚本代码时较麻烦,于是产生了写脚本类的念头,即是用一个类模块的脚本代码去控制所有在同一页面显示的漂浮广告.但在写的过程中发现JS脚本竟然在setTimeout里不能使用类的方法.奇怪,是不是我弄错了还是JS脚本就不能这样??但VBS脚本就可以!我晕-- 不说了,贴代码: [VBS脚本代码]以下是代码片段:'/****************漂浮广告显示类***********************************

飘浮广告显示脚本类(VBS,JS双版)

js|广告|脚本|显示|js|广告|脚本 在写一个项目时要用到广告模块,为了不想用ASP生成脚本代码时较麻烦,于是产生了写脚本类的念头,即是用一个类模块的脚本代码去控制所有在同一页面显示的漂浮广告.但在写的过程中发现JS脚本竟然在setTimeout里不能使用类的方法.奇怪,是不是我弄错了还是JS脚本就不能这样??但VBS脚本就可以!我晕-- 不说了,贴代码:[VBS脚本代码] 以下是代码片段:'/****************漂浮广告显示类**************************

ASP分页代码,已经写成类了,值得参考

ASP通用分页类 一.类的属性.方法 这是一个ASP通用分页类.你可以用它方便的给记录集分页,当然在网上有许多的分页类和分页函数.本分页主要有Conn.SQL.URL.FieldList.PageSize.Template.Init.Show.Close等属性和方法. 1.Conn属性 :用来获取一个已创建的Connection对象. 2.SQL属性 :根据传入的SQL语句,自动创建RecordSet对象 3.PageSize属性 :设置第页的记录条数 4.FieldList属性 :如果需要显示