Question

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

目前如果我使用response.redirect消息感...

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

但是，我不想将用户发送到那里。所有我想要做的就是将数据发布到网址，现在一切都是这样，用户留在当前页面上。

任何帮助？

Answer 1

实际上，你不必做这个服务器端（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, 0, 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()

Answer 2

不要使用AJAX来执行此服务器端，而是使用客户端。

jQuery ajax库非常好。

Answer 3

你必须使用webrequest类。参考http://msdn.microsoft.com/en-us/library/debx8sh9.aspx

如何在.net vb中发送POST？

3 个答案: