Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AddForm("","form1","dd.htm")
If e.PostValues.Count = 0 Then '如果是首次登陆
With wb.AddInputGroup("form1","ipg1","主題")
.AddInput("txt1","","Text")
End With
With wb.AddInputGroup("form1","ipg2","上传图片")
With .AddUploader("up128","照片",True)
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
.ScaleWidth = 1000 '自动压缩图片宽度为1000个像素,高度等比例压缩
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute= **** '调用js函数上传
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst2", "上传成功",0)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script src='./lib/tl_notice_2.js'></script>") '引入脚本文件
Else
Dim dr As DataRow = DataTables("管理公告").AddNew()
dr("主題") = e.PostValues("txt1")
For Each key As String In e.Files.Keys
For Each fl As String In e.Files(key)
Dim NewName As String = fl
Dim idx As Integer = fl.LastIndexOf(".")
Dim cnt As Integer = 1
Do While FileSys.FileExists("d:\web\uploadfiles\" & NewName) '判断文件夹是否存在同名文件
NewName = fl.Insert(idx,"(" & cnt & ")") '如果存在同名文件,在原文件名加上序号
cnt = cnt + 1 '递增序号
Loop
e.SaveFile(key,fl,"d:\web\uploadfiles\" & NewName) '保存接收到的文件
dr.Lines("照片") = dr("照片") & e.Files(key) '-----> 请教：如果要在照片列记录所有照片名称，代码要怎么写？
Next
Next
dr.Save()
e.WriteString("OK")
End If
e.WriteString(wb.Build)
加好友 
发短信
Post By：2017/9/19 16:35:00 [只看该作者]
此主题相关图片如下：222.jpg