vb.net后台上传文件 vbs上传文件

VB如何上传文件到服务器 ?非FTP方式!而且不是VB.NET,不是ASP 而是窗体界面!最好有一段示例!谢谢!VB6.0

Private Sub Command1_Click()

'下载文件:

Inet1.Execute "", "GET firewall.rsc 文件路径"

ri = Inet1.StillExecuting

Do While ri

ri = Inet1.StillExecuting

DoEvents

Loop

End Sub

Private Sub Command2_Click()

'上传文件:

Inet1.Execute "", "PUT d:\11.xls 11.xls"

ri = Inet1.StillExecuting

Do While ri

ri = Inet1.StillExecuting

DoEvents

Loop

End Sub

Private Sub Form_Load()

Inet1.Protocol = icFTP

Inet1.RemoteHost = "192.168.1.1" '服务器地址

Inet1.RemotePort = 21 'FTP端口

Inet1.UserName = "" '用户名

Inet1.Password = ""

End Sub

这个我测试通过

相关问答

Q1: vb.net如何上传文件

My.Computer.Network.UploadFile

比如上传到FTP

My.Computer.Network.UploadFile("d:\1.txt", "“, "FTP账号", "FTP密码", True, 100)

新手路过。

Q2: VB中如何实现上传文件的功能?

用script脚本 直接调用 FTP 命令实现上传文件到FTP服务器。

代码如下：

'定义API函数

Const SYNCHRONIZE = H100000

Const INFINITE = HFFFFFFFF

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Sub Command1_Click()

Dim filename As String

Dim ftp As String

Dim uname As String

Dim upin As String

ftp = InputBox("请输入服务器地址")

uname = InputBox("请输入帐号", , "anonymous")

upin = InputBox("请输入密码", , "IE@User")

filename = Timer() '取时间为文件名filename

Open filename  ".script" For Output As #1 '生成filename.script脚本，传输FTP用

    Print #1, "user"

    Print #1, uname

    Print #1, upin

    Print #1, "pwd"

    Print #1, "hash"

    Print #1, "put "  filename  ".txt"

    Print #1, "quit"

Close #1

Open filename  ".txt" For Output As #1 '生成的filename.txt保存了combo1和text1的文字

    Print #1, Text1.Text

    Print #1, Combo1.Text

Close #1

DoEvents

'调用ftp命令传输，不需要inet或winsock控件

Dim pId As Long, pHnd As Long

pId = Shell("ftp -n -s:"  filename  ".script"  " "  ftp, vbHide)

pHnd = OpenProcess(SYNCHRONIZE, 0, pId)

If pHnd  0 Then

Call WaitForSingleObject(pHnd, INFINITE)

Call CloseHandle(pHnd)

End If

Kill filename  ".script" '因为script脚本保存了帐号和密码，当传输完成后删除filename.script脚本

End Sub

Q3: vb.net ftp上传文件

Dim OpenFileDialog As New OpenFileDialog

OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "文本文件(*.jpg)|*.jpg|所有文件(*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

Dim FileName As String = OpenFileDialog.FileName

' TODO: 在此处添加打开文件的代码。

textbox1.Text = FileName

End If

第一个按钮 上传

Dim filelast As String = fileaddbefore.Text.Substring(fileaddbefore.Text.LastIndexOf("."), fileaddbefore.Text.Length - fileaddbefore.Text.LastIndexOf("."))

MessageBox.Show(filelast)

My.Computer.Network.UploadFile(textbox1.Text, "" 文件名.Text filelast, "登录名1", "登录密码", True, 100)

第二个按钮

Q4: 怎么让VB.NET 上传图片到SQL 数据库只保存路径，图片保存到文件

一个参考过程，你试试 这里写下一个过程为： insert into pub_infor values('1234',0x,'this is a sample') 然后读入图片： sp_textcopy @srvname = '.', @login = 'sa', @password = 'sa', @dbname = 'pubs', @tbname = 'pub_info', @colname = 'logo', @filename = 'c:\picture.bmp', @whereclause = " WHERE pub_id='1234' ", @direction = 'I' 读出为： sp_textcopy @srvname = '.', @login = 'sa', @password = 'sa', @dbname = 'pubs', @tbname = 'pub_info', @colname = 'logo', @filename = 'D:\picture.bmp', @whereclause = " WHERE pub_id='1234' ", @direction = 'O' 清空：update 表 set 列=null 最后注意事项：因为filename的字符长度只有30个：即： @filename varchar (30), 所以实际应用的时候最好改为255个，当含有比较长的路径的时候就会报错： ERROR: Augment 'xxx' unrecognize 还有参数的长度@exec_str varchar （255）也修改下比较好： 我改成了这样子： CREATE PROCEDURE sp_textcopy ( @srvname varchar (30), @login varchar (30), @password varchar (30), @dbname varchar (30), @tbname varchar (30), @colname varchar (30), @filename varchar (255), @whereclause varchar (40), @direction char(1)) AS DECLARE @exec_str varchar (400) SELECT @exec_str = 'textcopy /S ' + @srvname + ' /U ' + @login + ' /P ' + @password + ' /D ' + @dbname + ' /T ' + @tbname + ' /C ' + @colname + ' /W "' + @whereclause + '" /F ' + @filename + ' /' + @direction EXEC master..xp_cmdshell @exec_str 就只这样子了，感觉上T_SQL编程还是挺强大的，有时间应该好好学习下。 回答： 这里以SQL_server2000中的pubs数据库中的pub_info表为例来说说其中的过程：pub_info表包含：pub_id,logo,pr_info，其中logo属于image超长字段，应用存储过程奖图像存储在数据库的步骤包括： 1：首先：是插入一个列： 比如：insert into pub_infor values('1234',0x,'this is a sample')其中0x只是为了确保image字段不能为空：因为下面的存储过程：textcopy 用textcopy把图片或者文件拷贝到image类型字段之前，image类型的字段不能为空。先插入0x(或者0x0)到这个字段,然后就可以用textcopy了。 否则就会报这样的错误： ERROR: Text or image pointer and timestamp retrieval failed. 2：接下来建立存储过程： CREATE PROCEDURE sp_textcopy ( @srvname varchar (30), @login varchar (30), @password varchar (30), @dbname varchar (30), @tbname varchar (30), @colname varchar (30), @filename varchar (30), @whereclause varchar (40), @direction char(1)) AS DECLARE @exec_str varchar (255) SELECT @exec_str = 'textcopy /S ' + @srvname + ' /U ' + @login + ' /P ' + @password + ' /D ' + @dbname + ' /T ' + @tbname + ' /C ' + @colname + ' /W "' + @whereclause + '" /F ' + @filename + ' /' + @direction EXEC master..xp_cmdshell @exec_str 说明： 其中xp_cmdshell: 以操作系统命令行解释器的方式执行给定的命令字符串，并以文本行方式返回任何输出。授予非管理用户执行 xp_cmdshell 的权限。我自己的理解是: textcopy就像是一个dos命令：就是说实际的文件copy命令是类似操作系统执行的。

采纳哦

Q5: 如何用vb.net上传post数据给服务器

图有点模糊。

服务器端要有方法接收，接收的参数要看方法的定义。

Controller A里面假设有这个get Action

httppost

function get(frm as formcollection) as actionresult

dim a as string=frm("keyword")

return content(a)

end function

页面View 中

@Using FormBegin("get","A","POST")

@div

input name="keyword" type="text"/

Input type="submit" value="提交"/

end using

你在页面上点击按钮“提交”后，就会把表单的中keyword文本框的内容赋值给a.

这里我用的是MVC..前端用的VB Razor.

vb.net后台上传文件的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs上传文件、vb.net后台上传文件的信息别忘了在本站进行查找喔。