以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  调用手机拨打电话  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114962)
--  作者：有点蓝
--  发布时间：2018/2/26 23:17:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=106829
--  作者：有点甜
--  发布时间：2018/2/27 9:50:00
--  
With .Body.AddRow(r("日期"),r("报备人"),r("推荐人"),r("返利"),r("用户姓名"),r("用户电话"),r("楼盘"),r("单元房号"),r("风格偏好"),r("备注"))
 
改成
 
With .Body.AddRow(r("日期"),r("报备人"),r("推荐人"),r("返利"),r("用户姓名"),"<a href=\'tel:" & r("用户电话") & "\'>" & r("用户电话") & "</a>",r("楼盘"),r("单元房号"),r("风格偏好"),r("备注"))
[此贴子已经被作者于2018/2/27 9:50:32编辑过]
--  作者：有点甜
--  发布时间：2018/3/25 16:55:00
--  

打电话，参考

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        With wb.AddPreview("","pv1","付款金额","￥2400")
            .AddItem("项目1","内容1")
            .AddItem("项目2","<a href=\'tel:" & 10086 & "\'>" & 10086 & "</a>")
            .AddItem("项目3", "电动打蛋机")
            .Addbutton("操作", "", 1, "onclick=""location=\'tel:10086\'""")
       End With
        wb.AppendHTML("<br/>")
        e.WriteString(wb.Build) \'生成网页
End Select

 

累计数量，必须使用ajax累计，参考 http://www.foxtable.com/mobilehelp/scr/0108.htm

 

http://www.foxtable.com/mobilehelp/scr/0103.htm

 
--  作者：有点甜
--  发布时间：2018/3/26 9:06:00
--  

如果要用变量，参考

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        With wb.AddPreview("","pv1","付款金额","￥2400")
            .AddItem("项目1","内容1")
            .AddItem("项目2","<a href=\'tel:" & dr("电话") & "\'>" & dr("电话") & "</a>")
            .AddItem("项目3", "电动打蛋机")
            .Addbutton("操作", "", 1, "onclick=""location=\'tel:" & dr("电话") & "\'""")
       End With
        wb.AppendHTML("<br/>")
        e.WriteString(wb.Build) \'生成网页
End Select