上传非图片格式的附件时，无法保存，导致进程无法走完，网页空白
'保存附件
For Each key As String In e.Files.Keys
If key = "up1" Then
For Each fln As String In e.Files(key)
Dim s As String=fln
s=s.substring(s.LastIndexOf("."))
Dim s2 As String =Guid.NewGuid().ToString().replace("-","")
s= s2 & s
e.SaveFile(key, fln, ProjectPath & "web\upload\work\" & s)
Dim dr2 As DataRow = DataTables("C_PYH_WORK_FILES").SQLAddNew()
dr2("FILES_SAVENAME") = s
dr2("FILES_NAME") = fln
dr2("file_id")=Guid.NewGuid().ToString().replace("-","")
dr2("Work_id")=workid
dr2("CREATE_TIME")=now.Tostring.replace("-","").replace(" ","").replace(":","")
dr2("UPDATE_TIME")=now.Tostring.replace("-","").replace(" ","").replace(":","")
dr2("IS_ACTIVE")="1"
If openid>"" Then
dr2("creator")=fdp("person_id")
Else
dr2("creator")="test"
End If
dr2.save()
Next
End If
Next
加好友 
发短信
Post By：2017/9/13 10:56:00 [显示全部帖子]
