Case "upload.htm"
wb.AddPageTitle("","xpsc","相片上传","近期正面规范证件照")
wb.AddForm("","form1","receive.htm")
With wb.AddInputGroup("form1","ipg1","")
With .AddUploader("up2","我的照片",False)
.AllowAdd = False
.TextPosition = 0
.AddImage("./images/" & e.cookies("username") & ".jpg")
End With
With .AddUploader("up1","最新照片",True)
.TextPosition = 0
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
.ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
End With
End With
With wb.AddButtonGroup("form1","btg1",False)
Dim btn1 =.Add("btn1", "确定", "button")
btn1.Attribute= "" '调用js函数上传
btn1.kind=1
Dim btn2 =.Add("btn2", "退出","","default.htm")
btn2.kind=1
btn2.Attribute = ""
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst2", "上传成功",0)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script src='./lib/ajx.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2017/9/20 17:16:00 [显示全部帖子]
