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)
Dim file As String = "e:\web\images\uploadfiles\" & n
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
Next
dra.Lines("照片") = lst
加好友 
发短信
Post By：2021/8/15 20:21:00 [显示全部帖子]
