用VB.NET 怎样通过给的HTTP地址上传文件

e As Int32 = 0 To Files.Count - 1

Dim PostedFile As HttpPostedFile = Files(iFile)

Dim FileName, FileExtent As String

FileName = Serverpath &System.IO.Path.GetFileName(PostedFile.FileName)

If System.IO.Path.GetFileName(PostedFile.FileName) <>"" Then

FileName = System.IO.Path.GetFileName(PostedFile.FileName)

Dim Url As String = Me.Label1.Text.Trim &FileName

PostedFile.SaveAs(Serve

数据的上传就是将档案文件存储到数据表中。在数据上传时，因情况不同一般有两种方式，即单一上传和批量上兄盯烂传，前者指则兄一次上传一个文件(在数据表中增加一条记录)，后者指一次将一个文件夹中的所有文件上传到数据库。两者在实质上是统一的，批量上传时，只需用一个循环语句就可。以下介绍单一上传的过程。 1、打开数据表 通过以下语句打开数据表： dim office_rst As New ADODB.Recordset adocon.CursorLocation = adUseClient office_rst.Open "office", adocon, adOpenDynamic, adLockOptimistic, adCmdTable 2、添加新记录并上传文件 假定通过一些 *** 作已经获得了要上传的文件路径和名称(例如，可利用CommomDialog控件获得)，保存在string型变量filePath中。上传的关键语句如下： dim adofld As ADODB.Field, DataArr() As Byte, filelen As Long, file_num As Long office_rst.AddNew Set adofld = office_rst("office") adorst("filename").Value = filePath file_num = FreeFile '返羡漏回一个 Integer，代表下一个可供Open语句使用的文件号 Open filePath For Binary Access Read As file_num '打开磁盘文件 filelen = LOF(file_num) '求文件长度 ReDim DataArr(filelen) '根据文件长度定义动态数组大小 Get sourcefile, , DataArr '将一个已打开的磁盘文件读入数组变量之中 adofld.AppendChunk DataArr() '将数组内容存入image型字段中 Close file_num '关闭磁盘文件 adorst.update 其中的filename为表office中的一个string型字段，用于存储档案文件的名称。

---