在服务端建立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
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