我想要做的是让我的用户输入电话号码和消息,然后将其发布到发送消息的文本营销人员.
此刻,如果我使用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()