| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 手机端取值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170275) |
| -- 作者：qazlinle6 -- 发布时间：2021/7/20 10:22:00 -- 手机端取值 .AddSelect("product","姓名","PD01|PD02|PD03|PD04|PD05") 什么改成当前用户的姓名和用户分组，从数据 Users里提取 |
| -- 作者：有点蓝 -- 发布时间：2021/7/20 10:27:00 -- 网页开发，建议自己做用户管理，不要使用内置的用户功能，麻烦 |
| -- 作者：qazlinle6 -- 发布时间：2021/7/20 10:30:00 -- 是自己做的用户管理不是狐表自带的 |
| -- 作者：有点蓝 -- 发布时间：2021/7/20 10:31:00 -- 用户表是怎么样的？怎么做的登录功能？ |
| -- 作者：qazlinle6 -- 发布时间：2021/7/20 10:34:00 -- Dim wb As New weui \'身份验证 Dim Verified As Boolean \'用于标记用户是否通过了身份验证 Dim UserName As String = e.Cookies("username") \'从cookie中获取用户名 Dim Password As String = e.Cookies("password") \'从cookie中获取用户密码 If e.Path = "logon.htm" \'如果是通过登录页面访问,从PostValues即可中提取用户名和密码 If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then UserName = e.PostValues("username") Password = e.PostValues("password") End If End If Dim ddr As DataRow= DataTables("Users").SQLFind("Name=\'"& UserName &"\' And Password=\'"& Password &"\' ") If ddr IsNot Nothing Verified = True End If 照着你们外部用户表做的
|
| -- 作者：qazlinle6 -- 发布时间：2021/7/20 10:36:00 -- 照着自定义用户与权限管理之二做的 |
| -- 作者：有点蓝 -- 发布时间：2021/7/20 10:40:00 -- 参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=146639&replyID=142276&skin=1 dim bh as string = e.Cookies("username") Dim bh2 As String = "[" & e.Cookies("username") & "]" Dim sl2 As String = "|" & DataTables("Users").SQLGetComboListString("Name") & "|" sl2 = sl2.replace(bh,bh2).TrimEnd("|") .AddSelect("product","姓名",sl2 ) |
| -- 作者：qazlinle6 -- 发布时间：2021/7/20 10:48:00 -- .AddSelect("product","年","2021|2022|2023|2024|2025") .AddSelect("product","月","01|02|03|04|05|06|07|08|09|10|11|12") 这个年月弄的可以选择，又可以才打开自动先显示本年本月 |
| -- 作者：有点蓝 -- 发布时间：2021/7/20 10:51:00 -- 参考7楼用法 |
| -- 作者：qazlinle6 -- 发布时间：2021/7/20 10:52:00 -- 改不来 |