拿别人的新闻来用,虽然我知道这样不好,还是用了。。。

公司的网站基本完功了,还差一个新闻发布系统,我可不想做了网站还要做信息采编,公司就我一个搞电脑的了。唉!不是IT公司就这样了。

所以就去网上找免费新闻代码,倒是找了很多,可是就没有房地产方面的新闻代码,郁闷中。。。同事给我说他听说过一个网页小偷的程序,可以把别人网站的东东拿下来用,于是就去网上找了找,细想一下,发现这种东东的实现方法,就自己写了一个,把公司的网站搞定了。。。

首先是读新闻列表:


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
%>

我这里截取自己需要的部份的处理方法还是太笨了,不知道哪些兄弟能指点一下。。。

posted @ 2005-07-16 09:00  Aowind  阅读(...)  评论(...编辑  收藏