1、你用iis搭建的ftp?iis默认使用的是80端口,你可以禁用一下 https://www.baidu.com/baidu?wd=iis+80+%D5%BC%D3%C3&tn=monline_4_dg
2、你可以把web文件夹放在项目文件夹下,然后把代码改成 Dim fl As String = ProjectPath & "web\" & e.path
3、改成
Dim dr As DataRow = DataTables("表A").Find("用户名 = '" & username & "'")
If dr IsNot Nothing AndAlso dr("密码") = password Then