- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如果的代码如何写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120894)
-- 发布时间：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实现上面的功能，代码如何写？
-- 发布时间：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;
}
}
-- 发布时间：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编辑过]
-- 发布时间：2018/6/25 22:27:00
--
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
-- 发布时间：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>") \'引入脚本文件 |
-- 发布时间：2018/6/25 22:37:00
--
原来怎么调用，现在就怎么调用
-- 发布时间：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)的代码如何写？
-- 发布时间：2018/6/26 9:18:00
--
你js那里，加入多个alert，看能否弹出，弹出到哪里出错？
-- 发布时间：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
-- 发布时间：2018/6/26 10:02:00
--
这是js文件的位置
此主题相关图片如下：无标题.png