URL = "網址"
                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
%>