Dim fl As String = "d:\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
Dim xm As String
If e.Cookies.ContainsKey("xm") '如果存在名为count的Cookie
xm = e.Cookies("xm") '从cookie中获取用户名
End If
Select Case e.Path
Case "upload.htm"
wb.AddForm("","form1","receive.htm")
With wb.AddRadioGroup("form1","wz","上传选择")
.Add("保税仓","保税仓",True)
.Add("普通仓","普通仓") '默认勾选
End With
With wb.AddInputGroup("form1","ipg1","永得利照片上传")
With .AddInput("xm","上传人","text")
.Value = xm
End With
With .AddUploader("up128","注意:只能传照片",True)
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
.ScaleWidth = 800 '自动压缩图片宽度为800个像素,高度等比例压缩
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/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
Case "receive.htm"
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)
e.SaveFile(key,fln,"d:\web\uploadfiles\" & e.PostValues("wz") &"\"& fln) '保存接收到的文件
Next
Next
e.WriteString("OK")
If e.PostValues("xm") <> "" Then
wb.AppendCookie("xm",e.PostValues("xm")) '将用户名和密码写入cookie
e.WriteString(wb.Build) '生成网页
Return '必须的
Else e.WriteString(wb.build)
End If
End Select
加好友 
发短信
Post By：2017/6/22 17:38:00 [只看该作者]
