If key.Contains("imgs_") Then
MessageBox.Show(1)
Dim wjm As String = rand.NextString(10)
Dim bs As Byte() = Convert.FromBase64String(e.PostValues(key).split(",")(1))
Dim stream As System.IO.Stream = New System.IO.MemoryStream(bs)
MessageBox.Show(2)
Dim bmp As System.Drawing.Bitmap = New System.Drawing.Bitmap(stream)
MessageBox.Show(21)
bmp.Save(ProjectPath & "web/商品原图/" & key & ".jpg", System.Drawing.Imaging.ImageFormat.Png) ‘这段代码报错,显示“调用的目标发生了异常。GDI+中发生一般性错误”
MessageBox.Show(22)
FileSys.RenameFile(ProjectPath & "web/商品原图/" & key & ".jpg", wjm & ".jpg")
MessageBox.Show(3)
Dim newname = wjm & ".jpg"
Files = Files & IIF(Files > "" , vbcrlf, "") & newName
FileSys.CopyFile(ProjectPath & "web\商品原图\" & newname,ProjectPath & "web\商品大图\" & newname,True)
MessageBox.Show(4)
Dim file As String = ProjectPath & "web\商品大图\" & newName
Dim img As image = getImage(file)
Dim bmp1 = new bitmap(img, 300, 700)
MessageBox.Show(5)
bmp1.save(ProjectPath & "web\商品大图\" & newname)
bmp1.Dispose
FileSys.CopyFile(ProjectPath & "web\商品原图\" & newname,ProjectPath & "web\商品缩略图\" & newname,True)
MessageBox.Show(6)
file = ProjectPath & "web\商品缩略图\" & newName
img = getImage(file)
bmp1 = new bitmap(img, 300, 700)
MessageBox.Show(7)
bmp1.save(ProjectPath & "web\商品大图\" & newname)
bmp1.Dispose
End If