VB.NET开发内网文件分享站实战指南

1. 项目概述：用VB.NET打造轻量级内网文件分享站

十年前我刚入行时，公司内部传文件还在用U盘来回倒腾。现在虽然有了各种云盘，但涉及到敏感数据时，内网自建文件分享服务依然是很多企业的刚需。这次我们就用VB.NET从零搭建一个支持多用户上传下载的轻量级文件分享网站，特别适合中小团队在局域网内使用。

这个方案的核心优势在于：

• 完全自主可控，数据不出内网
• 无需依赖第三方服务，避免账号权限管理难题
• VB.NET开发门槛低，维护成本小
• 支持基础的用户权限管理和文件分类

实测在百兆局域网环境下，上传下载速度能跑满物理带宽（约11MB/s），比通过公网中转的云服务快得多。下面我会详细拆解实现过程，包括几个关键问题的解决方案。

2. 技术选型与准备

2.1 基础框架选择

我选择ASP.NET Web Forms而不是MVC，主要考虑：

• VB.NET对Web Forms的支持更成熟
• 快速开发优势明显，拖拽控件就能完成基础界面
• 事件驱动模型更符合传统VB开发者的思维习惯

注意：如果考虑长期维护，建议用.NET Core+VB，但需要处理更多兼容性问题

2.2 必备组件清单

vb复制' NuGet包引用
Install-Package Microsoft.AspNet.WebApi -Version 5.2.7
Install-Package EntityFramework -Version 6.4.4
Install-Package Antlr -Version 3.5.0.2

硬件要求：

• 服务器：Windows Server 2012 R2+
• 存储：建议NTFS格式分区（支持大文件和权限控制）
• 内存：至少2GB（文件缓存用）

3. 核心功能实现

3.1 文件上传模块

关键代码示例：

vb复制Protected Sub btnUpload_Click(sender As Object, e As EventArgs)
    If FileUpload1.HasFile Then
        Dim fileExt As String = Path.GetExtension(FileUpload1.FileName).ToLower()
        Dim allowExt As String() = {".doc", ".pdf", ".zip"} ' 允许的扩展名
        
        If Array.IndexOf(allowExt, fileExt) >= 0 Then
            Dim savePath = Server.MapPath("~/Files/") & DateTime.Now.ToString("yyyyMMddHHmmss") & "_" & FileUpload1.FileName
            FileUpload1.SaveAs(savePath)
            
            ' 记录到数据库
            Using db As New FileContext()
                db.Files.Add(New File With {
                    .FileName = FileUpload1.FileName,
                    .FilePath = savePath,
                    .UploadTime = DateTime.Now,
                    .Uploader = User.Identity.Name
                })
                db.SaveChanges()
            End Using
        Else
            lblMessage.Text = "不支持的文件类型"
        End If
    End If
End Sub

3.2 用户权限控制

在web.config中配置基础认证：

xml复制<system.web>
  <authentication mode="Forms">
    <forms loginUrl="~/Login.aspx" timeout="2880" />
  </authentication>
  <authorization>
    <deny users="?" />
  </authorization>
</system.web>

角色管理实现方案：

1. 创建基础角色表（Admin、User、Guest）
2. 在Global.asax中注册角色管理器
3. 用Location标签控制目录权限

3.3 文件列表展示

优化查询的几种方式：

• 分页加载：每次取20条记录
• 缓存热门文件：用Application对象存储下载排行
• 异步加载：UpdatePanel实现无刷新更新

vb复制' 分页查询示例
Public Function GetFiles(pageIndex As Integer) As List(Of File)
    Using db As New FileContext()
        Return db.Files.OrderByDescending(Function(f) f.UploadTime)
                      .Skip(pageIndex * 20)
                      .Take(20)
                      .ToList()
    End Using
End Function

4. 性能优化技巧

4.1 上传下载优化

实测对比（100MB文件）：

关键配置：

xml复制<system.webServer>
  <serverRuntime enabled="true" uploadReadAheadSize="49152" />
  <urlCompression doStaticCompression="true" doDynamicCompression="true" />
</system.webServer>

4.2 数据库优化

1. 文件表添加复合索引：

sql复制CREATE INDEX IX_File_Search ON Files(UploadTime, FileType, Uploader)

2. 定期归档旧文件：

vb复制Sub ArchiveFiles()
    Dim cutoff = DateTime.Now.AddMonths(-3)
    Dim oldFiles = db.Files.Where(Function(f) f.UploadTime < cutoff).ToList()
    ' 移动到归档目录...
End Sub

5. 安全防护方案

5.1 防病毒措施

集成Windows Defender扫描：

vb复制Process.Start("C:\Program Files\Windows Defender\MpCmdRun.exe", 
              "-Scan -ScanType 3 -File " & filePath)

5.2 防暴力破解

登录失败锁定策略：

vb复制If Membership.ValidateUser(txtUser.Text, txtPwd.Text) Then
    Session("FailCount") = 0
Else
    Dim fails As Integer = CInt(If(Session("FailCount"), 0)) + 1
    Session("FailCount") = fails
    If fails > 3 Then
        AccountLock(txtUser.Text)
    End If
End If

5.3 日志审计

关键日志记录项：

• 文件上传/下载（时间、用户、IP）
• 用户登录登出
• 权限变更记录

推荐用Log4net配置每日滚动日志：

xml复制<log4net>
  <appender name="RollingFile" type="log4net.Appender.RollingFileAppender">
    <file value="Logs/FileShare_" />
    <appendToFile value="true" />
    <rollingStyle value="Date" />
    <datePattern value="yyyyMMdd'.log'" />
    <layout type="log4net.Layout.PatternLayout">
      <conversionPattern value="%date [%thread] %-5level %logger - %message%newline" />
    </layout>
  </appender>
</log4net>

6. 部署与维护

6.1 IIS最佳配置

实测推荐的应用程序池设置：

• .NET CLR版本：v4.0
• 托管管道模式：集成
• 固定间隔回收：1740分钟
• 私有内存限制：1024MB

6.2 备份策略

建议的三重备份方案：

1. 实时备份：文件服务器镜像
2. 每日差异备份：数据库+新增文件
3. 每周全量备份：完整压缩包+校验码

自动备份脚本示例：

vb复制Sub AutoBackup()
    Dim zipPath = "D:\Backup\" & DateTime.Now.ToString("yyyyMMdd") & ".zip"
    Using zip As New ZipFile()
        zip.AddDirectory("C:\FileShare\Files")
        zip.AddFile("C:\FileShare\App_Data\FileDB.mdf")
        zip.Save(zipPath)
    End Using
End Sub

7. 常见问题排查

7.1 上传失败排查流程

1. 检查IIS请求过滤设置

   xml复制<requestFiltering>
     <requestLimits maxAllowedContentLength="4294967295" />
   </requestFiltering>
   

2. 验证文件夹NTFS权限

   • IIS_IUSRS：修改权限
   • 上传用户：写入权限

3. 查看应用程序池身份

   • 建议用特定域账户而非ApplicationPoolIdentity

7.2 性能问题定位

性能计数器关键指标：

• ASP.NET\Requests Current
• Memory\Available MBytes
• PhysicalDisk(_Total)% Disk Time

经验：当磁盘时间持续>70%时，考虑升级存储或做读写分离

8. 扩展功能实现

8.1 文件预览功能

Office文件预览方案：

vb复制Function GeneratePreview(filePath As String) As String
    If Path.GetExtension(filePath) = ".docx" Then
        Dim app = New Microsoft.Office.Interop.Word.Application()
        Dim doc = app.Documents.Open(filePath)
        doc.ExportAsFixedFormat(Replace(filePath, ".docx", ".pdf"), 
                              Word.WdExportFormat.wdExportFormatPDF)
        Return "Preview generated"
    End If
    Return "Unsupported format"
End Function

8.2 移动端适配

响应式布局要点：

• Bootstrap栅格系统
• 触摸事件处理
• 文件上传控件替换（用jQuery File Upload）

实测兼容性：

9. 项目优化方向

9.1 替代方案对比

与传统FTP对比优势：

• 浏览器即可访问
• 无需额外客户端
• 集成用户系统
• 操作日志完备

与Nextcloud等方案对比劣势：

• 缺乏版本控制
• 无在线协作功能
• 移动端体验较弱

9.2 二次开发建议

值得增加的三个功能：

1. 文件版本管理（保留历史版本）
2. 审批工作流（重要文件需审核）
3. 水印生成（敏感文件自动加水印）

实现水印的代码片段：

vb复制Using img As Image = Image.FromFile(filePath)
    Using g = Graphics.FromImage(img)
        g.DrawString("CONFIDENTIAL", 
                    New Font("Arial", 40), 
                    Brushes.Red, 
                    New PointF(img.Width/2, img.Height/2))
        img.Save(newPath)
    End Using
End Using

这个项目最让我意外的是VB.NET在传统企业环境中的生命力——很多老系统维护人员只会VB，用这个方案他们能快速上手维护。如果要做技术升级，建议分两步走：先用VB.NET实现核心功能验证需求，再用ASP.NET Core重写服务端API。