学步园

<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,"<","&lt;")
 keywordblue=replace(keywordblue,">","&gt;")
 keywordred=replace(keywordred,"<","&lt;")
 keywordred=replace(keywordred,">","&gt;")
 
 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),"@XX@")
 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,"@XX@",chr(34)&chr(34))
 op = doc
end function
</script>