.net 调用servelet 获取返回值

 

Imports System.Net
Imports System.IO

 ' PostDate 传入Post参数
    Private Function GetResponseString(ByVal PostDate As String) As String
        Dim servletURL As Uri = New Uri("http://oa.jianye.com.cn/accountservlet")

        Dim client As WebClient = New WebClient()
        client.Headers.Add("Content-type", "application/x-www-form-urlencoded")

        Dim postData() As Byte = Encoding.GetEncoding("gb2312").GetBytes("username=" + HttpUtility.UrlEncode(PostDate, Encoding.GetEncoding("gb2312")))
        ' 获取返回值
        Dim ReturnData() As Byte = client.UploadData(servletURL.ToString(), "POST", postData)
        ' 返回
        Return Encoding.UTF8.GetString(ReturnData)
    End Function