ASP小偷程序的编写

我最近也在研究这个东西。请看看这个节目。我用这个程序成功地获得了很多网站信息。不同网站可能会有一些小改动，大家可以一起讨论。

& lt%

模糊Url，内容，awbno

Url = "网址"

awbno =请求。表格(" awbno ")

如果awbno= " "或IsNull(awbno ),则

Content = GetData(Url，1)

其他

content = post data(Url & amp；" return.asp "，" awbno = " & ampawbno，1)

如果…就会结束

Content = Replace(Content，" images/"，Url & amp"图像/")

Content = Replace(Content，" return.asp "，"")

回应。写内容

函数GetData(GetUrl，GetMode)

Dim Http

设置Http =服务器。CreateObject("msxml2。XMLHTTP”)

使用Http

。打开“GET”，GetUrl，False

。SetRequestHeader "Referer "，GetUrl

。发送

如果GetMode = 0，则

GetData =。响应主体

其他

GetData = BytesToBstr(。响应主体，“GB2312”)

如果…就会结束

以…结尾

设置Http =无

结束功能

函数PostData(PostUrl，PostStr，PostMode)

Dim Http

设置Http =服务器。CreateObject("msxml2。XMLHTTP”)

使用Http

。打开“帖子”，PostUrl，False

。SetRequestHeader " Content-Length "，Len(PostStr)

。SetRequestHeader "Content-Type "，" application/x-www-form-urlencoded "

。SetRequestHeader "Referer "，PostUrl

。发送PostStr

如果PostMode=0，则

PostData =。响应主体

其他

PostData = BytesToBstr(。响应主体，“GB2312”)

如果…就会结束

以…结尾

设置Http =无

结束功能

函数BytesToBstr(Body，Cset)

昏暗的ADOS

设置ADOS =服务器。CreateObject("Adodb。流”)

和ADOS一起

。Type = 1

。模式=3

。打开

。写主体

。位置= 0

。类型= 2

。字符集= Cset

BytesToBstr =。阅读文本

。关闭

以…结尾

设置ADOS =无

结束功能

% & gt