'''
'通用事件头,用于发送已经存在的常见文件
Dim fl As String = "e:\web\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
Dim wb As New WeUI '定义一个基于weui框架的网页生成器
Select Case e.Path
Case "test.htm"
If e.PostValues.Count = 0 Then
wb.AddForm("","表单1","test.htm")
With wb.AddInputGroup("表单1","输入框分组1","文件上传") '文件上传
.AddUploader("文件上传1","")
End With
With wb.AddInputGroup("表单1","输入框分组2","浏览式文件上传") '带图片浏览的文件上传
With .AddUploader("文件上传2","图片",True) 'True表示允许一次上传多个文件
.AllowAdd = False '关闭文件上传功能
.AddImage("./images/170940_20170502_111846s.jpg","./images/170940_20170502_111846.jpg")
.AddImage("./images/170940_20170531_155241s.jpg","./images/170940_20170531_155241.jpg")
.AddImage("./images/170940_20170629_112633s.jpg","./images/170940_20170629_112633.jpg")
.AddImage("./images/170940_20170724_152627s.jpg","./images/170940_20170724_152627.jpg")
End With
End With
With wb.AddButtonGroup("表单1","按钮分组1",True)
.Add("确定", "确定", "submit")
End With
Else
wb.InsertHTML("接收到的数据有:<br/>") '这个用于测试结果:很好
For Each key As String In e.PostValues.Keys
wb.InsertHTML(key & ":" & e.PostValues(key) & "<br/>")
Next
End If
End Select
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2017/12/21 16:44:00 [只看该作者]
