例程:
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","/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
%>