稻农的无组件上传程序ASP.NET版

核心提示：上传在Web开发中,是非常普遍的一项任务,以前用ASP的时候,一直用稻农的无组件上传工具,觉得很好用,现在学Asp.net了,却发现没有类似原来稻农的无组件上传程序,因此花了点时间,将稻农的无组件上传程序用vb.net改写了一下,可以编译成DLL，在C#或者Vb.net等任意asp.net支持的语言中使用，稻农的无组件

上传在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