想达到上传图片到e:\web\images\uploadfiles的同时产生缩略图e:\web\images\缩略图，
缩略图产生的代码不知道怎么加，麻烦老师帮我诊断一下
For Each key As String In e.Files.Keys
If key = "up3" Then
Dim lst As List(of String) = dra.Lines("照片")
For Each fln As String In e.Files(key)
Dim n As String = Format(Date.Now,"yyyyMMddHHmmssffff") & fln
e.SaveFile(key, fln, "e:\web\images\uploadfiles\" & n)
lst.Add(n)
Next
dra.Lines("照片") = lst
Dim file As String = fln
Dim img As image = getImage(file)
Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))
bmp.save("e:\web\images\缩略图\n")
bmp.Dispose
加好友 
发短信
Post By：2021/8/14 21:51:00 [只看该作者]
