采集页面:
Function GetPage(url)
dim SendData,Retrieval
 Set Retrieval = CreateObject("Microsoft.XMLHTTP")
 With Retrieval
 .Open "post", url, False
 .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
 .setRequestHeader "User-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)"
 .Send()
 GetPage = BytesToBstr(.ResponseBody)
 End With
 Set Retrieval = Nothing
End Function
转换乱码:
Function BytesToBstr(body)
 dim objstream
 set objstream = Server.CreateObject("adodb.stream")
 objstream.Type = 1
 objstream.Mode =3
 objstream.Open
 objstream.Write body
 objstream.Position = 0
 objstream.Type = 2
 objstream.Charset = "GB2312"
 BytesToBstr = objstream.ReadText
 objstream.Close
 set objstream = nothing
End Function
获取指定的内容
Function GetContent(str,start,last,n)
 If Instr(lcase(str),lcase(start))>0 then
 select case n
 case 0 '左右都截取（都取前面）（去处关键字）
 GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
 GetContent=Left(GetContent,Instr(lcase(GetContent),lcase(last))-1)
 case 1 '左右都截取（都取前面）（保留关键字）
 GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1)
 GetContent=Left(GetContent,Instr(lcase(GetContent),lcase(last))+Len(last)-1)
 case 2 '只往右截取（取前面的）（去除关键字）
 GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
 end select
 Else
 GetContent=""
 End if
 end function

删除HTML标签:
function DelHtml(htmlCode)
dim iStart,iEnd
dim sTemp
sTemp=htmlCode
iStart=instr(sTemp,"<")
iEnd=instr(sTemp,">")
do while iStart>0 and iEnd>0 and iEnd-iStart>0
sTemp=replace(sTemp,mid(sTemp,iStart,iEnd-iStart+1),"")
iStart=instr(sTemp,"<")
iEnd=instr(sTemp,">")
loop
DelHtml=sTemp
end function