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

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

HttpSendData.aspx

<%@ Page language="c#"%>

<%@ Import Namespace = "System"%>

<%@ Import Namespace = "System.Collections"%>

<%@ Import Namespace = "System.Web"%>

<%@ Import Namespace = "System.Web.UI"%>

<%@ Import Namespace = "System.Web.UI.WebControls"%>

<%@ Import Namespace = "System.Net"%>

<%@ 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://xml.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>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航