简单的代码着色程序
看到博客园支持代码着色功能，很是羡慕，就上网查资料，自己也写了一个，主要用于对ASP进行代码着色的。
以后还想像博客园那样支持多种语言着色和代码折叠功能，打算用数据库来保存关键字，不然要发一堆东西到客户段，影响速度。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>代码着色</title>
<style type="text/css">
<!--
body {
font-family: "宋体";
font-size: 12px;
color: #333333;
}
.Text {
font-family: "宋体";
font-size: 12px;
border: 1px solid #333333;
}
td {
font-family: "宋体";
font-size: 12px;
}
-->
</style>
</head>
<body>
<table width="760" height="399" border="0" cellpadding="0" cellspacing="2" align="center">
<tr>
<td height="302" valign="top"><form name="form1" method="post" action="">
<div align="center">
<textarea name="Content" cols="120" rows="25" class="Text" id="Content"></textarea>
<br>
<input name="btnShow" type="button" class="Text" id="btnShow" value="显 示" OnClick="GetHtmlContent()">
</div>
</form></td>
</tr>
<tr>
<td height="91"><span id="sHtml"></span></td>
</tr>
</table>
<SCRIPT LANGUAGE="VBScript">
Sub GetHtmlContent
set nw=window.open("")
nw.document.write ChangeVbToColor(HtmlEncode(form1.Content.value))
End Sub
Function ChangeVbToColor(ByVal sText)
Dim re,Matches,i
Dim oneReg
Set re=new RegExp
re.IgnoreCase =true
re.Global=true
'转换保留字为[蓝色]
re.Pattern="(\bAnd\b|\bByRef\b|\bByVal\b|\bCall\b|\bCase\b|\bClass\b|\bConst\b|\bDim\b|\bDo\b|\bEach\b|\bElse\b|\bElseIf\b|\bEmpty\b|\bEnd\b|\bEqv\b|\bErase\b|\bError\b|\bExit\b|\bExplicit\b|\bFalse\b|\bFor\b|\bFunction\b|\bGet\b|\bIf\b|\bImp\b|\bIn\b|\bIs\b|\bLet\b|\bLoop\b|\bMod\b|\bNext\b|\bNot\b|\bNothing\b|\bNull\b|\bOn\b|\bOption\b|\bOr\b|\bPrivate\b|\bProperty\b|\bPublic\b|\bRandomize\b|\bReDim\b|\bRem\b|\bResume\b|\bSelect\b|\bSet\b|\bStep\b|\bSub\b|\bThen\b|\bTo\b|\bTrue\b|\bUntil\b|\bWend\b|\bWhile\b|\bXor\b|\b!DOCTYPE\b|\bA\b|\bAD\b|\bADDRESS\b|\bAPPLET\b|\bAREA\b|\bB\b|\bBASE\b|\bBASEFONT\b|\bBGSOUND\b|\bBIG\b|\bBLOCKQUOTE\b|\bBODY\b|\bCAPTION\b|\bCENTER\b|\bCITE\b|\bCODE\b|\bCOL\b|\bCOLGROUP\b|\bCOMMENT\b|\bDD\b|\bDFN\b|\bDIR\b|\bDIV\b|\bDL\b|\bDT\b|\bEM\b|\bEMBED\b|\bFONT\b|\bFORM\b|\bFRAME\b|\bFRAMESET\b|\bH1\b|\bH2\b|\bH3\b|\bH4\b|\bH5\b|\bH6\b|\bHEAD\b|\bHR\b|\bHTML\b|\bI\b|\bIMG\b|\bINPUT\b|\bISINDEX\b|\bITEMTEMPLATE\b|\bKBD\b|\bLI\b|\bLISTING\b|\bMAP\b|\bMARQUEE\b|\bMENU\b|\bMETA\b|\bNOBR\b|\bNOFRAMES\b|\bOBJECT\b|\bOL\b|\bOPTION\b|\bP\b|\bPARAM\b|\bPLAINTEXT\b|\bPRE\b|\bS\b|\bSAMP\b|\bSCRIPT\b|\bSELECT\b|\bSELECTEDITEMTEMPLATE\b|\bSEPARATORTEMPLATE\b|\bSMALL\b|\bSPAN\b|\bSTRIKE\b|\bSTRONG\b|\bSTYLE\b|\bSUB\b|\bSUP\b|\bTABLE\b|\bTBODY\b|\bTD\b|\bTEXTAREA\b|\bTFOOT\b|\bTH\b|\bTHEAD\b|\bTITLE\b|\bTR\b|\bTT\b|\bU\b|\bUL\b|\bVAR\b|\bWBR\b|\bXMP\b|\bACCESSKEY\b|\bACTION\b|\bADCREATED\b|\bADVERTISEMENTFILE\b|\bALIGN\b|\bALINK\b|\bALLOWCUSTOMPAGING\b|\bALLOWPAGING\b|\bALLOWSORTING\b|\bALT\b|\bALTERNATETEXT\b|\bALTERNATINGITEMSTYLE\b|\bALTERNATINGITEMTEMPLATE\b|\bAPPLYSTYLE\b|\bATTRIBUTES\b|\bAUTOGENERATECOLUMNS\b|\bAUTOPOSTBACK\b|\bBACKCOLOR\b|\bBACKGROUND\b|\bBACKIMAGEURL\b|\bBEHAVIOR\b|\bBGCOLOR\b|\bBGPROPERTIES\b|\bBORDER\b|\bBORDERCOLOR\b|\bBORDERCOLORDARK\b|\bBORDERCOLORLIGHT\b|\bBORDERSTYLE\b|\bBORDERWIDTH\b|\bCANCELCOMMAND\b|\bCAUSESVALIDATION\b|\bCELLPADDING\b|\bCELLSPACING\b|\bCHARSET\b|\bCHECKCHANGED\b|\bCHECKED\b|\bCLASS\b|\bCLASSID\b|\bCLEAR\b|\bCLICK\b|\bCODEBASE\b|\bCOLOR\b|\bCOLS\b|\bCOLSPAN\b|\bCOLUMNS\b|\bCOLUMNSPAN\b|\bCOMMAND\b|\bCOMMANDARGUMENT\b|\bCOMMANDNAME\b|\bCOMMANDARGUMENT\b|\bCOMMANDNAME\b|\bCONTENT\b|\bCONTROLS\b|\bCONTROLTOCOMPARE\b|\bCONTROLTOVALIDATE\b|\bCOORDS\b|\bCOPYFROM\b|\bCSSCLASS\b|\bDATA\b|\bDATAFIELD\b|\bDATAFORMATSTRING\b|\bDATAKEYFIELD\b|\bDATAMEMBER\b|\bDATANAVIGATEURLFIELD\b|\bDATANAVIGATEURLFORMATSTRING\b|\bDATASOURCE\b|\bDATATEXTFIELD\b|\bDATAVALUEFIELD\b|\bDAYHEADERSTYLE\b|\bDAYNAMEFORMAT\b|\bDAYRENDER\b|\bDAYSTYLE\b|\bDECLARE\b|\bDEFER\b|\bDELETECOMMAND\b|\bDIR\b|\bDIRECTION\b|\bDOCUMENT\b|\bDOCUMENTCONTENT\b|\bDOCUMENTSOURCE\b|\bDYNSRC\b|\bEDITCOMMAND\b|\bEDITITEMSTYLE\b|\bEDITITEMTEMPLATE\b|\bENABLED\b|\bENABLEVIEWSTATE\b|\bENCTYPE\b|\bEXTRACTTEMPLATEROWS\b|\bFACE\b|\bFIRSTDAYOFWEEK\b|\bFONT\b|\bFONT-BOLD\b|\bFONT-ITALIC\b|\bFONT-NAME\b|\bFONT-NAMES\b|\bFONT-OVERLINE\b|\bFONT-SIZE\b|\bFONT-STRIKEOUT\b|\bFONT-UNDERLINE\b|\bFOOTERSTYLE\b|\bFOOTERTEMPLATE\b|\bFOOTERTEXT\b|\bFORECOLOR\b|\bFRAMEBORDER\b|\bFRAMESPACING\b|\bGRIDLINES\b|\bGROUPNAME\b|\bHEADERSTYLE\b|\bHEADERTEMPLATE\b|\bHEADERTEXT\b|\bHEIGHT\b|\bHORIZONTALALIGN\b|\bHREF\b|\bHSPACE\b|\bHTTP-EQUIV\b|\bID\b|\bIMAGEALIGN\b|\bIMAGEURL\b|\bIMPRESSIONS\b|\bINNERHTML\b|\bINNERTEXT\b|\bISMAP\b|\bITEMCOMMAND\b|\bITEMCREATED\b|\bITEMDATABOUND\b|\bITEMSTYLE\b|\bITEMTEMPLATE\b|\bKEYWORD\b|\bKEYWORDFILTER\b|\bLANGUAGE\b|\bLEFTMARGIN\b|\bLINK\b|\bLOOP\b|\bMARGINHEIGHT\b|\bMARGINWIDTH\b|\bMARKINGHEIGHT\b|\bMAXIMUMVALUE\b|\bMAXLENGTH\b|\bMEDIA\b|\bMERGESTYLE\b|\bMERGEWITH\b|\bMETHOD\b|\bMINIMUMVALUE\b|\bMODE\b|\bMULTIPLE\b|\bNAME\b|\bNAVIGATEURL\b|\bNEXTMONTHTEXT\b|\bNEXTPAGETEXT\b|\bNEXTPREVFORMAT\b|\bNEXTPREVSTYLE\b|\bNOHREF\b|\bNOSHADE\b|\bNOWRAP\b|\bONADCREATED\b|\bONBLUR\b|\bONCANCELCOMMAND\b|\bONCHECKEDCHANGED\b|\bONCLICK\b|\bONCOMMAND\b|\bONDAYRENDER\b|\bONDBLCLICK\b|\bONDELETECOMMAND\b|\bONEDITCOMMAND\b|\bONFOCUS\b|\bONITEMCOMMAND\b|\bONITEMCREATED\b|\bONKEYDOWN\b|\bONKEYPRESS\b|\bONKEYUP\b|\bONLOAD\b|\bONMOUSEDOWN\b|\bONMOUSEOUT\b|\bONMOUSEOVER\b|\bONMOUSEUP\b|\bONPAGEINDEXCHANGED\b|\bONSELECTEDINDEXCHANGED\b|\bONSELECTIONCHANGED\b|\bONSERVERCHANGE\b|\bONSERVERCLICK\b|\bONSERVERVALIDATE\b|\bONSORTCOMMAND\b|\bONTEXTCHANGED\b|\bONUNLOAD\b|\bONUPDATECOMMAND\b|\bONVISIBLEMONTHCHANGED\b|\bOPTIONAL\b|\bOTHERMONTHDAYSTYLE\b|\bPAGEINDEXCHANGED\b|\bPAGERSTYLE\b|\bPAGESIZE\b|\bPALETTE\b|\bPOSTEDFILE\b|\bPREVMONTHTEXT\b|\bPREVPAGETEXT\b|\bPROMPT\b|\bREADONLY\b|\bREL\b|\bREPEATCOLUMNS\b|\bREPEATDIRECTION\b|\bREPEATLAYOUT\b|\bREV\b|\bROWS\b|\bROWSPAN\b|\bRULES\b|\bRUNAT\b|\bSCEME\b|\bSCROLLAMOUNT\b|\bSCROLLDELAY\b|\bSCROLLING\b|\bSELECTED\b|\bSELECTEDDATE\b|\bSELECTEDDATES\b|\bSELECTEDDAYSTYLE\b|\bSELECTEDINDEX\b|\bSELECTEDINDEXCHANGED\b|\bSELECTEDITEMSTYLE\b|\bSELECTEDITEMTEMPLATE\b|\bSELECTIONMODE\b|\bSELECTMONTHTEXT\b|\bSELECTORSTYLE\b|\bSELECTWEEKTEXT\b|\bSEPARATORSTYLE\b|\bSEPARATORTEMPLATE\b|\bSERVERCHANGE\b|\bSERVERVALIDATE\b|\bSHAPE\b|\bSHAPES\b|\bSHOWDAYHEADER\b|\bSHOWFOOTER\b|\bSHOWGRIDLINES\b|\bSHOWHEADER\b|\bSHOWNEXTPREVMONTH\b|\bSHOWTITLE\b|\bSIZE\b|\bSORTEXPRESSION\b|\bSPAN\b|\bSRC\b|\bSTANDBY\b|\bSTART\b|\bSTYLE\b|\bTABINDEX\b|\bTARGET\b|\bTEXT\b|\bTEXTALIGN\b|\bTEXTCHANGED\b|\bTEXTMODE\b|\bTITLEFORMAT\b|\bTITLESTYLE\b|\bTODAYSDATE\b|\bTODAYDAYSTYLE\b|\bTOOLTIP\b|\bTOPMARGIN\b|\bTOOLTIP\b|\bTOPMARGIN\b|\bTRANSFORM\b|\bTRANSFORMSOURCE\b|\bTYPE\b|\bURL\b|\bUSEMAP\b|\bVALIDATE\b|\bVALIDATIONEXPRESSION\b|\bVALIGN\b|\bVALUE\b|\bVALUETYPE\b|\bVERTICALALIGN\b|\bVISIBLEDATE\b|\bVISIBLEMONTHCHANGED\b|\bVLINK\b|\bVSPACE\b|\bWEEKENDDAYSTYLE\b|\bWIDTH\b|\bWRAP\b|\bXML:LANG\b|\bXML:SPACE\b)"
sText=re.Replace(sText,"<font color=blue>$1</font>")
'转换函数和对象为[红色]
re.Pattern="(\bAsc\b|\bAscB\b|\bAscW\b|\bChr\b|\bChrB\b|\bChrW\b|\bFilter\b|\bInStr\b|\bInStrB\b|\bInStrRev\b|\bJoin\b|\bLen\b|\bLenB\b|\bLCase\b|\bUCase\b|\bLeft\b|\bLeftB\b|\bMid\b|\bMidB\b|\bRight\b|\bRightB\b|\bReplace\b|\bSpace\b|\bSplit\b|\bStrComp\b|\bString\b|\bStrReverse\b|\bLTrim\b|\bRTrim\b|\bTrim\b|\bAbs\b|\bInt\b|\bFix\b|\bRound\b|\bSgn\b|\bIsArray\b|\bIsDate\b|\bIsEmpty\b|\bIsNull\b|\bIsNumeric\b|\bIs\b|\bTypeName\b|\bVarType\b|\bCreate\b|\bErr\b|\bGet\b|\bRegExp\b|\bAtn\b|\bCos\b|\bSin\b|\bTan\b|\bExp\b|\bLog\b|\bSqr\b|\bRandomize\b|\bRnd\b|\bExecute\b|\bRGB\b|\bEmpty\b|\bFalse\b|\bNothing\b|\bNull\b|\bTrue\b|\bOn\b|\bError\b|\bErr\b|\bClass\b|\bConst\b|\bDim\b|\bPrivate\b|\bPublic\b|\bReDim,sub\b|\bDate\b|\bTime\b|\bDateAdd\b|\bDateDiff\b|\bDatePart\b|\bDateSerial\b|\bDateValue\b|\bDay\b|\bMonth\b|\bMonthName\b|\bWeekday\b|\bWeekdayName\b|\bYear\b|\bHour\b|\bMinute\b|\bSecond\b|\bNow\b|\bTimeSerial\b|\bTimeValue\b|\bAbs\b|\bAsc\b|\bAscB\b|\bAscW\b|\bChr\b|\bChrB\b|\bChrW\b|\bCBool\b|\bCByte\b|\bCCur\b|\bCDate\b|\bCDbl\b|\bCInt\b|\bCLng\b|\bCSng\b|\bCStr\b|\bDateSerial\b|\bDateValue\b|\bHex\b|\bOct\b|\bFix\b|\bInt\b|\bSgn\b|\bTimeSerial\b|\bTimeValue\b|\bDo\b|\bLoop\b|\bFor\b|\bNext\b|\bFor\b|\bEach\b|\bIf\b|\bThen\b|\bElse\b|\bSelect\b|\bCase\b|\bWhile\b|\bWend\b|\bEmpty\b|\bNothing\b|\bNull\b|\bTrue\b|\bFalse\b|\bWith\b|\bArray\b|\bDim\b|\bPrivate\b|\bPublic\b|\bReDim\b|\bIsArray\b|\bErase\b|\bLBound\b|\bUBound\b|\bAbs\b|\bArray\b|\bAsc\b|\bAtn\b|\bCBool\b|\bCByte\b|\bCCur\b|\bCDate\b|\bCDbl\b|\bChr\b|\bCInt\b|\bCLng\b|\bCos\b|\bCreateObject\b|\bCSng\b|\bCStr\b|\bDate\b|\bDateAdd\b|\bDateDiff\b|\bDatePart\b|\bDateSerial\b|\bDateValue\b|\bDay\b|\bEval\b|\bExp\b|\bFilter\b|\bFix\b|\bFormatCurrency\b|\bFormatDateTime\b|\bFormatNumber\b|\bFormatPercent\b|\bGetLocale\b|\bGetObject\b|\bGetRef\b|\bHex\b|\bHour\b|\bInputBox\b|\bInStr\b|\bInStrRev\b|\bInt\b|\bIsArray\b|\bIsDate\b|\bIsEmpty\b|\bIsNull\b|\bIsNumeric\b|\bIsObject\b|\bJoin\b|\bLBound\b|\bLCase\b|\bLeft\b|\bLen\b|\bLoadPicture\b|\bLog\b|\bLTrim\b|\bMid\b|\bMinute\b|\bMonth\b|\bMonthName\b|\bMsgBox\b|\bNow\b|\bOct\b|\bReplace\b|\bRGB\b|\bRight\b|\bRnd\b|\bRound\b|\bRTrim\b|\bScriptEngine\b|\bScriptEngineBuildVersion\b|\bScriptEngineMajorVersion\b|\bScriptEngineMinorVersion\b|\bSecond\b|\bSgn\b|\bSin\b|\bSpace\b|\bSplit\b|\bSqr\b|\bStrComp\b|\bString\b|\bStrReverse\b|\bTan\b|\bTime\b|\bTimer\b|\bTimeSerial\b|\bTimeValue\b|\bTrim\b|\bTypeName\b|\bUBound\b|\bUCase\b|\bVarType\b|\bWeekday\b|\bWeekdayName\b|\bYear\b)"
sText=re.Replace(sText,"<font color=red>$1</font>")
'转换字符串为[粉红色]
re.Pattern="(""[^""]*"")"
sText=re.Replace(sText,"<font color=#FF33FF>$1</font>")
'转换ASP对象和方法为[棕色]
re.Pattern="(\bApplication\b|\bContents\b|\bStaticObjects\b|\bLock\b|\bUnlock\b|\bApplicationOnEnd\b|\bApplicationOnStart\b|\bObjectContext\b|\bSetAbort\b|\bSetComplete\b|\bOnTransactionAbort\b|\bOnTransactionCommit\b|\bRequest\b|\bClientCertificate\b|\bCookies\b|\bForm\b|\bQueryString\b|\bServerVariables\b|\bTotalBytes\b|\bBinaryRead\b|\bResponse\b|\bCookies\b|\bBuffer\b|\bCacheControl\b|\bCharset\b|\bContentType\b|\bExpires\b|\bExpiresAsolute\b|\bIsClientConnected\b|\bPICS\b|\bStatus\b|\bAddHeader\b|\bAppendToLog\b|\bBinaryWrite\b|\bClear\b|\bEnd\b|\bFlush\b|\bRedirect\b|\bWrite\b|\bServer\b|\bScriptTimeout\b|\bCreateObject\b|\bHTMLEncode\b|\bMapPath\b|\bURLEncode\b|\bSession\b|\bContents\b|\bStaticObjects\b|\bCodePage\b|\bLCID\b|\bSessionID\b|\bTimeout\b|\bAbandon\b|\bSessionOnEnd\b|\bSessionOnStart\b)"
sText=re.Replace(sText,"<font color=#840000>$1</font>")
sText = Replace(sText, CHR(34), """)
sText = Replace(sText, CHR(39), "'")
ChangeVbToColor=sText
End Function
Function HTMLEncode(fString)
If Not isnull(fString) Then
fString = replace(fString, "&", "&")
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = replace(fString, CHR(32), " ")
fString = replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
HTMLEncode = fString
Else
HTMLEncode=""
End If
End Function
</SCRIPT>
</body>
</html>
以后还想像博客园那样支持多种语言着色和代码折叠功能，打算用数据库来保存关键字，不然要发一堆东西到客户段，影响速度。
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>代码着色</title><style type="text/css">
<!--body {
body font-family: "宋体";font-size: 12px;color: #333333;}.Text {font-family: "宋体";font-size: 12px;border: 1px solid #333333;}td {font-family: "宋体";font-size: 12px;}--></style></head><body><table width="760" height="399" border="0" cellpadding="0" cellspacing="2" align="center"><tr><td height="302" valign="top"><form name="form1" method="post" action=""><div align="center"><textarea name="Content" cols="120" rows="25" class="Text" id="Content"></textarea><br><input name="btnShow" type="button" class="Text" id="btnShow" value="显 示" OnClick="GetHtmlContent()"></div></form></td></tr><tr><td height="91"><span id="sHtml"></span></td></tr></table><SCRIPT LANGUAGE="VBScript">Sub GetHtmlContentset nw=window.open("") nw.document.write ChangeVbToColor(HtmlEncode(form1.Content.value))End SubFunction ChangeVbToColor(ByVal sText)Dim re,Matches,iDim oneRegSet re=new RegExpre.IgnoreCase =truere.Global=true'转换保留字为[蓝色]re.Pattern="(\bAnd\b|\bByRef\b|\bByVal\b|\bCall\b|\bCase\b|\bClass\b|\bConst\b|\bDim\b|\bDo\b|\bEach\b|\bElse\b|\bElseIf\b|\bEmpty\b|\bEnd\b|\bEqv\b|\bErase\b|\bError\b|\bExit\b|\bExplicit\b|\bFalse\b|\bFor\b|\bFunction\b|\bGet\b|\bIf\b|\bImp\b|\bIn\b|\bIs\b|\bLet\b|\bLoop\b|\bMod\b|\bNext\b|\bNot\b|\bNothing\b|\bNull\b|\bOn\b|\bOption\b|\bOr\b|\bPrivate\b|\bProperty\b|\bPublic\b|\bRandomize\b|\bReDim\b|\bRem\b|\bResume\b|\bSelect\b|\bSet\b|\bStep\b|\bSub\b|\bThen\b|\bTo\b|\bTrue\b|\bUntil\b|\bWend\b|\bWhile\b|\bXor\b|\b!DOCTYPE\b|\bA\b|\bAD\b|\bADDRESS\b|\bAPPLET\b|\bAREA\b|\bB\b|\bBASE\b|\bBASEFONT\b|\bBGSOUND\b|\bBIG\b|\bBLOCKQUOTE\b|\bBODY\b|\bCAPTION\b|\bCENTER\b|\bCITE\b|\bCODE\b|\bCOL\b|\bCOLGROUP\b|\bCOMMENT\b|\bDD\b|\bDFN\b|\bDIR\b|\bDIV\b|\bDL\b|\bDT\b|\bEM\b|\bEMBED\b|\bFONT\b|\bFORM\b|\bFRAME\b|\bFRAMESET\b|\bH1\b|\bH2\b|\bH3\b|\bH4\b|\bH5\b|\bH6\b|\bHEAD\b|\bHR\b|\bHTML\b|\bI\b|\bIMG\b|\bINPUT\b|\bISINDEX\b|\bITEMTEMPLATE\b|\bKBD\b|\bLI\b|\bLISTING\b|\bMAP\b|\bMARQUEE\b|\bMENU\b|\bMETA\b|\bNOBR\b|\bNOFRAMES\b|\bOBJECT\b|\bOL\b|\bOPTION\b|\bP\b|\bPARAM\b|\bPLAINTEXT\b|\bPRE\b|\bS\b|\bSAMP\b|\bSCRIPT\b|\bSELECT\b|\bSELECTEDITEMTEMPLATE\b|\bSEPARATORTEMPLATE\b|\bSMALL\b|\bSPAN\b|\bSTRIKE\b|\bSTRONG\b|\bSTYLE\b|\bSUB\b|\bSUP\b|\bTABLE\b|\bTBODY\b|\bTD\b|\bTEXTAREA\b|\bTFOOT\b|\bTH\b|\bTHEAD\b|\bTITLE\b|\bTR\b|\bTT\b|\bU\b|\bUL\b|\bVAR\b|\bWBR\b|\bXMP\b|\bACCESSKEY\b|\bACTION\b|\bADCREATED\b|\bADVERTISEMENTFILE\b|\bALIGN\b|\bALINK\b|\bALLOWCUSTOMPAGING\b|\bALLOWPAGING\b|\bALLOWSORTING\b|\bALT\b|\bALTERNATETEXT\b|\bALTERNATINGITEMSTYLE\b|\bALTERNATINGITEMTEMPLATE\b|\bAPPLYSTYLE\b|\bATTRIBUTES\b|\bAUTOGENERATECOLUMNS\b|\bAUTOPOSTBACK\b|\bBACKCOLOR\b|\bBACKGROUND\b|\bBACKIMAGEURL\b|\bBEHAVIOR\b|\bBGCOLOR\b|\bBGPROPERTIES\b|\bBORDER\b|\bBORDERCOLOR\b|\bBORDERCOLORDARK\b|\bBORDERCOLORLIGHT\b|\bBORDERSTYLE\b|\bBORDERWIDTH\b|\bCANCELCOMMAND\b|\bCAUSESVALIDATION\b|\bCELLPADDING\b|\bCELLSPACING\b|\bCHARSET\b|\bCHECKCHANGED\b|\bCHECKED\b|\bCLASS\b|\bCLASSID\b|\bCLEAR\b|\bCLICK\b|\bCODEBASE\b|\bCOLOR\b|\bCOLS\b|\bCOLSPAN\b|\bCOLUMNS\b|\bCOLUMNSPAN\b|\bCOMMAND\b|\bCOMMANDARGUMENT\b|\bCOMMANDNAME\b|\bCOMMANDARGUMENT\b|\bCOMMANDNAME\b|\bCONTENT\b|\bCONTROLS\b|\bCONTROLTOCOMPARE\b|\bCONTROLTOVALIDATE\b|\bCOORDS\b|\bCOPYFROM\b|\bCSSCLASS\b|\bDATA\b|\bDATAFIELD\b|\bDATAFORMATSTRING\b|\bDATAKEYFIELD\b|\bDATAMEMBER\b|\bDATANAVIGATEURLFIELD\b|\bDATANAVIGATEURLFORMATSTRING\b|\bDATASOURCE\b|\bDATATEXTFIELD\b|\bDATAVALUEFIELD\b|\bDAYHEADERSTYLE\b|\bDAYNAMEFORMAT\b|\bDAYRENDER\b|\bDAYSTYLE\b|\bDECLARE\b|\bDEFER\b|\bDELETECOMMAND\b|\bDIR\b|\bDIRECTION\b|\bDOCUMENT\b|\bDOCUMENTCONTENT\b|\bDOCUMENTSOURCE\b|\bDYNSRC\b|\bEDITCOMMAND\b|\bEDITITEMSTYLE\b|\bEDITITEMTEMPLATE\b|\bENABLED\b|\bENABLEVIEWSTATE\b|\bENCTYPE\b|\bEXTRACTTEMPLATEROWS\b|\bFACE\b|\bFIRSTDAYOFWEEK\b|\bFONT\b|\bFONT-BOLD\b|\bFONT-ITALIC\b|\bFONT-NAME\b|\bFONT-NAMES\b|\bFONT-OVERLINE\b|\bFONT-SIZE\b|\bFONT-STRIKEOUT\b|\bFONT-UNDERLINE\b|\bFOOTERSTYLE\b|\bFOOTERTEMPLATE\b|\bFOOTERTEXT\b|\bFORECOLOR\b|\bFRAMEBORDER\b|\bFRAMESPACING\b|\bGRIDLINES\b|\bGROUPNAME\b|\bHEADERSTYLE\b|\bHEADERTEMPLATE\b|\bHEADERTEXT\b|\bHEIGHT\b|\bHORIZONTALALIGN\b|\bHREF\b|\bHSPACE\b|\bHTTP-EQUIV\b|\bID\b|\bIMAGEALIGN\b|\bIMAGEURL\b|\bIMPRESSIONS\b|\bINNERHTML\b|\bINNERTEXT\b|\bISMAP\b|\bITEMCOMMAND\b|\bITEMCREATED\b|\bITEMDATABOUND\b|\bITEMSTYLE\b|\bITEMTEMPLATE\b|\bKEYWORD\b|\bKEYWORDFILTER\b|\bLANGUAGE\b|\bLEFTMARGIN\b|\bLINK\b|\bLOOP\b|\bMARGINHEIGHT\b|\bMARGINWIDTH\b|\bMARKINGHEIGHT\b|\bMAXIMUMVALUE\b|\bMAXLENGTH\b|\bMEDIA\b|\bMERGESTYLE\b|\bMERGEWITH\b|\bMETHOD\b|\bMINIMUMVALUE\b|\bMODE\b|\bMULTIPLE\b|\bNAME\b|\bNAVIGATEURL\b|\bNEXTMONTHTEXT\b|\bNEXTPAGETEXT\b|\bNEXTPREVFORMAT\b|\bNEXTPREVSTYLE\b|\bNOHREF\b|\bNOSHADE\b|\bNOWRAP\b|\bONADCREATED\b|\bONBLUR\b|\bONCANCELCOMMAND\b|\bONCHECKEDCHANGED\b|\bONCLICK\b|\bONCOMMAND\b|\bONDAYRENDER\b|\bONDBLCLICK\b|\bONDELETECOMMAND\b|\bONEDITCOMMAND\b|\bONFOCUS\b|\bONITEMCOMMAND\b|\bONITEMCREATED\b|\bONKEYDOWN\b|\bONKEYPRESS\b|\bONKEYUP\b|\bONLOAD\b|\bONMOUSEDOWN\b|\bONMOUSEOUT\b|\bONMOUSEOVER\b|\bONMOUSEUP\b|\bONPAGEINDEXCHANGED\b|\bONSELECTEDINDEXCHANGED\b|\bONSELECTIONCHANGED\b|\bONSERVERCHANGE\b|\bONSERVERCLICK\b|\bONSERVERVALIDATE\b|\bONSORTCOMMAND\b|\bONTEXTCHANGED\b|\bONUNLOAD\b|\bONUPDATECOMMAND\b|\bONVISIBLEMONTHCHANGED\b|\bOPTIONAL\b|\bOTHERMONTHDAYSTYLE\b|\bPAGEINDEXCHANGED\b|\bPAGERSTYLE\b|\bPAGESIZE\b|\bPALETTE\b|\bPOSTEDFILE\b|\bPREVMONTHTEXT\b|\bPREVPAGETEXT\b|\bPROMPT\b|\bREADONLY\b|\bREL\b|\bREPEATCOLUMNS\b|\bREPEATDIRECTION\b|\bREPEATLAYOUT\b|\bREV\b|\bROWS\b|\bROWSPAN\b|\bRULES\b|\bRUNAT\b|\bSCEME\b|\bSCROLLAMOUNT\b|\bSCROLLDELAY\b|\bSCROLLING\b|\bSELECTED\b|\bSELECTEDDATE\b|\bSELECTEDDATES\b|\bSELECTEDDAYSTYLE\b|\bSELECTEDINDEX\b|\bSELECTEDINDEXCHANGED\b|\bSELECTEDITEMSTYLE\b|\bSELECTEDITEMTEMPLATE\b|\bSELECTIONMODE\b|\bSELECTMONTHTEXT\b|\bSELECTORSTYLE\b|\bSELECTWEEKTEXT\b|\bSEPARATORSTYLE\b|\bSEPARATORTEMPLATE\b|\bSERVERCHANGE\b|\bSERVERVALIDATE\b|\bSHAPE\b|\bSHAPES\b|\bSHOWDAYHEADER\b|\bSHOWFOOTER\b|\bSHOWGRIDLINES\b|\bSHOWHEADER\b|\bSHOWNEXTPREVMONTH\b|\bSHOWTITLE\b|\bSIZE\b|\bSORTEXPRESSION\b|\bSPAN\b|\bSRC\b|\bSTANDBY\b|\bSTART\b|\bSTYLE\b|\bTABINDEX\b|\bTARGET\b|\bTEXT\b|\bTEXTALIGN\b|\bTEXTCHANGED\b|\bTEXTMODE\b|\bTITLEFORMAT\b|\bTITLESTYLE\b|\bTODAYSDATE\b|\bTODAYDAYSTYLE\b|\bTOOLTIP\b|\bTOPMARGIN\b|\bTOOLTIP\b|\bTOPMARGIN\b|\bTRANSFORM\b|\bTRANSFORMSOURCE\b|\bTYPE\b|\bURL\b|\bUSEMAP\b|\bVALIDATE\b|\bVALIDATIONEXPRESSION\b|\bVALIGN\b|\bVALUE\b|\bVALUETYPE\b|\bVERTICALALIGN\b|\bVISIBLEDATE\b|\bVISIBLEMONTHCHANGED\b|\bVLINK\b|\bVSPACE\b|\bWEEKENDDAYSTYLE\b|\bWIDTH\b|\bWRAP\b|\bXML:LANG\b|\bXML:SPACE\b)"sText=re.Replace(sText,"<font color=blue>$1</font>")'转换函数和对象为[红色]re.Pattern="(\bAsc\b|\bAscB\b|\bAscW\b|\bChr\b|\bChrB\b|\bChrW\b|\bFilter\b|\bInStr\b|\bInStrB\b|\bInStrRev\b|\bJoin\b|\bLen\b|\bLenB\b|\bLCase\b|\bUCase\b|\bLeft\b|\bLeftB\b|\bMid\b|\bMidB\b|\bRight\b|\bRightB\b|\bReplace\b|\bSpace\b|\bSplit\b|\bStrComp\b|\bString\b|\bStrReverse\b|\bLTrim\b|\bRTrim\b|\bTrim\b|\bAbs\b|\bInt\b|\bFix\b|\bRound\b|\bSgn\b|\bIsArray\b|\bIsDate\b|\bIsEmpty\b|\bIsNull\b|\bIsNumeric\b|\bIs\b|\bTypeName\b|\bVarType\b|\bCreate\b|\bErr\b|\bGet\b|\bRegExp\b|\bAtn\b|\bCos\b|\bSin\b|\bTan\b|\bExp\b|\bLog\b|\bSqr\b|\bRandomize\b|\bRnd\b|\bExecute\b|\bRGB\b|\bEmpty\b|\bFalse\b|\bNothing\b|\bNull\b|\bTrue\b|\bOn\b|\bError\b|\bErr\b|\bClass\b|\bConst\b|\bDim\b|\bPrivate\b|\bPublic\b|\bReDim,sub\b|\bDate\b|\bTime\b|\bDateAdd\b|\bDateDiff\b|\bDatePart\b|\bDateSerial\b|\bDateValue\b|\bDay\b|\bMonth\b|\bMonthName\b|\bWeekday\b|\bWeekdayName\b|\bYear\b|\bHour\b|\bMinute\b|\bSecond\b|\bNow\b|\bTimeSerial\b|\bTimeValue\b|\bAbs\b|\bAsc\b|\bAscB\b|\bAscW\b|\bChr\b|\bChrB\b|\bChrW\b|\bCBool\b|\bCByte\b|\bCCur\b|\bCDate\b|\bCDbl\b|\bCInt\b|\bCLng\b|\bCSng\b|\bCStr\b|\bDateSerial\b|\bDateValue\b|\bHex\b|\bOct\b|\bFix\b|\bInt\b|\bSgn\b|\bTimeSerial\b|\bTimeValue\b|\bDo\b|\bLoop\b|\bFor\b|\bNext\b|\bFor\b|\bEach\b|\bIf\b|\bThen\b|\bElse\b|\bSelect\b|\bCase\b|\bWhile\b|\bWend\b|\bEmpty\b|\bNothing\b|\bNull\b|\bTrue\b|\bFalse\b|\bWith\b|\bArray\b|\bDim\b|\bPrivate\b|\bPublic\b|\bReDim\b|\bIsArray\b|\bErase\b|\bLBound\b|\bUBound\b|\bAbs\b|\bArray\b|\bAsc\b|\bAtn\b|\bCBool\b|\bCByte\b|\bCCur\b|\bCDate\b|\bCDbl\b|\bChr\b|\bCInt\b|\bCLng\b|\bCos\b|\bCreateObject\b|\bCSng\b|\bCStr\b|\bDate\b|\bDateAdd\b|\bDateDiff\b|\bDatePart\b|\bDateSerial\b|\bDateValue\b|\bDay\b|\bEval\b|\bExp\b|\bFilter\b|\bFix\b|\bFormatCurrency\b|\bFormatDateTime\b|\bFormatNumber\b|\bFormatPercent\b|\bGetLocale\b|\bGetObject\b|\bGetRef\b|\bHex\b|\bHour\b|\bInputBox\b|\bInStr\b|\bInStrRev\b|\bInt\b|\bIsArray\b|\bIsDate\b|\bIsEmpty\b|\bIsNull\b|\bIsNumeric\b|\bIsObject\b|\bJoin\b|\bLBound\b|\bLCase\b|\bLeft\b|\bLen\b|\bLoadPicture\b|\bLog\b|\bLTrim\b|\bMid\b|\bMinute\b|\bMonth\b|\bMonthName\b|\bMsgBox\b|\bNow\b|\bOct\b|\bReplace\b|\bRGB\b|\bRight\b|\bRnd\b|\bRound\b|\bRTrim\b|\bScriptEngine\b|\bScriptEngineBuildVersion\b|\bScriptEngineMajorVersion\b|\bScriptEngineMinorVersion\b|\bSecond\b|\bSgn\b|\bSin\b|\bSpace\b|\bSplit\b|\bSqr\b|\bStrComp\b|\bString\b|\bStrReverse\b|\bTan\b|\bTime\b|\bTimer\b|\bTimeSerial\b|\bTimeValue\b|\bTrim\b|\bTypeName\b|\bUBound\b|\bUCase\b|\bVarType\b|\bWeekday\b|\bWeekdayName\b|\bYear\b)"sText=re.Replace(sText,"<font color=red>$1</font>")'转换字符串为[粉红色]re.Pattern="(""[^""]*"")"sText=re.Replace(sText,"<font color=#FF33FF>$1</font>")'转换ASP对象和方法为[棕色]re.Pattern="(\bApplication\b|\bContents\b|\bStaticObjects\b|\bLock\b|\bUnlock\b|\bApplicationOnEnd\b|\bApplicationOnStart\b|\bObjectContext\b|\bSetAbort\b|\bSetComplete\b|\bOnTransactionAbort\b|\bOnTransactionCommit\b|\bRequest\b|\bClientCertificate\b|\bCookies\b|\bForm\b|\bQueryString\b|\bServerVariables\b|\bTotalBytes\b|\bBinaryRead\b|\bResponse\b|\bCookies\b|\bBuffer\b|\bCacheControl\b|\bCharset\b|\bContentType\b|\bExpires\b|\bExpiresAsolute\b|\bIsClientConnected\b|\bPICS\b|\bStatus\b|\bAddHeader\b|\bAppendToLog\b|\bBinaryWrite\b|\bClear\b|\bEnd\b|\bFlush\b|\bRedirect\b|\bWrite\b|\bServer\b|\bScriptTimeout\b|\bCreateObject\b|\bHTMLEncode\b|\bMapPath\b|\bURLEncode\b|\bSession\b|\bContents\b|\bStaticObjects\b|\bCodePage\b|\bLCID\b|\bSessionID\b|\bTimeout\b|\bAbandon\b|\bSessionOnEnd\b|\bSessionOnStart\b)"sText=re.Replace(sText,"<font color=#840000>$1</font>")sText = Replace(sText, CHR(34), """)sText = Replace(sText, CHR(39), "'")ChangeVbToColor=sTextEnd FunctionFunction HTMLEncode(fString)If Not isnull(fString) ThenfString = replace(fString, "&", "&")fString = replace(fString, ">", ">")fString = replace(fString, "<", "<")fString = replace(fString, CHR(32), " ")fString = replace(fString, CHR(9), " ")fString = Replace(fString, CHR(13), "")fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")fString = Replace(fString, CHR(10), "<BR> ")HTMLEncode = fStringElseHTMLEncode=""End IfEnd Function</SCRIPT></body></html>
浙公网安备 33010602011771号