' 同时使用基于Cookie和Cookie的Session
Private Cookies As System.Net.CookieContainer
Private webServiceUrl as Uri
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim proxy As New localhost.Service1()
Dim ret As Integer
' 设置proxy类的Cookie容器
If Cookies Is Nothing Then
Cookies = New System.Net.CookieContainer()
End If
proxy.CookieContainer = Cookies
' 设置proxy类的URL
If webServiceUrl Is Nothing Then
webServiceUrl = New Uri(proxy.Url)
Else
proxy.Url = webServiceUrl.AbsoluteUri
End If
Try
ret = proxy.IncrementSessionCounter()
Catch we As WebException
' 如果我们想检测HTTP状态码
' 那么就需要一个HttpWebResponse类的实例
If TypeOf we.Response Is HttpWebResponse Then
Dim HttpResponse As HttpWebResponse
HttpResponse = we.Response
If HttpResponse.StatusCode = HttpStatusCode.Found Then
' 这是一个“302 Found”响应，提示用户是否进行重定向
If MsgBox(String.Format(redirectPrompt, _
HttpResponse.Headers("Location")), _
MsgBoxStyle.YesNo) = _
MsgBoxResult.Yes Then
' 用户选择Yes，重新尝试新的URL
webServiceUrl = New Uri(webServiceUrl, _
HttpResponse.Headers("Location"))
Button1_Click(sender, e)
Return
End If
End If
End If
Throw we
End Try
Label1.Text = "Result: " & CStr(ret)
End Sub
现在ASP.net的Session工作正常了。在你的应用程序中，你可以根据情况自行决定是否提示用户重定向HTTP POST请求。举一个例子，如果你正在调用一个Web Service，你也许就不希望出现任何可见的对话框。
这样看来，要使ASP.net的Session完全正常地工作还真不是很容易。但是，应该意识到上面的代码所展示的原理在其他情况下一样的有用。例如，任何平台上的任何Web Service，只要它使用HTTP cookie，都需要一个cookie容器，类似地，也许有很多其他的原因导致当你向一个Web Service服务器发送请求时收到“302 Found”响应。在一个复杂的应用程序中调用Web Service时，可能有许多特殊的情形需要你去处理，cookie和重定向的问题就是两种这样的情形，你应该将之作为你的Web Service调用代码中最基本的部分。
结 论
在你调用Web方法的过程中，ASP.net对状态保持是非常有用的，你必须意识到，当你使用手边的浏览器界面测试你的Web Service时，你并没有面对客户端程序必须处理的问题。幸运的是，这些问题并不是很难解决。
