<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>VBScript版代碼高亮</title>
<link href="style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div class="menu_head">VBScript版代碼高亮</div>
<div class="content">
<script language="vbscript" type="text/vbscript">
'======================================
'代碼高亮類
'使用方法:
'Set HL = New Highlight '定義類
'HL.Language = "vb" '指定程序語言,支持 VBS ,JS ,XML, HTML, SQL, C#, Java...等
'還可通過直接設置下列屬性還設置相關關鍵字等
' Public Keywords '關鍵字
' Public Objects '對象
' Public SplitWords '分隔符
' Public LineComment '行注釋
' Public CommentOn '多行注釋
' Public CommentOff '多行注釋結束
' Public Ignore '是否區(qū)分大小寫
' Public CodeContent '代碼內容
' Public Tags '標記
' Public StrOn '字符串標記
' Public Escape '字符串界定符轉義
' Public IsMultiple '允許多行引用
'HL.CodeContent = "要高亮的代碼內容"
'Response.Write(Hl.Execute) '該方法返回高亮后的代碼
'=====================================
Class Highlight
Public Keywords '關鍵字
Public Objects '對象
Public SplitWords '分隔符
Public LineComment '行注釋
Public CommentOn '多行注釋
Public CommentOff '多行注釋結束
Public Ignore '是否區(qū)分大小寫
Public CodeContent '代碼內容
Public Tags '標記
Public StrOn '字符串標記
Public Escape '字符串界定符轉義
Public IsMultiple '允許多行引用
Private Content
Private Sub Class_Initialize
Keywords = "function,void,this,boolean,while,if,return,new,true,false,try,catch,throw,null,else,int,long,do,var" '關鍵字
Objects = "src,width,border,cellspacing,cellpadding,align,bgcolor,class,style,href,type,name,String,Number,Boolean,RegExp,Error,Math,Date" '對象
SplitWords = " ,.?!;://<>(){}[]""'=+-|*%@#$^&"&VBCRLF&CHR(9) '分隔符
LineComment = "http://" '行注釋
CommentOn = "/*" '多行注釋
CommentOff = "*/" '多行注釋結束
Ignore = 0 '是否區(qū)分大小寫
Tags = "a,img,html,head,body,title,style,script,language,input,select,div,span,button,img,iframe,frame,frameset,table,tr,td,caption,form,font,meta,textarea" '標記
StrOn = """'" '字符串標記
新聞熱點
疑難解答
圖片精選
