查人人中国名人网打印联盟在线打印:网站如何显示指定一个股票股价的数据,需要会自动更新的那种
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/02 10:08:16
不许要K线图,只要数据,需要具体方法
例如: ST环球 000718 成交价格 4.98元
最好能把代码贴上来
方法很多：自动刷新，如果是K线图，自动刷新图片，然后在服务器端自动生成最新的图片；或者用ActiveX
例程:
test.htm
<html>
<title>test</title>
<head>
<script language="vbscript">
Function bytes2BSTR(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
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
</script>
<script language="JavaScript">
function getData(stockcode)
{
var oBao = new ActiveXObject("Microsoft.XMLHTTP");
oBao.open("POST","st.asp?code="+stockcode,false); //这里的st.asp是例程二，如果你有自己的股票信息，你可以直接调用自己的。
oBao.send();
sdata = bytes2BSTR(oBao.ResponseBody);
return sdata;
}
function UTCTime(){
dis.innerHTML=(getData('000718'));
setTimeout("UTCTime()", 30000); //这里的30000是指5分钟，每1000为1秒钟
}
</script>
</head>
<body onLoad="UTCTime()" >
<span id="dis"></span>
</body>
</html>
例程二，该例程是从www.stockstar.com获取最新的股票信息，对于反回的结果，你可以根据具体情况通过字符串处理来做到。
如果你自己有最新股票信息，那你可以不用st.asp
st.asp
<%
code=request.querystring("code")
if code="" then code="000000"
function getData(stockcode)
set oBao = server.createObject("Microsoft.XMLHTTP")
oBao.open "GET","http://quote.stockstar.com/stock/external_dealp.asp?code=szag"&stockcode,false
oBao.send()
sdata = bin2str(oBao.ResponseBody)
set oBao=nothing
getData=sdata
end function
function bin2str(bin)
dim tmp,ustr
tmp=""
for i=1 to LenB(bin)-1
ustr=AscB(MidB(bin,i,1))
if ustr>127 then
i=i+1
tmp=tmp&chr(ustr*256+AscB(MidB(bin,i,1)))
else
tmp=tmp&chr(ustr)
end if
next
bin2str=tmp
end function
strStock=mid(getData(code),12000)
strStock=mid(strStock,instr(strStock,"·Ö¼Û±í"))
strStock=mid(strStock,795)
strStock=left(strStock,instr(strStock,"</table>")+7)
response.write strStock
%>