入域的合法性 If Trim(poFile.FileName) = "" Then Return "" Else If poFile.ContentLength = 0 Then '文件不合法或者文件不正确,无法上传 Return "InValid" Else '根据用户选择的文件名生成新的服务器文件名称 '不上传文件 cjlwxy 2005-10-12 '++++++++++++++++++++++++++++++++++++++++++++++++ psPath : 上传虚拟引用路径,如:Pictures Failure:上传文件失败,捕获异常 空:不上传文件 其它:上传文件成功 '返回:InValid:上传文件无效
sFileName = poFile.FileName() Dim nBackSlash As Integer nBackSlash = sFileName.LastIndexOf(".") If nBackSlash <> -1 Then '取文件名后缀 **t = sFileName.Substring(nBackSlash) '以所经过的毫秒数为文件名 sFileName = Now.Ticks.ToString &; **t End If '获取唯一文件名 sPath =
System.Web.HttpContext.Current.Server.MapPath(psPath) sFileName = GetUniqueFileName(sPath, sFileName) '上传文件 Try poFile.SaveAs(sPath &; "\" &; sFileName) Return sFileName Catch oException As Exception Throw oException Return "Failure" End Try End If End If End Function '++++++++++++++++++++++++++++++++++++++++++++++++ +++++++ '名称:GetUniqueFileName '说明:获取上传文件的唯一名 '参数:poFile : 上传文件名 ' ' ' +++++++ Public Shared Function GetUniqueFileName(ByVal psPath As String, ByVal psFileName As String) As String Dim sFile As String '文件名 Dim **t As String '扩展名 Dim n As Integer = 1 Dim nLastDot As Integer sFile = psFileName nLastDot = sFile.LastIndexOf(".") cjlwxy 2005-10-12 '++++++++++++++++++++++++++++++++++++++++++++++++ psPath : 上传实际路径 '返回:唯一文件名(String)
If nLastDot = -1 Then **t = "" Else **t = sFile.Substring(nLastDot) sFile = sFile.Substring(0, nLastDot) End If