和server XMLHTTP相关的几个函数

返回页面的类容，weburl为页面url

Function GetBytes(weburl)
  '创建对象
  Dim ObjXMLHTTP
  Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
  '请求文件,以异步形式
  ObjXMLHTTP.Open "GET",weburl,False
  ObjXMLHTTP.send
  While ObjXMLHTTP.readyState <> 4
    ObjXMLHTTP.waitForResponse 1000
  Wend
  '得到结果
  GetBytes=ObjXMLHTTP.responseBody
  '释放对象
  Set ObjXMLHTTP=Nothing
End Function

把页面内容转化为某个编码的字符串

Function bytesTostr(bytes,setCode)
  dim objstream
  set objstream = Server.CreateObject("adodb.stream")
  objstream.Type = 1
  objstream.Mode =3
  objstream.Open
  objstream.Write bytes
  objstream.Position = 0
  objstream.Type = 2
  objstream.Charset = setCode
  bytesTostr = objstream.ReadText
  objstream.Close
  set objstream = nothing
End Function

清除字符串中script标记

Function removeJs(StrCon)
  Dim reg
  set reg = New RegExp
  reg.Pattern = "<SCRIPT[\s\S.]*</SCRIPT>"
  reg.IgnoreCase = True
  reg.Global = True
  removeJs = reg.Replace(StrCon, "")
  set reg=nothing
End Function

得到字符串某个标记间的内容
bTag开始标记，eTag结束标记

function getTagStr(str,bTag,eTag)
  set regEx=new RegExp
  regEx.IgnoreCase=true
  regEx.Global=true
  regEx.pattern=bTag&"([\s\S.]*)"&eTag
  set Matchs=regEx.execute(str)
  'bodys=Matchs(0).SubMatches(0)
  for each match in Matchs
    getTagStr=getTagStr&match.SubMatches(0)
  next
  set regEx=nothing
end function

过滤字符串中的html标记

Function RemoveHTML(str)
  Dim re
  Set re=New RegExp
  re.Pattern="<.*?>"
  re.IgnoreCase=True    
  re.Global=True
  str=re.Replace(str,"")
  Set re=Nothing
  RemoveHTML=str
End Function

加亮页面字符中的第一个关键字keyWord，并截取关键字前后length个字符

Function subStr(str,keyWord,length)
  n=instr(str,keyWord)
  if n>length then
    subString=Mid(str,n-5,length)
  else
    subString=Mid(str,1,length)
  end if
  if Len(subString)<length then
    m=Len(str)-length
    if m<0 then m=1 end if
    subString=Mid(str,m,Len(str))
  end if
  subStr=replace(subString,keyWord,"<font color='#66CC00'>"&keyWord&"</font>")
End Function