Dim fl As String =e.path
If fl.StartsWith("upload") And upLoadFilePath >"" Then
fl = upLoadFilePath & e.path
Else
fl = ProjectPath & "web\" & e.path
End If
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".jpeg",".gif",".bmp",".wmf",".js",".css" ,".html",".htm",".json",".svg",".ttf",".woff",".woff2",".eot",".ico",".map",".png"
e.WriteFile(fl)
Return '这里必须返回
Case ".zip",".rar",".txt",".doc",".docx",".xls",".xlsx",".pdf",".swf"
e.WriteFile(fl)
Dim t1 As TimeSpan = Date.Now - stt
Return '这里必须返回
End Select
End If
加好友 
发短信
Post By：2019/10/17 8:41:00 [显示全部帖子]
