Dim fl As String = "c:\web\" & e.path
'MessageBox.Show("通用路径为：" & fl)
'Dim fl As String = "c:\ftp\" & 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
Case "upload.htm"
Dim wb As New weui
wb.AddForm("", "form1", "receive.htm")
With wb.AddInputGroup("form1", "ipg1", "文件上传")
With.AddUploader("up128", "照片", True)
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
End With
End With
With wb.AddButtonGroup("form1", "btg1", True)
.Add("btn1", "确定", "button").Attribute = "" '调用js函数上传
' MessageBox.Show("开始提交")
End With
' MessageBox.Show("开始提交")
wb.AddToast("", "tst1", "正在上传", 1)
wb.AddToast("", "tst2", "上传成功", 1)
wb.AddToast("", "tst3", "上传失败", 0).Icon = "warn"
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
Case "receive.htm"
' MessageBox.Show(e.Files.Keys)
MessageBox.Show("收到图片" & e.Files.Keys.count & "张！")
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)
e.SaveFile(key, fln, "C:\web\uploadfiles\" & fln) '保存接收到的文件
Next
Next
e.WriteString("上传成功！")
加好友 
发短信
Post By：2022/6/14 13:36:00 [显示全部帖子]
