显示照片菜单按键的click代码：
With wb.AddActionSheet("","menu") '设计菜单
.Add("mnuphoto", "显示照片").Attribute = "o n c lick = 'getcaidan()'"
.Add("mnuCancel","取消","",True)
End With
接收数据网页：
Case "ppp3.htm" '首页
Dim str As String = e.GetValues("tp")
msgbox(str)
With wb.AddInputGroup("","ipg1","照片")
With .AddUploader("up1","照片",False) '只允许上传1张照片
.AllowAdd = False '关闭文件上传功能
.AddImage("./images/caidan/"& str &".jpg")
End With
End With
e.WriteString(wb.Build) '生成网页
JS代码：
function getcaidan(){
var str = table1.rows[table1.rowSel].cells[1].innerHTML
window.location.href = "ppp3.htm?tp=" + str
}
加好友 
发短信
Post By：2017/5/27 17:55:00 [显示全部帖子]
