| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于填入用户名 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138228) |
| -- 作者：ygg8310 -- 发布时间：2019/7/25 19:34:00 -- 关于填入用户名 .AddSelect("用户名","用户名","e.Cookies("username")") 这是错在哪里呢？
|
| -- 作者：有点蓝 -- 发布时间：2019/7/26 9:00:00 -- .AddSelect("用户名","用户名",e.Cookies("username")) |
| -- 作者：ygg8310 -- 发布时间：2019/7/26 12:24:00 -- 没反应，用户名那一列还是空白 |
| -- 作者：ygg8310 -- 发布时间：2019/7/26 13:30:00 -- wb.DeleteCookie("password") wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'然后直接跳转到登录页面 Case
"addnew.htm" If e.PostValues.Count =
0
Thenwb.AddForm("","form1","addnew.htm") With wb.AddInputGroup("form1","ipg1","客户资料") .AddInput("姓名","姓名","Text") \'前一个"姓名"是ID,后一个"姓名"是标题 .AddInput("年龄","年龄","number") .AddSelect("用户名","用户名",e.Cookies("username")) .AddInput("日期","日期","date") End With With wb.AddCheckGroup("form1","偏好","品牌偏好") .Add("苹果","苹果") .Add("华为","华为") .Add("三星","三星") End With With wb.AddButtonGroup("form1","btg1",True) .Add("btn1", "确定", "submit") End With e.WriteString(wb.Build) Else Dim nms() As String = {"姓名","年龄","日期","级别"} \'不能为空的列名数组 For Each nm As String In nms If e.PostValues.ContainsKey(nm) = False Then \'生成错误提示页 With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!") .icon = "Warn" \'改变图标 .AddButton("btn1","返回").Attribute = "" End With e.WriteString(wb.Build) Return \'必须返回 End If Next nms = New String() {"姓名","年龄","日期","级别","停权","学历"} \'重新定义了nms数组,增加了两列. Dim dr As DataRow = DataTables("员工").AddNew() For Each nm As String In nms If e.PostValues.ContainsKey(nm) Then dr(nm) = e.PostValues(nm) End If Next \'以下代码处理品牌复选列表项 Dim pp As String nms = New String() {"苹果","华为","三星"} \'将nms重新定义为品牌数组 For Each nm As String In nms If e.PostValues.ContainsKey(nm) AndAlso e.PostValues(nm).Trim() = "on" Then \'不能省略Trim pp = pp & nm & "," End If 这样也不行，
|
| -- 作者：有点蓝 -- 发布时间：2019/7/26 14:06:00 -- 说明这个cookie本身就没有值 其次这个只是设置下拉列表，不是赋值，认真看看帮助：http://www.foxtable.com/mobilehelp/topics/0048.htm .AddSelect("用户名","用户名","[" & e.Cookies("username") & "]") 如果cookie只有一个人的名称，请使用文本输入框，没有必要使用列表输入框
|
| -- 作者：ygg8310 -- 发布时间：2019/7/26 14:46:00 -- 那老师有没有什么方案实现像C/S的 e.DataRow("录入人") = User.Name 我想让表记录是谁修改或编辑的该内容 |
| -- 作者：ygg8310 -- 发布时间：2019/7/26 15:04:00 -- hc.sCookies.Add("username","张三") 这段代码能够套进去？又该如何修改才能正常工作？ |
| -- 作者：有点蓝 -- 发布时间：2019/7/26 15:44:00 -- 在登录的时候有没有保存cookie呀 If Verified AndAlso e.Path = "logon.htm" Then \'如果用户访问的是登录页,且身份验证成功
wb.AppendCookie("username",UserName) \'将用户名和密码写入cookie wb.AppendCookie("password",Password) wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'直接跳转到首页 e.WriteString(wb.Build) \'生成网页 Return \'必须的 ElseIf Verified = False AndAlso e.Path <> "logon.htm" Then \'如果用户身份验证失败,且访问的不是登录页面 wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'那么直接跳转到登录页面 e.WriteString(wb.Build) \'生成网页 Return \'必须的 End If |
| -- 作者：有点蓝 -- 发布时间：2019/7/26 15:48:00 -- 如果要在表里记录用户名，在保存的时候赋值即可，没有必要发到前端呀 dr("用户名") = e.Cookies("username")
|
| -- 作者：ygg8310 -- 发布时间：2019/7/26 16:22:00 -- 请问一下老师还有一个问题，不知如何克服，我那用户名是张三，但数据保存时因为用户名加密变成了dCO7fLiTGmo=，如何将dCO7fLiTGmo=又变成张三？ [此贴子已经被作者于2019/7/26 16:35:46编辑过]
|