庐阳区文化局电话:论坛小偷

来源:百度文库 编辑:查人人中国名人网 时间: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/

已赞过已踩过<
你对这个回答的评价是?
评论收起
病态唯美
2005-07-03
病态唯美
采纳数:217获赞数:714LV8
擅长:暂未定制
向TA提问私信TA
展开全部
迅雷不是可以下载所有链接的吗,试试嘛

应该没有这么简单的

这不是论坛小偷啊,只是转帖