拿别人的新闻来用，虽然我知道这样不好，还是用了。。。
公司的网站基本完功了，还差一个新闻发布系统，我可不想做了网站还要做信息采编，公司就我一个搞电脑的了。唉！不是ＩＴ公司就这样了。
所以就去网上找免费新闻代码，倒是找了很多，可是就没有房地产方面的新闻代码，郁闷中。。。同事给我说他听说过一个网页小偷的程序，可以把别人网站的东东拿下来用，于是就去网上找了找，细想一下，发现这种东东的实现方法，就自己写了一个，把公司的网站搞定了。。。
首先是读新闻列表：
newslist.asp
<%
'先读session，为空再去取别人网站的。嘿嘿！取了就写session
if session("aaa")="" then
Dim url,Html
url = "http://www.xxxxx.com/" '嘿嘿，这里还是不要透露别人的网址的好
dim Http
set Http=server.createobject("MSXML2.XMLHTTP") '定义一个XMLHTTP对像
Http.open "GET",url,false
Http.send() '用它来读取对方网页
if Http.readystate=4 then 'readstate读取状态为4则成功，继续后面的，不成功当然就不用继续处理了
dim objstream
set objstream = Server.CreateObject("adodb.stream") '定义一个stream，因为读过来的直接拿出来是乱码的，所以得处理一下
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write Http.responseBody
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
html = objstream.ReadText '转好码，就放到html里，好关闭这些对像
objstream.Close
set objstream = nothing
set http=nothing
dim aaa,bbb,ccc '这里定义的都是用来处理结果的，要把中间自己要用的新闻给截取出来
aaa=cstr(html)
bbb=split(aaa,"<div id=""onlinemb_05"">")
aaa=bbb(1)
ccc=split(bbb(1),"</div>")
aaa=ccc(0)
'这里是把新闻地址转到自己的新闻显示页面，把本来的新闻地址当参数传给页面
aaa=replace(aaa,"href=""","href=""newsshow.asp?url=http://www.xxxxxx.com/")
aaa=replace(aaa,"target=""_blank""","")
'这里就是写session了
session("aaa")=aaa
end if
end if
'最后把处理好的输出
Response.write session("aaa")
%>
接下来就是新闻内容显示页面了,和前面的原理是一样的，只是新闻地址是用参数传来的，下面就不写注释了。。。
newsshow.asp
<%
Dim newsurl,newshtml
newsurl = request.querystring("url")
dim newsHttp
set newsHttp=server.createobject("MSXML2.XMLHTTP")
newsHttp.open "GET",newsurl,false
newsHttp.send()
if newsHttp.readystate=4 then
dim newsobjstream
set newsobjstream = Server.CreateObject("adodb.stream")
newsobjstream.Type = 1
newsobjstream.Mode =3
newsobjstream.Open
newsobjstream.Write newsHttp.responseBody
newsobjstream.Position = 0
newsobjstream.Type = 2
newsobjstream.Charset = "GB2312"
newshtml = newsobjstream.ReadText
newsobjstream.Close
set newsobjstream = nothing
set newshttp=nothing
'response.write newshtml
dim newsaaa,newsbbb,newsccc,newsddd
newsaaa=cstr(newshtml)
newsbbb=split(newsaaa,"<br>" & vbcrlf & " <table width=""100%"" border=""0"">")
newsaaa="<table width=""100%"" border=""0"">" & newsbbb(1)
newsccc=split(newsaaa,"(编辑")
newsaaa=newsccc(0) & "</td></tr></table>"
newsaaa=replace(newsaaa,"table width=""590""","table width=""100%""")
response.write newsaaa
'response.write newsbbb
end if
%>
我这里截取自己需要的部份的处理方法还是太笨了，不知道哪些兄弟能指点一下。。。
