1

我试图发布这些变量抛出了一个引擎,它会给出一个响应,但是在 VStudio 上本地测试它时一切正常。当我将它上传到服务器上时,不会处理发布请求。

Dim webStream As Stream
Dim s As HttpWebRequest`enter code here`
Dim res As HttpWebResponse
Dim webResponse = ""
Dim enc As UTF8Encoding
Dim postdata As String
Dim postdatabytes As Byte()

s = HttpWebRequest.Create("http://private.pin-pay.com:3902/")
enc = New System.Text.UTF8Encoding()
postdata = "PN=961" & ddlPhone.SelectedValue & txtMobilePhone.Text & "&TI=" & TransactionID.Text
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
res = s.GetResponse()

webStream = res.GetResponseStream()
Dim webStreamReader As New StreamReader(webStream)
While webStreamReader.Peek >= 0
    webResponse = webStreamReader.ReadToEnd()
End While
4

0 回答 0