以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎样手机用户登录不同的地址可以带入不同的用户名  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149355)

--  作者:dahaiforever
--  发布时间:2020/4/29 15:58:00
--  [求助]怎样手机用户登录不同的地址可以带入不同的用户名



能够实现,自动带入张三


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20200429162522.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/4/29 16:27:09编辑过]

--  作者:有点蓝
--  发布时间:2020/4/29 16:22:00
--  
怎么试的写了什么代码?发上来看看


可以参考这里的登录判断:http://www.foxtable.com/webhelp/topics/2969.htm

--  作者:dahaiforever
--  发布时间:2020/4/29 16:28:00
--  
谢谢老师,已经解决。现在我想实现如上功能
--  作者:有点蓝
--  发布时间:2020/4/29 16:49:00
--  
\'开始生成网页
Select
 Case e.path
    
Case "logon.htm" \'登录页面
        wb.AddPageTitle("","pageheader","销售系统","由湛江辉迅基于Foxtable开发")
        If e.PostValues.ContainsKey("username"AndAlso e.PostValues.ContainsKey("password")  Then \'判断是否是验证失败后的重新登录
            wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 \'如果用户通过登录按钮访问,则给用户一个2秒的提示.
        
End If
        wb.AddForm("","form1","logon.htm")
        With wb.AddInputGroup("form1","ipg1")
            .AddInput("username",
"
户名","text").value = "张三"
            .AddInput("password",
"
密码","password")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1"
"
登录""submit")
        End With

--  作者:dahaiforever
--  发布时间:2020/4/29 22:05:00
--  [求助]
抱歉老师,我没有描述清楚。我是想用地址里的 keyuser 等于一个变量。
然后用这个地址来区分登录人。

登录用户名上显示张三
登录用户名上显示李四

当登录人用指定地址登录,就不用输入自己的名字了,自动带入。
(我的网络地址写的可能不对,还请老师多多指正)




[此贴子已经被作者于2020/4/29 22:06:54编辑过]

--  作者:有点蓝
--  发布时间:2020/4/30 9:55:00
--  
Select Case e.path
    
Case "logon.htm" \'登录页面
        wb.AddPageTitle("","pageheader","销售系统","由湛江辉迅基于Foxtable开发")
        If e.PostValues.ContainsKey("username"AndAlso e.PostValues.ContainsKey("password")  Then \'判断是否是验证失败后的重新登录
            wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 \'如果用户通过登录按钮访问,则给用户一个2秒的提示.
        
End If
        wb.AddForm("","form1","logon.htm")
        With wb.AddInputGroup("form1","ipg1")
           With  .AddInput("username",
"
户名","text")
if e.GetValues.containskey("keyuser")
.value = e.GetValues("keyuser")
end if
End With
            .AddInput("password",
"
密码","password")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1"
"
登录""submit")
        End With

--  作者:dahaiforever
--  发布时间:2020/4/30 10:51:00
--  
OMG,问题已解决。大神在上,小弟膜拜。