dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
str = "query=Submit&SmallStockSearch1:txtCode=&SmallStockSearch1:txtFDate=&SmallStockSearch1:txtEDate=&SmallStockSearch1:rChooseClass=1"
'str為POST的數據，既要查詢的表單的內容提交，我這裏只寫了參數，並沒有給參數賦值，妳可以根據需要賦值。具體情況看原頁面的表單內容。
Http.open "POST","/main/marketdata/Catalog_1815.aspx",false
Http.setRequestHeader"Content-Length",Len(str)
Http.setRequestHeader"CONTENT-TYPE","application/x-www-form-urlencoded"
Http.send(str)
tempstr=Http.responseText
response.Write(tempstr)
%>