latest updates
on 2nd Jan 2011
這是一個程式平台，提供你股市期貨的即時資訊平台，可以根據你的需求客製，或是讓你自己修改的平台，所
以歡迎你來參觀、使用。
....know more
on 2nd Jan 2011
我們有盤中即時更新(5分鐘換股一次)的選股系統，當然你若對選股系統的個股有操作上的疑問或特殊心得都可
以到我們論壇上的智慧選股操作策略研討區來研討發表你的看法。
....know more
<%
URL = "http://tw.stock.yahoo.com/"
Set objXMLHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
objXMLHTTP.Open "POST", URL , False
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.Send("stockid=.7000M&name=")
SourceCode = bytes2BSTR(objXMLHTTP.responseBody)
leftstr = instr(SourceCode,"")
SourceCode = mid(SourceCode,leftstr,instr(SourceCode,"")-leftstr+9)
Response.Write SourceCode
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.End
%>
