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
此主题相关图片如下：企业微信截图_20210811000509.png
客户端怎么组成动态用户和密码
eforeConnectOuterDataSource事件
在连接Web数据源之前，一样会触发BeforeConnectOuterDataSource事件，我们可以在这里动态合成连接字符串，合成字符串的时候，必须严格按照上述格式要求。
例如：
If e.Name = "Orders" Then
Dim sb As New StringBuilder
sb.AppendLine("http://127.0.0.1/DataServer.htm")
sb.AppendLine("-FormData-")
sb.AppendLine("UserName:张三")
sb.AppendLine("Password:888")
e.ConnectionString = sb.ToString()
End If
[此贴子已经被作者于2021/8/11 0:08:32编辑过]
加好友 
发短信
Post By：2021/8/11 0:04:00 [显示全部帖子]
