Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如果的代码如何写


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

主题：如果的代码如何写
帅哥哟，离线，有人找我吗？
lihe60
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00 		如果的代码如何写  发帖心情 Post By：2018/6/25 21:01:00 [只看该作者]

    wb.InsertHTML("<script>function scaned( t, r, f ) {if(r.indexOf('http') == 0 || r.indexOf('www') == 0){location='http://' + r.replace('http://', '');}else{document.getElementById('扫描结果').value=r;}}</script>")

上面的代码类似if else

如果写if elseif else实现上面的功能，代码如何写？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111401 积分：567075 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/25 21:12:00 [只看该作者]

建议使用js文件，代码分行，容易看，也容易理解

Function scaned( t, r, f ) {
    If(r.indexOf('http') == 0 || r.indexOf('www') == 0){
        location='http://' + r.replace('http://', '');
    }
    Else If(某某条件){
        document.getElementById('扫描结果').value=r;
    }
    Else{
        document.getElementById('扫描结果').value=r;
    }
}
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2018/6/25 22:19:00 [只看该作者]

js文件写好后，1楼的问题，下面代码要如何改？

   
     Dim wb As new weui
        wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)
        wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)
        
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","测试")
            .AddInput("姓名","姓名","Text")
            .AddInput("年龄","年龄","number")
        End With
        
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html',true,true);"""
        End With
        
    wb.InsertHTML("<script>function scaned( t, r, f ) {if(r.indexOf('http') == 0 || r.indexOf('www') == 0){location='http://' + r.replace('http://', '');}else{document.getElementById('扫描结果').value=r;}}</script>")
        e.WriteString(wb.Build)
[此贴子已经被作者于2018/6/25 22:23:24编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111401 积分：567075 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/25 22:27:00 [只看该作者]

 wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2018/6/25 22:35:00 [只看该作者]


   wb.InsertHTML("<script>function scaned( t, r, f ) {if(r.indexOf('http') == 0 || r.indexOf('www') == 0){location='http://' + r.replace('http://', '');}else{document.getElementById('扫描结果').value=r;}}</script>")

把上面的代码换成下面的代码，其他的代码不用改吗？如调用函数的代码不要写吗？

 wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111401 积分：567075 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/25 22:37:00 [只看该作者]

原来怎么调用，现在就怎么调用

 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2018/6/25 22:46:00 [只看该作者]

    wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)
    wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)
    
    wb.AddForm("","form1","scan1")
    With wb.AddInputGroup("form1","ipg1","扫描")
        .AddInput("扫描结果","扫描结果","Text")
    End With
    
    With wb.AddButtonGroup("form1","btg1",False)
        .Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html',true,true);"""
    End With
    wb.AppendHTML("<script src='./lib/scan1.js'></script>") '引入脚本文件
    'wb.InsertHTML("<script>function scaned( t, r, f ) {if(r.indexOf('http') == 0 || r.indexOf('www') == 0){location='http://' + r.replace('http://', '');}else{document.getElementById('扫描结果').value=r;}}</script>")
    e.WriteString(wb.Build)

这样改了不行的，扫描后没有任何反应。调用sccaned(t,r,f)的代码如何写？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/6/26 9:18:00 [只看该作者]

你js那里，加入多个alert，看能否弹出，弹出到哪里出错？

 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2018/6/26 9:56:00 [只看该作者]

以下是JS和代码，没有任何提示

function scaned( t, r, f ) {
alert(1)
    if(r.indexOf("http") == 0 || r.indexOf("www") == 0) {
        location=r
    }

alert(2)
    Else if(r.indexOf("http") == 0 {
        document.getElementById('扫描结果').value=r;
    }

alert(3)
    else
        {
        document.getElementById('扫描结果').value=r;
    }
}




Dim e As RequestEventArgs = args(0)
Dim path = args(1)
wb = new weui

If e.PostValues("扫描结果")=Nothing
    wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)
    wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)
    
    wb.AddForm("","form1","scan1")
    With wb.AddInputGroup("form1","ipg1","扫描")
        .AddInput("扫描结果","扫描结果","Text")
    End With
    
    With wb.AddButtonGroup("form1","btg1",False)
        .Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html',true,true);"""
    End With
    wb.AppendHTML("<script src='./lib/scan1.js'></script>") '引入脚本文件
    'wb.InsertHTML("<script>Function scaned( t, r, f ) {If(r.indexOf('http') == 0 || r.indexOf('www') == 0){location='http://' + r.replace('http://', '');}else{If(r.indexOf('zcbh-') == 0){location='./zcbh';}else{document.getElementById('扫描结果').value=r;}}</script>")
   ' wb.InsertHTML("<script>function scaned( t, r, f ) {if(r.indexOf('http') == 0 || r.indexOf('www') == 0){location='http://' + r.replace('http://', '');}else{document.getElementById('扫描结果').value=r;}}</script>")
    e.WriteString(wb.Build)
Else
    Dim r As Row=Tables("扫描").addnew()
    r("扫描")=e.PostValues("扫描结果")
    Tables("扫描").save()
    With wb.AddTable("","Table1")
        '  .CreateFromDataTable(DataTables("扫描"),True)
    End With
    e.WriteString(wb.Build)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2018/6/26 10:02:00 [只看该作者]

这是js文件的位置
图片点击可在新窗口打开查看此主题相关图片如下：无标题.png
图片点击可在新窗口打开查看
 回到顶部
总数 21 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 4 次数据查询