Web上传大文件的三种解决方案_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
Web上传大文件的三种解决方案
W​e​b​上​传​大​文​件​的​三​种​解​决​反​感
阅读已结束，如果下载本文需要使用
想免费下载本文？
你可能喜欢请教在VB6.0里面，怎么将本地的文件或图片上传到WEB服务器
&来源：读书人网&【读书人网()：综合教育门户网站】
请问在VB6.0里面，如何将本地的文件或图片上传到WEB服务器请问在VB6.0里面，如何将本地的文件或图片上传到WE
请问在VB6.0里面，如何将本地的文件或图片上传到WEB服务器请问在VB6.0里面，如何将本地的文件或图片上传到WEB服务器[解决办法]Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fs As FileStream = New FileStream(&E:\工程\图片\11.png&, FileMode.Open, FileAccess.ReadWrite)
Dim bt(fs.Length) As Byte
fs.Read(bt, 0, fs.Length)
fs.Close()
fs = Nothing
Dim sqlConn As SqlClient.SqlConnection = New SqlClient.SqlConnection(&Server=(local);User Id=Password=Database=pubs&)
sqlConn.Open()
Dim sqlCmd As New SqlClient.SqlCommand(&sp_InsertImage&, sqlConn)
mandType = CommandType.StoredProcedure
sqlCmd.Parameters.Add(&@img&, SqlDbType.Image).Value = bt
sqlCmd.ExecuteNonQuery()
sqlCmd = Nothing
sqlConn.Close()
sqlConn = Nothing
MsgBox(&图片插入成功&, rmation)
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sqlConn As SqlClient.SqlConnection = New SqlClient.SqlConnection(&Server=(local);User Id=Password=Database=pubs&)
sqlConn.Open()
Dim sqlCmd As New SqlClient.SqlCommand(&SELECT img FROM test WHERE t_ID=52&, sqlConn)
mandType = CommandType.Text
Dim bt() As Byte = sqlCmd.ExecuteScalar()
If Not bt Is Nothing Then
If bt.Length & 0 Then
Dim fs As MemoryStream = New MemoryStream(bt)
pbReview.Image = Image.FromStream(fs)
fs.Close()
fs = Nothing
MsgBox(&无图片&)
MsgBox(&无数据&)
sqlCmd = Nothing
sqlConn.Close()
sqlConn = Nothing
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Dispose(True)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub这是我参考别人的代码做的将本地的图片用文件流读入到sql中，然后再从中读出来，你看下，可能对你有帮助！请问在VB6.0里面，如何将本地的文件或图片上传到WEB服务器
[问题点数：20分，结帖人gonglangdxaiyv]
请问在VB6.0里面，如何将本地的文件或图片上传到WEB服务器
[问题点数：20分，结帖人gonglangdxaiyv]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关推荐：
本帖子已过去太久远了，不再提供回复功能。VB上传文件到FTP空间的代码？
VB上传文件到FTP空间的代码？
在写的个VB程序，
比如：把C盘里面的 1.txt 文件 上传到FTP空间，这段VB的代码怎么写？
先添加microsoft
上传_Click()
Inet1.URL = IP.Text ' "
Inet1.Protocol
Inet1.UserName
"username"
Inet1.Password
"password"
Inet1.Execute
"c:\1.txt"
Inet1.StillExecuting
"上传完毕!",
vbInformation,
Inet1.URL = ""
' 你的ftp地址
Inet1.Protocol = 2 Inet1.UserName = "" '你的ftp用户名Inet1.Password = "" ' 你的ftp密码
Inet1.Execute , "PUT " & "c:\1.txt" & " 1.txt"
'把c盘的1.txt传到ftpDo While Inet1.StillExecuting DoEvents Loop MsgBox "上传完毕!", vbInformation, "提示"
其他回答 (2)
这个用inet控件比较简单
首先，在VB工具栏中添加部件Microsoft Internet Transfer Control 6.0 ，之后工具箱会多一个Inet的控件。
拖放该控件到窗体上，设置控件中的属性
protocol : 2-icFTPRemoteHost : 你的FTP服务IP或域名RemotePort : 你的FTP端口URL : 你的FTPURL地址UserName和Password 这两个就不用说了
当然，也可以在运行时绑定属性。
本例中还需要拖放一个文本筐（txtData）和一个按钮（Command1）
窗体代码部分如下：Private Sub Command1_Click() Dim isRight As Boolean '定义一个BOOLEAN变量,用于判断是否仍然在执行上传 Dim filestr As String '定义一个字符串变量,用于存储本地文件的路径和文件名,并在后面赋值,当然,正式使用的时候这里是由用户选择文件的路径 filestr = "d:\ctrpatch.exe" '调用Inet的execute方法上传文件,第一参数是FTP URL地址,第2个参数是传递参数,字符串型,分为3个部分: 方法+本地文件+上传后文件名 ,FTP上传使用 PUT 命令 Inet1.Execute " ", "PUT " & filestr & " uploadedfilename.exe" 'put,本地文件路径,上传后的文件名称之间一定要有空格隔开 isRight = Inet1.StillExecuting '获取当前是否仍然在执行命令 '循环检查是否仍然在命令执行,如果仍然还在执行命令,那么将控制权交给系统,这样系统可以分配空闲的处理时间来执行命令 Do While isRight isRight = Inet1.StillExecuting DoEvents Loop End Sub '在调用Inet的Execute方法时会触发该时间,该事件传递一个参数State来返回当前执行状态 '返回的状态值如下: '0 未报告状态icHostResolvingHost '1 控件正在寻找指定主机的IP地址icHostResolved '2 控件已成功找到指定主机的IP地址icConnecting '3 控件正在与指定主机进行连接icConnected '4 控件已成功与指定主机连接icRequesting '5 控件正在向主机发出请求icRequestSent '6 控件已成功向主机发出请求icReceivingResponse '7 控件正在从主机接收反馈信息icResponseReceived '8 控件已成功从主机接受反馈信息icDisconnecting '9 控件正在与主机断开icDisconnected '10 控件已与主机断开icError '11 在与主机通信的过程中发生了错误icResponseComp leted '12 请求结束且数据已经接收到 Private Sub Inet1_StateChanged(ByVal State As Integer) '获取并显示一下当前的执行状态,方便测试 txtData.Text = txtData.Text + CStr(State) '检查当前返回的状态值 Select Case State '如果是12,说明执行完成 Case 12 '以下=号中间的代码我暂时还不知道具体有什么在作用 '============================================== Dim vtData As Variant ' Data variable. Dim strData As String: strData = "" Dim bDone As Boolean: bDone = False ' Get first chunk. vtData = Inet1.GetChunk(1024, icString) Do While Not bDone strData = Data & vtData ' Get next chunk. vtData = Inet1.GetChunk(1024, icString) If Len(vtData) = 0 Then bDone = True End If Loop txtData.Text = strData '=============================================== txtData.Text = "上传完成" End Select End Sub
相关知识等待您来回答
编程领域专家
& &SOGOU - 京ICP证050897号如题&向高手求救！
回复讨论(解决方案)
如果是局域网,可以在服务器上设置个共享目录,在客户端使用copy命令就行了.
假设&163&服务器上有个文件夹&被共享了&所有权限全开&
我想把文件上传到这个文件夹下面&怎么做啊？
能给点代码提示提示吗&多谢了
要看服务器的协议
ftp:&&puter&.Network&.UploadFile&(源文件，目标文件)
http:&&HttpPostedFile.SaveAs