做ASP小偷时.经常需要用到的函数.

来源：互联网发布：上海游族网络地址浦东编辑：程序博客网时间：2024/05/17 17:17

做ASP小偷时.经常需要用到的函数.

采集页面:
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