在ASP.NET中实现POST发送数据

来源：互联网发布：java面试宝典2017版pdf 编辑：程序博客网时间：2024/05/19 13:15

下面的代码实现了与以前XMLHTTP类似的功能。代码如下：

  HttpSendData.ASPx

  <%@ Page language="<a href="http://dev.21tx.com/dotnet/csharp/" target="_blank">C#</a>"%>
  <%@ Import Namespace = "System"%>
  <%@ Import Namespace = "System.Collections"%>
  <%@ Import Namespace = "System.<a href="http://dev.21tx.com/web/" target="_blank">Web</a>"%>
  <%@ Import Namespace = "System.Web.UI"%>
  <%@ Import Namespace = "System.Web.UI.<a href="http://dev.21tx.com/dotnet/aspnet/webcontrols/" target="_blank">WebControls</a>"%>
  <%@ Import Namespace = "System<a href="http://dev.21tx.com/dotnet/" target="_blank">.net</a>"%>
  <%@ Import Namespace = "System.IO"%>
  <%@ Import Namespace = "System.Text"%>

  <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
  <HTML>
  <HEAD>
  <script runat="server">
   void Button1_Click(object sender, System.EventArgs e)
   {
   string strTitle = TextBox1.Text;
   string strDesc = TextBox2.Text;

   Encoding encoding = Encoding.GetEncoding("GB2312");

   string postData = "Title=" + strTitle;
   string strUrl = "http://<a href="http://dev.21tx.com/web/xml/" target="_blank">XML</a>.sz.luohuedu.net/HttpReceiveData.aspx";
   postData += ("&Desc=" + strDesc);
   byte[] data = encoding.GetBytes(postData);

   // 准备请求...
   HttpWebRequest myRequest = (HttpWebRequest)WebRequest.Create(strUrl);
   myRequest.Method = "POST";
   myRequest.ContentType="application/x-www-form-urlencoded";
   myRequest.ContentLength = data.Length;
   Stream newStream=myRequest.GetRequestStream();
   // 发送数据
   newStream.Write(data,0,data.Length);
   newStream.Close();
   Response.Redirect("HttpSendData.aspx");
   }
  </script>
  </HEAD>
  <body>
   <form id="HTTPPost" method="post" runat="server">
   标题：<asp:TextBox id="TextBox1" runat="server"></asp:TextBox>
   <br>
   内容：
   <br>
   <asp:TextBox id="TextBox2" runat="server" TextMode="MultiLine" Rows="10" Columns="100"></asp:TextBox>
   <br>
   <asp:Button id="Button1" runat="server" Text=" 发送 " onclick="Button1_Click"></asp:Button>
   </form>
  </body>
  </HTML>

  HttpReceiveData.aspx

  <%@ Page Language="vb"%>
  <%@ import Namespace = "System" %>
  <%@ import Namespace = "System.Web.UI" %>
  <%@ import Namespace = "System.Web" %>
  <script runat="server">
  Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
   If Request.ServerVariables("REQUEST_METHOD").ToString() = "POST" Then
   Dim connstr As String
   connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("Test.mdb")
   Dim cn As New System.Data.OleDb.OleDbConnection(connstr)
   Dim strSQL As String = "INSERT INTO TestTable (Title,Description) VALUES('" _
   + Request.Form("Title").ToString() + "','" + Request.Form("Desc").ToString() + "')"
   cn.Open()
   Dim cmd As New System.Data.OleDb.OleDbCommand(strSQL, cn)
   cmd.ExecuteNonQuery()
   cn.Close()
   cn.Dispose()
   cmd.Dispose()
   End If
  End Sub
  </script>