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
End With
e.WriteString(wb.Build) '生成网页
End Select
请老师帮忙看一下，图片要如何才能显示大一点的图片啊，不要缩略图？
[此贴子已经被作者于2017/4/17 14:04:15编辑过]
加好友 
发短信
Post By：2017/4/17 13:43:00 [只看该作者]
