△上传在Web开发中,是非常普遍的一项任务...... 上传在Web开发中,是非常普遍的一项任务,以前用ASP的时候,一直用稻农的无组件上传工具,觉得很好用,现在学Asp.net了,却发现没有类似原来稻农的无组件上传程序,因此花了点时间,将稻农的无组件上传程序用vb.net改写了一下,可以编译成DLL,在C#或者Vb.net等任意asp.net支持的语言中使用,在共享出来,希望能为大家节约点时间,也欢迎提出意见和建议,让他更完善。 Option Explicit On Option Strict On Imports System.IO Imports System.Data Imports System.Web.UI.HtmlControls.HtmlInputControl Public Class UploadFile '--------------------------------------------------- '欢迎转载,但请保留以下声名 '说明:文件上传类 '创建时间:2004-11-18 '作者:刀尖客 QQ:51978456 -------------------------------------------------------- Private LocOrgFileName As String '原始文件名 Private LocNewFileName As String '新文件名 Private LocUploadDir As String = "" '保存目录 注意:要完整路径 Private LocAllowOverWrite As Boolean = False '如果保存文件已经存在,是否覆盖 Private LocAllowExtFile As String = "doc,jpg,gif,zip" '许可格式 Private LocAllowMaxSize As Integer = 3 * 1024 * 1024 '许可大小 Public ErrMsg As String '返回的错误提示 Public ReadOnly Property OrgFileName() As String Get Return LocOrgFileName End Get End Property Public Property NewFileName() As String Get Return LocNewFileName End Get Set(ByVal strValue As String) LocNewFileName = strValue End Set End Property Public Property UploadDir() As String Get Return LocUploadDir End Get Set(ByVal strValue As String) LocUploadDir = strValue End Set End Property Public Property AllowOverWrite() As Boolean Get Return LocAllowOverWrite End Get Set(ByVal blnValue As Boolean) LocAllowOverWrite = blnValue End Set End Property Public Property AllowMaxSize() As Integer Get Return LocAllowMaxSize End Get Set(ByVal intValue As Integer) LocAllowMaxSize = intValue End Set End Property Public Property AllowExtFile() As String Get Return LocAllowExtFile End Get Set(ByVal strValue As String) LocAllowExtFile = strValue End Set End Property '--------------------------------------------- '功能说明:上传文件到服务器 '参数:file 要上传的文件域 IsRandom 是否采用随机数文件名,如果为Flase,则采用文件原来的名称 '--------------------------------------------- Public Function Upload(ByRef file As System.Web.UI.HtmlControls.HtmlInputFile, Optional ByVal IsRandom As Boolean = True) As Boolean Dim objFile As file Dim oldFileName As String Dim strNewFileName As String Dim strExtName As String If file.PostedFile.ContentLength = 0 Then ErrMsg = "没有上传文件" Return False End If oldFileName = file.PostedFile.FileName strExtName = GetExtName(oldFileName) If IsRandom = True Then LocNewFileName = GetRandomFileName(oldFileName, strExtName) strNewFileName = LocNewFileName Else LocNewFileName = oldFileName strNewFileName = LocNewFileName End If If LocUploadDir <> "" Then If Directory.Exists(LocUploadDir) = False Then ErrMsg = "上传目录" & LocUploadDir & "不存在" Else If objFile.Exists(strNewFileName) And LocAllowOverWrite = False Then ErrMsg = "对不起,服务器上此文件已经存在!" Return False Else If InStr(LocAllowExtFile, strExtName) <> 0 Then If file.PostedFile.ContentLength <= LocAllowMaxSize Then Try file.PostedFile.SaveAs(LocUploadDir & "\" & strNewFileName) Catch ex As Exception ErrMsg = ex.Message Return False End Try Else ErrMsg = "对不起,只允许上传小于" & LocAllowMaxSize & "字节的文件,上传文件超出最大的允许的大小!" Return False End If Else ErrMsg = "对不起,只允许上传以下格式的文件" & LocAllowExtFile & "!" Return False End If End If End If Else ErrMsg = "上传目录未设置" Return False End If Return True End Function '------------------------------------------------------- '功能说明:根据日期和时间得到一个不重复的随机数文件名 '------------------------------------------------------- Public Function GetRandomFileName(ByVal strFileName As String, ByVal strExtName As String) As String Dim tempFileName As String Dim Ext As String tempFileName = CStr(Now()) tempFileName = Replace(tempFileName, "-", "") tempFileName = Replace(tempFileName, ":", "") tempFileName = Replace(tempFileName, " ", "") tempFileName = tempFileName & GetRandomNumber(1, 1000) GetRandomFileName = tempFileName & strExtName End Function '---------------------------------------------------- '功能说明:获取指定上下限内的随机数 '---------------------------------------------------- Public Function GetRandomNumber(Optional ByVal Low As Integer = 1, Optional ByVal High As Integer = 100) As Integer Dim oRandom As System.Random oRandom = New System.Random(CType(System.DateTime.Now.Ticks Mod System.Int32.MaxValue, Integer)) Return oRandom.Next(Low, High + 1) End Function '--------------------------------------------------- '功能说明:根据文件名,得到扩展名 '--------------------------------------------------- Public Function GetExtName(ByVal strFileName As String) As String Return Right(strFileName, InStr(StrReverse(strFileName), ".")) End Function End Class |
|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )
GMT+8, 2024-9-29 23:33 , Processed in 0.180016 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.