POST problema del programa ladrón ASP

<%

dim Http

set Http=server.createobject("MSXML2.XMLHTTP")

str = "query= Enviar&SmallStockSearch1:txtCode=&SmallStockSearch1:txtFDate=&SmallStockSearch1:txtEDate=&SmallStockSearch1:rChooseClass=1"

'str son los datos POST, que requieren que se consulte y envíe el contenido del formulario. Solo escribí los parámetros Aquí, y no hay Asignar valores a los parámetros. Puede asignar valores según sea necesario. Para obtener más información, consulte el contenido del formulario en la página original.

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 p>

respuesta.Escribir(tempstr)

%>