Foxtable(狐表)用户栏目专家坐堂 → 输入密码打开网页


  共有6043人关注过本帖树形打印复制链接

主题:输入密码打开网页

帅哥哟,离线,有人找我吗?
qazlinle6
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1523 积分:10315 威望:0 精华:0 注册:2013/6/8 16:19:00
输入密码打开网页  发帖心情 Post By:2022/7/19 19:28:00 [显示全部帖子]

                        a主页2 = "<li ><a href='销进退账目.htm' target='iframe'><i style=' font-size:15px;'class=""fab fa-sketch"" ></i> &nbsp;&nbsp;收银台余额 </a></li>"

网页上可不可以用下面输入密码打开href='销进退账目.htm'

Dim Val As String ="868686"
Dim s As String
If InputValue(s,"密码!","请输入密码:") Then
    If s = Val Then        
Forms("收银台余额营业款").Open()
    Else
        MessageBox.Show("你输入的密码不对!")
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1523 积分:10315 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/7/19 20:46:00 [显示全部帖子]

With wb.AddDialog("","dlg1", "提示","<input  type='password' name='password' id='password'> </input>")
          
Dim Val As String ="868686"
  If ????? = Val Then     
  .AddButton("btnOK","确定","网页.htm")
End If
        End With

这样??????


 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1523 积分:10315 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/7/19 21:18:00 [显示全部帖子]

If ????? = Val Then 


什么得的到密码name='password'

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1523 积分:10315 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/7/19 22:42:00 [显示全部帖子]

可以帮大概弄一下代码不

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1523 积分:10315 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/7/20 10:05:00 [显示全部帖子]

function check() {
var text2 = document.getElementById('密码').value;
var text3 = 868686;
 if(text2  == text3 ){
         location="销进退账目.htm";   target='iframe' 这个什么加这里面
    }
    else{
        alert('密码错误');
    }
}


 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1523 积分:10315 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/7/20 14:18:00 [显示全部帖子]

js 
function check() {
var text2 = document.getElementById('密码').value;
var text3 = 868686;
 if(text2  == text3 ){
window.top.iframe.location = "销进退账目.htm";
    }
    else{
;
    }
}
可以用下面这个不

With wb.AddButtonGroup("","bng2",True)
            .Add("btn1","Toast1").Attribute = """ '参数2000表示2秒后隐藏
            .Add("btn2","Toast2").Attribute = """
            .Add("btn3","Toast3").Attribute = """
        End With
        wb.AddToast("","t1",
"
操作完成",0)
       
wb.AddToast("","t2", "正在加载",1)
        wb.AddToast("","t3", "操作完成",0).Icon= "success"

 回到顶部