3分钟学会写ASP小偷程序

现在网络上各式各样的小偷程序层出不穷，但百变不离其宗，小偷程序都是通过了XML中的XMLHTTP组件调用其它网站上的网页，并且对其中的html进行了一些替换。那么小偷程序是怎么编写的呢？其实主程序相当简单，下面是我的一个例子：

<%
'1、输入urltu目标网页地址，返回值getHTTPPage是目标网页的html代码
function getHTTPPage(urltu)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",urltu,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
end function

'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换
Function BytesToBstr(body,Cset)
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 = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

Dim urltu,Html
urltu=""
Html = getHTTPPage(urltu)

start=Instr(Html,"<title>")+7'截取标题，这里+7是<title>的字符数
over=Instr(Html,"</title>")
setasp=mid(Html,start,over-start)

setasp = replace(setasp,"技术前沿","")'过滤不需要的字符或替换

'接下来一些入库操作就不用我教了吧！
%>