庐阳区文化局电话:论坛小偷
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/04 21:56:43
这个类似与新闻小偷,我以前写过。可以利用asp组建来获得需要页面的源代码,然后通过分析源代码的内容写一个处理程序,取出想要的数据。然后动态的显示到自己的页面上。根本就不需要
下面是两个函数,函数的返回值是获得网页的源代码:
参数当然就是网页的url,调用第一个函数。
Public Function getHtmlPage(strUrl)
On Error Resume Next
Dim objHttp
Set objHttp = Server.CreateObject("Microsoft.XMLHTTP")
objHttp.Open "GET", strUrl, False
objHttp.Send()
If objHttp.ReadyState <> 4 Then
Exit Function
End If
getHtmlPage = BytesToBstr(objHttp.ResponseBody)
Set objHttp = Nothing
If Err.Number <> 0 Then
Err.Clear
getHtmlPage = "<H1>该服务器不支持Microsoft.XMLHTTP组件!</H1>"
End If
On Error Goto 0
End Function
Public Function BytesToBstr(vIn)
On Error Resume Next
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
BytesToBstr = ""
With objStream
.Type = 1
.Mode =3
.Open
.Write vIn
.Position = 0
.Type = 2
.Charset = "GB2312"
BytesToBstr = .ReadText
.Close
End With
Set objStream = Nothing
If Err.Number <> 0 Then
Err.Clear
BytesToBstr = "<H1>该服务器不支持ADODB.Stream组件!</H1>"
End If
On Error Goto 0
End Function
如果技术上不行的话,还是自己慢慢贴吧。
可以去黑客基地看看相关的文章
参考资料:http://hackbase.com/