专家坐堂-移动开发图片显示大图片Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim e As RequestEventArgs = args(0)

Select Case e.Path

Case "yangpin.htm"

Dim wb As New weui

wb.AddForm("","form1","yangpin.htm")

With wb.AddInputGroup("form1","ipg1","登录")

.AddInput("xm","产品名称","text")

.AddInput("pw","规格型号","text")

End With

With wb.AddInputGroup("form1","ipg22","产品图片") \'带图片浏览的文件上传

With .AddUploader("up2","图片",True) \'True表示允许一次上传多个文件

.AllowAdd = False \'关闭文件上传功能

.AddImage("http://www.664748.com:8080/0661457.jpg")

End With

e.WriteString(wb.Build) \'生成网页

End Select