1、在服务端项目的HttpRequest事件中设置代码:
Dim
Verified As
Boolean
If e.Cookies.ContainsKey("username") AndAlso
e.Cookies.ContainsKey("password") Then
'实际开发的时候,请改为根据用户表验证身份
Dim username As
String = e.Cookies("username")
Dim password As
String =
e.Cookies("password")
If username =
"张三"
AndAlso password = "888"
Then
Verified = True
End
If
End
If
If Verified = False
Then
e.AppendCookie("error","用户身份验证失败!") '通过Cookie返回错误信息.
Return
End
If
Select
Case e.Path
Case
"gettime.htm"
e.WriteString(Date.now)
End
Select
2、在客户端项目的命令窗口运行以下代码,可以获取服务器时间:
Dim
hc As New HttpClient("http://127.0.0.1/gettime.htm")
hc.sCookies.Add("username","张三")
hc.sCookies.Add("password","888")