<%
Function GetPage(url)
'获得文件内容
dim Retrieval
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False ', "", ""
.Send
GetPage = BytesToBstr(.ResponseBody)
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
on error resume next
Url="http://finance.yahoo.com/q?s=nine"'要读取的页面地址
'Url="http://custom.marketwatch.com/custom/firstrade/html-qcn.asp?calignment=center&symb=NINE"
wstr = GetPage(Url)
'response.write(wstr)
'交易时间
strFind1 = instr(1,wstr,"Trade Time:| ",1)+29
strFind3 = instr(strFind2,wstr," | | ",1)+8
strFind3 = instr(strFind2,wstr,"",1)
xmlGet1="Last Trade: "+mid(wstr,strFind2,strFind3-strFind2)+chr(13)+chr(10)
'涨跌
strFind1 = instr(1,wstr,"Change: | ",1)+29
strFind3 = instr(strFind2,wstr," |
| ",1)+29
strFind3 = instr(strFind2,wstr," |
| ",1)+29
strFind3 = instr(strFind2,wstr," |
2."&xmlGet1&"
3."&xmlGet2&"
4."&xmlGet3&"
5."&xmlGet4&"
6.其他..."
function bytes2bstr(vin)
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function
response.write ""&xmlGet1&" "&xmlGet2&" "&xmlGet4&""
%>
|