如何用asp+获取post的页面的数据

如何用asp+获取post的页面的数据
源代码网推荐我们前面讲过如何跨站去抓取别的服务器页面上的数据[/title],但是那种方法只适合那些没有限制访问只能是
源代码网推荐Post 的数据，比如我们下面的这个程序就是,我们举个最简单的例子:
源代码网推荐test.htm
源代码网推荐<form action="test.asp" method="post">
源代码网推荐<input type=submit value="提交">
源代码网推荐<input type=text name="txtName" value="豆腐制作，都是精品">
源代码网推荐</form>
源代码网推荐test.asp
源代码网推荐<%
源代码网推荐str1=request.FORM("txtName")
源代码网推荐response.write str1
源代码网推荐%>
源代码网推荐这样，当我们以Get 的方法访问http://localhost/test.asp?txtName=doufu 的时候，我们得到的是空值
源代码网推荐所以有的时候，我们必须模拟Post 的方法,我们知道在asp中aspHttp组件是可以实现这个功能的，我们现
源代码网推荐在已经到了asp+的时代，所以，豆腐 我决定采用asp+来尝试一下，幸运的是，我成功了
源代码网推荐下面我就把我的程序帖出来给大家看看
源代码网推荐<%@ Assembly Name="System.Net" %>
源代码网推荐<%@ Import Namespace="System.Net" %>
源代码网推荐<%@ Import Namespace="System.IO" %>
源代码网推荐<script language=vb runat=server>
源代码网推荐Sub getPage(url As String, payload as String)

Dim req As WebRequest
源代码网推荐Dim RequestStream As Stream
源代码网推荐req = WebRequestFactory.Create(url)
源代码网推荐req.Method = "POST"
源代码网推荐req.ContentType = "application/x-www-form-urlencoded"
源代码网推荐Dim SomeBytes() as Byte
源代码网推荐if payload <> Nothing

SomeBytes = System.Text.Encoding.default.GetBytes(payload)
源代码网推荐req.ContentLength = SomeBytes.Length

RequestStream = req.GetRequestStream()
源代码网推荐RequestStream.Write(SomeBytes, 0, SomeBytes.Length)
源代码网推荐RequestStream.Close()
源代码网推荐Else
源代码网推荐req.ContentLength = 0
源代码网推荐End if

Dim result As WebResponse
源代码网推荐Dim ReceiveStream As Stream
源代码网推荐result = req.GetResponse()
源代码网推荐ReceiveStream = result.GetResponseStream()
源代码网推荐Dim read(512) As Byte
源代码网推荐Dim bytes As Integer
源代码网推荐bytes = ReceiveStream.Read(read, 0, 512)
源代码网推荐Do while (bytes > 0)
源代码网推荐Response.Write(System.Text.Encoding.default.GetString(read, 0, bytes))
源代码网推荐bytes = ReceiveStream.Read(read, 0, 512)
源代码网推荐Loop
源代码网推荐End Sub

</script>
源代码网推荐<%
源代码网推荐getPage("http://gpsserver/study/test1.asp","txtName=豆腐制作，都是精品")
源代码网推荐%>
源代码网推荐我们看到，程序的输出就是我们的这个txtName的值，这就证明 我们的 模拟Post 的程序成功了！