ASP小偷程序的POST問題

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)

%>