web数据源服务端保存未引用对象实例 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，web数据源服务端开启服务后，更几天自己会弹出多个，“未引用对象实例”的报错窗口。而且是天数越多，自动弹出的窗口越多。这是什么原因引起的？就是按照咱们帮助文件的实例三层架构中的服务端代码做的，很简单。

4、假定服务端建立的本地数据源的名称为"Orders"，现在将HttpRequest事件代码设置为：

Dim Verified As Boolean

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then

'实际开发的时候,请改为根据用户表验证身份

Dim username As String = e.PostValues("username")

Dim password As String = e.PostValues("password")

If username = "张三" AndAlso password = "888" Then

Verified = True

End If

If Verified = False Then

e.AppendCookie("Error","用户身份验证失败!") '通过Cookie返回错误信息.

Return

End If

Select Case e.Path

Case "DataServer.htm"

e.AsDataServer("Orders") '将一个本地数据源公开为Web数据源

End Select

就是一步一步按照帮助文档做的

老师服务端还是偶发性弹出“未引用对象实例”的报错窗口。而且是天数越多，自动弹出的窗口越多。

httprequest代码：

Dim Verified As Boolean

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then

'实际开发的时候,请改为根据用户表验证身份

Dim username As String = e.PostValues("username")

Dim password As String = e.PostValues("password")

If username = "张三" AndAlso password = "888" Then

Verified = True

End If

If Verified = False Then

e.AppendCookie("Error","用户身份验证失败!") '通过Cookie返回错误信息.

Return

End If

Select Case e.Path

Case "DataServer.htm"

e.AsDataServer("wbsy") '将一个本地数据源公开为Web数据源

End Select

AfterOpenProject代码：

HttpServer.Prefixes.Add("http://*:9808/")

HttpServer.WebPath = "c:\wbweb" '指定静态文件存储位置

HttpServer.Start()

开启服务按钮代码：

HttpServer.Prefixes.Add("http://*:9808/")

HttpServer.WebPath = "c:\wbweb" '指定静态文件存储位置

HttpServer.Start()

主题：web数据源服务端保存未引用对象实例