asp.net – 如何在.net vb中发送POST？

发布时间：2020-12-15 23:06:30 所属栏目：asp.Net 来源：网络整理

导读：我想要做的是让我的用户输入电话号码和消息,然后将其发布到发送消息的文本营销人员. 此刻,如果我使用response.redirect消息感… response.redirect("http://www.textmarketer.biz/gateway/?username=*****password=*****message=test+messageorig=testnumber

我想要做的是让我的用户输入电话号码和消息,然后将其发布到发送消息的文本营销人员.

此刻,如果我使用response.redirect消息感…

response.redirect("http://www.textmarketer.biz/gateway/?username=*****&password=*****&message=test+message&orig=test&number=447712345678")

但是,我不想将用户发送到那里.所有我想做的就是将数据发布到网址,这就是现在所有用户留在当前页面上.

有帮助吗？

解决方法

实际上,你不必做这个服务器端(vb),只是普通的html会做的伎俩：

<html>
    <body>
        <form action="http://google.com" method="post">
            <input type="hidden" value="somevalue"/>
            <input Type="submit" value="Submit"/>
        </form>
    </body>
</html>

这会将数据(实际上是重定向)发布到google.com.

也许你可以使用客户端脚本(jQuery) – $.ajax()或$.post().但我认为你将面临跨域限制(有一种解决方法,但它不是那么干净和直截了当).

另一个是使用HttpWebRequest类.这是服务器端,帖子将来自您的服务器而不是客户端(正如第一种方法所做的那样).在调用request.GetResponse()时,您可以从远程服务器检索输出并在页面上呈现它.但是如果你想发布并重定向到远程网址,那么我想你应该使用第一种方法.

编辑：

在VB中试试这个：

Option Infer On
Imports System.Net
Imports System.Text


Public Class Test

    Private Sub TESTRUN()
        Dim s As HttpWebRequest
        Dim enc As UTF8Encoding
        Dim postdata As String
        Dim postdatabytes As Byte()
        s = HttpWebRequest.Create("http://www.textmarketer.biz/gateway/")
        enc = New System.Text.UTF8Encoding()
        postdata = "username=*****&password=*****&message=test+message&orig=test&number=447712345678"
        postdatabytes = enc.GetBytes(postdata)
        s.Method = "POST"
        s.ContentType = "application/x-www-form-urlencoded"
        s.ContentLength = postdatabytes.Length

        Using stream = s.GetRequestStream()
            stream.Write(postdatabytes,postdatabytes.Length)
        End Using
        Dim result = s.GetResponse()
    End Sub
End Class

UPDATE2：

在VB.net中使用HttpWebRequest的GET请求.

Dim s As HttpWebRequest
Dim username = "username=" + HttpUtility.UrlEncode("yourusername")
Dim password = "password=" + HttpUtility.UrlEncode("yourp@assword)!==&@(*#)!@#(_")
Dim message = "message=" + HttpUtility.UrlEncode("yourmessage")
Dim orig = "orig=" + HttpUtility.UrlEncode("dunno what this is")
Dim num = "number=" + HttpUtility.UrlEncode("123456")
Dim sep = "&"
Dim sb As New StringBuilder()
sb.Append(username).Append(sep).Append(password).Append(sep)
sb.Append(message).Append(sep).Append(orig).Append(sep).Append(num)

s = HttpWebRequest.Create("http://www.textmarketer.biz/gateway/?" + sb.ToString())

s.Method = "GET"
Dim result = s.GetResponse()

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!