asp中，用vbscript中的GetSourceCode方法去获取一个返回值

jesseqj 2008-04-15 03:17:22

本人现在想用asp vbscript脚本做一个程序
主要功能是：
用GetSourceCode方法向某一网站发出请求，并取回请求的数据！例如GetSourceCode方法里面是一个指向上海天气预报的网页，现在要显示从那个天气预报网站取回来的值，各位大侠帮帮忙啊，急......最好能给个例子

...全文

93 点赞收藏 12

写回复

12 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

一把编程的菜刀 2008-04-15

'dom.selectSingleNode(...)'那就是里面的信息密友获取到，一般旧似乎这几种情况

回复赞

jesseqj 2008-04-15

汗，我定义了，不知道怎么搞的
Dim dom
Set dom = Server.CreateObject("MSXML2.DOMDocument")
dom.load(request)
m_text = dom.selectSingleNode("//Text").text

dim keywordNodes
Set keywordNodes = dom.selectNodes("//Word")

回复赞

一把编程的菜刀 2008-04-15

就是你的对象没有定义，或者不存在！

回复赞

jesseqj 2008-04-15

不会吧，那你告诉我“缺少对象: 'dom.selectSingleNode(...)'”是什么意思吗？

回复赞

一把编程的菜刀 2008-04-15

删除了！

回复赞

jesseqj 2008-04-15

找到了没有？帮帮忙啊.....
顺便问下“缺少对象: 'dom.selectSingleNode(...)'”是什么意思？

回复赞

jesseqj 2008-04-15

我是刚学，这个有点复杂，看不明白

回复赞

一把编程的菜刀 2008-04-15

呵呵，以前还做了一个天气预报的例子，不记得放哪了，我找找看

回复赞

一把编程的菜刀 2008-04-15

给你看一个XMLHTTP的例子：

response.Charset="gb2312" 



Sub newsSina 

dim Content,url,ShowContent 

url="http://news.sina.com.cn/news1000/index.shtml" 



Content=GetNewsContent(url) 

response.write Content

'Content="<a href='www.a.com'>a </a><a href='www.bb.com'>bb </a><a href='www.ccc.com'>ccc </a> "

set re=new RegExp 

're.pattern="\[.*?\)" 

re.pattern="<li>.*" 

re.Global=true 

re.IgnoreCase=true 

set matches=re.execute(Content) 

For Each Match in matches 

'ShowContent=ShowContent&right(match.Value,len(match.value)-4)&"<br>" 

ShowContent=ShowContent&ChangeURL(right(match.Value,len(match.value)-4))&"<br>" 

'response.write ChangeURL(right(match.Value,len(match.value)-4))&"<br>"

next 

'ShowContent=ShowContent&"<br><a href=# onclick=vbscript:history.back>返回首页</a>" 

'response.write "<font size=2>"&ShowContent&"</font>" 



 

End Sub 



Function ChangeURL(str) 

'response.write str&"<br>" 



set Rep=new regExp 

Rep.pattern="http.*\b" 

Rep.Global=true 

Rep.IgnoreCase=true 

set RepMatches=Rep.execute(str) 

'Rtn=Rep.test(str) 

'response.write Rtn 

For Each RepMatch in Repmatches 

ChangeURL=replace(str,RepMatch.value,RepMatch.value) 

'response.write RepMatch.value&"<br>" 

next 



End Function 



Function GetNewsContent(URL) 

set objHttp=server.createobject("Microsoft.XMLHttp") 

'objHttp.open "get","http://news.sina.com.cn/news1000/index.shtml";,false 

objHttp.open "get",URL,false 

objHttp.send() 



if objHttp.readystate<>4 then

exit function 

end if 



GetNewsContent=bytes2BSTR(objHttp.responseBody) 



'GetNewsContent=objHttp.responseText 

'GetNewsContent=B2B(objHttp.responsebody)

End Function 





Function bytes2BSTR(vIn) 

dim strReturn 

dim i1,ThisCharCode,NextCharCode 

strReturn = "" 

For i1 = 1 To LenB(vIn) 

ThisCharCode = AscB(MidB(vIn,i1,1)) 

If ThisCharCode < &H80 Then 

strReturn = strReturn & Chr(ThisCharCode) 

Else 

NextCharCode = AscB(MidB(vIn,i1+1,1)) 

strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 

i1 = i1 + 1 

End If 

Next 

bytes2BSTR = strReturn 

End Function 







Call newsSina