您的位置：首页 > 编程语言 > ASP

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

2008-05-03 17:29 337 查看

下面的代码实现了与以前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>

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航