1 Option Explicit On 
  2 Option Strict On
  3 
  4 Imports System.IO
  5 Imports System.Data
  6 Imports System.Web.UI.HtmlControls.HtmlInputControl
  7 
  8 
  9 Public Class UploadFile
 10 
 11     '-------------------------------------------------------------------
 12   '欢迎转载，但请保留以下声名
 13    '说明：文件上传类
 14     '创建时间：2004-11-18
 15     '作者：刀尖客 QQ:51978456
 16 --------------------------------------------------------------------
 17 
 18     Private LocOrgFileName As String                           '原始文件名
 19     Private LocNewFileName As String                           '新文件名
 20     Private LocUploadDir As String = ""                        '保存目录 注意：要完整路径
 21     Private LocAllowOverWrite As Boolean = False               '如果保存文件已经存在，是否覆盖
 22     Private LocAllowExtFile As String = "doc,jpg,gif,zip"      '许可格式
 23     Private LocAllowMaxSize As Integer = 3 * 1024 * 1024       '许可大小 
 24 
 25     Public ErrMsg As String                                     '返回的错误提示
 26 
 27     Public ReadOnly Property OrgFileName() As String
 28         Get
 29             Return LocOrgFileName
 30         End Get
 31     End Property
 32 
 33     Public Property NewFileName() As String
 34         Get
 35             Return LocNewFileName
 36         End Get
 37         Set(ByVal strValue As String)
 38             LocNewFileName = strValue
 39         End Set
 40     End Property
 41 
 42     Public Property UploadDir() As String
 43         Get
 44             Return LocUploadDir
 45         End Get
 46         Set(ByVal strValue As String)
 47             LocUploadDir = strValue
 48         End Set
 49     End Property
 50 
 51     Public Property AllowOverWrite() As Boolean
 52         Get
 53             Return LocAllowOverWrite
 54         End Get
 55 
 56         Set(ByVal blnValue As Boolean)
 57             LocAllowOverWrite = blnValue
 58         End Set
 59 
 60     End Property
 61 
 62     Public Property AllowMaxSize() As Integer
 63         Get
 64             Return LocAllowMaxSize
 65         End Get
 66 
 67         Set(ByVal intValue As Integer)
 68             LocAllowMaxSize = intValue
 69         End Set
 70     End Property
 71 
 72     Public Property AllowExtFile() As String
 73         Get
 74             Return LocAllowExtFile
 75         End Get
 76 
 77         Set(ByVal strValue As String)
 78             LocAllowExtFile = strValue
 79         End Set
 80     End Property
 81 
 82 
 83     '----------------------------------------------------------------------------------------
 84     '功能说明：上传文件到服务器
 85     '参数：file 要上传的文件域 IsRandom 是否采用随机数文件名,如果为Flase，则采用文件原来的名称
 86     '----------------------------------------------------------------------------------------
 87     Public Function Upload(ByRef file As System.Web.UI.HtmlControls.HtmlInputFile, Optional ByVal IsRandom As Boolean = True) As Boolean
 88         Dim objFile As file
 89         Dim oldFileName As String
 90         Dim strNewFileName As String
 91         Dim strExtName As String
 92 
 93         If file.PostedFile.ContentLength = 0 Then
 94             ErrMsg = "没有上传文件"
 95             Return False
 96         End If
 97 
 98         oldFileName = file.PostedFile.FileName
 99 
100         strExtName = GetExtName(oldFileName)
101 
102 
103         If IsRandom = True Then
104             LocNewFileName = GetRandomFileName(oldFileName, strExtName)
105             strNewFileName = LocNewFileName
106         Else
107             LocNewFileName = oldFileName
108             strNewFileName = LocNewFileName
109         End If
110 
111         If LocUploadDir <> "" Then
112             If Directory.Exists(LocUploadDir) = False Then
113                 ErrMsg = "上传目录" & LocUploadDir & "不存在"
114             Else
115                 If objFile.Exists(strNewFileName) And LocAllowOverWrite = False Then
116                     ErrMsg = "对不起，服务器上此文件已经存在!"
117                     Return False
118                 Else
119 
120                     If InStr(LocAllowExtFile, strExtName) <> 0 Then
121 
122                         If file.PostedFile.ContentLength <= LocAllowMaxSize Then
123 
124                             Try
125                                 file.PostedFile.SaveAs(LocUploadDir & "\" & strNewFileName)
126                             Catch ex As Exception
127                                 ErrMsg = ex.Message
128                                 Return False
129                             End Try
130 
131 
132                         Else
133                             ErrMsg = "对不起，只允许上传小于" & LocAllowMaxSize & "字节的文件，上传文件超出最大的允许的大小!"
134                             Return False
135                         End If
136 
137                     Else
138                         ErrMsg = "对不起，只允许上传以下格式的文件" & LocAllowExtFile & "!"
139                         Return False
140                     End If
141 
142                 End If
143             End If
144 
145         Else
146             ErrMsg = "上传目录未设置"
147             Return False
148         End If
149 
150         Return True
151 
152 
153     End Function
154 
155 
156     '-----------------------------------------------------------------------------------------
157     '功能说明：根据日期和时间得到一个不重复的随机数文件名
158     '-----------------------------------------------------------------------------------------
159     Public Function GetRandomFileName(ByVal strFileName As String, ByVal strExtName As String) As String
160 
161         Dim tempFileName As String
162         Dim Ext As String
163 
164         tempFileName = CStr(Now())
165         tempFileName = Replace(tempFileName, "-", "")
166         tempFileName = Replace(tempFileName, ":", "")
167         tempFileName = Replace(tempFileName, " ", "")
168         tempFileName = tempFileName & GetRandomNumber(1, 1000)
169 
170         GetRandomFileName = tempFileName & strExtName
171 
172     End Function
173 
174     '----------------------------------------------------------------------------------------
175     '功能说明：获取指定上下限内的随机数
176     '-----------------------------------------------------------------------------------------
177 
178     Public Function GetRandomNumber(Optional ByVal Low As Integer = 1, Optional ByVal High As Integer = 100) As Integer
179         Dim oRandom As System.Random
180 
181         oRandom = New System.Random(CType(System.DateTime.Now.Ticks Mod System.Int32.MaxValue, Integer))
182         Return oRandom.Next(Low, High + 1)
183 
184     End Function
185 
186     '------------------------------------------------------------------------------------
187     '功能说明：根据文件名，得到扩展名
188     '------------------------------------------------------------------------------------
189 
190     Public Function GetExtName(ByVal strFileName As String) As String
191         Return Right(strFileName, InStr(StrReverse(strFileName), "."))
192     End Function
193 
194 End Class
195