主题：调用手机拨打电话

参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=106829

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("备注"))

打电话，参考

 

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

 

如果要用变量，参考

 

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