function PostRequest(url,data) { var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); xmlhttp.Open("POST",url,false); xmlhttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); xmlhttp.send(data); return xmlhttp.responseText; }
用WebRequest,send: Dim doc As XmlDocument = New XmlDocument doc.Load(Server.MapPath(".") & "\1.xml") Dim testpost As HttpWebRequest = WebRequest.Create("http://localhost/WebApplication1/WebForm1.aspx") testpost.ContentType = "text/xml" Dim encoding As Encoding = encoding.GetEncoding("GB2312") Dim data As Byte() = encoding.GetBytes(doc.InnerXml) testpost.ContentLength = data.Length testpost.Method = "POST" Dim newStream As Stream = testpost.GetRequestStream() newStream.Write(data, 0, data.Length) newStream.Close()receive: Dim sr As StreamReader = New StreamReader(R Dim read As Char() ReDim read(Request.InputStream.Length) sr.Read(read, 0, Request.InputStream.Length Dim sReceive As String = New String(read)
receive: Dim sr As StreamReader = New StreamReader(Request.InputStream) Dim read As Char() ReDim read(Request.InputStream.Length) sr.Read(read, 0, Request.InputStream.Length) Dim sReceive As String = New String(read)
直接用ajax吧
{
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.Open("POST",url,false);
xmlhttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
xmlhttp.send(data);
return xmlhttp.responseText;
}
Dim doc As XmlDocument = New XmlDocument
doc.Load(Server.MapPath(".") & "\1.xml")
Dim testpost As HttpWebRequest = WebRequest.Create("http://localhost/WebApplication1/WebForm1.aspx")
testpost.ContentType = "text/xml"
Dim encoding As Encoding = encoding.GetEncoding("GB2312")
Dim data As Byte() = encoding.GetBytes(doc.InnerXml)
testpost.ContentLength = data.Length
testpost.Method = "POST"
Dim newStream As Stream = testpost.GetRequestStream()
newStream.Write(data, 0, data.Length)
newStream.Close()receive:
Dim sr As StreamReader = New StreamReader(R
Dim read As Char()
ReDim read(Request.InputStream.Length)
sr.Read(read, 0, Request.InputStream.Length
Dim sReceive As String = New String(read)
Dim sr As StreamReader = New StreamReader(Request.InputStream)
Dim read As Char()
ReDim read(Request.InputStream.Length)
sr.Read(read, 0, Request.InputStream.Length)
Dim sReceive As String = New String(read)
HttpWebResponse response=null;
Stream stream=null;
StreamReader reader=null;
DataSet ds=null;
try
{
request=(HttpWebRequest)WebRequest.Create(url);
response=(HttpWebResponse)request.GetResponse();
stream=response.GetResponseStream();
reader=new StreamReader(stream,System.Text.Encoding.Default);
ds=new DataSet();
ds.ReadXml(reader);
stream.Close();
}