给你的blog代码加高亮

根据你常用的语言替换掉关键词,将下列代码直接复制到你的静态新闻中即可

<script language="javascript">
var doc;
function load()
{
var els=document.getElementById("main").document.getElementsByTagName("DIV");
for(var ii=0;ii<els.length;ii++){
if(els[ii].className=="postText"){
doc=els[ii].innerHTML;
els[ii].innerHTML=op(doc);
}
}
}
document.onload=setTimeout("load()",2000);
</script>

<script language=vbscript>
function op(doc)
dim ok
Dim regEx, Match, Matches

Set regEx = New RegExp
regEx.IgnoreCase = true
regEx.Global = True

keywordblue="else if,elseif,end if,if,len,for,then,true,false,version,each,in,class,set,d ,while,loop,nothing,server,sin,request,response,next,mid,left,right,rightb,leftb,midb,write,close"
keywordred="server,createobject,close,session,application,name,vbcrlf,recordset,connection,command,recordcount,count,item"

keywordblue=replace(keywordblue,"<","<")
keywordblue=replace(keywordblue,">",">")
keywordred=replace(keywordred,"<","<")
keywordred=replace(keywordred,">",">")

arrblue=split(keywordblue,",")
arrred=split(keywordred,",")

for i=0 to ubound(arrblue)
regEx.Pattern = "/b("&arrblue(i)&")/b|/n"
ok="<font color=blue>$1</font>"
doc = regex.replace(doc,ok)
next

for i=0 to ubound(arrred)
regEx.Pattern = "/b("&arrred(i)&")/b"
ok="<font color=red>$1</font>"
doc = regex.replace(doc,ok)
next

doc=replace(doc,chr(34)&chr(34),"""")
regEx.Pattern = chr(34)&"(.+?)"&chr(34)
set Matches = regEx.execute(chr(34)&"(.)"&chr(34))
for Each match in Matches
doc = regEx.replace(doc,chr(34)&"<font color=green>$1</font>"&chr(34))
next
set regEx = nothing
doc= replace(doc,"""",chr(34)&chr(34))
op = doc
end function
</script>