能否在ASP中运用FTP协议传输文件到服务器吗？

2003-08-12 04:59:40 90 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ftp服务器上传大文件,关于大文件上传的FTP解决方案用asp.net上传文件时,对大文件的处理总会不尽于人意,虽然从理论上讲,可以传输很大的文件(100M以上),但在实际使用中会出现各种问题.因此,基于B/S架构的大文件上传还是用FTP为好。用FTP手工上传文件没有什么可以说的,但我们往往需要通过程序来控制这一过程,即通过asp.net来实现这一目的.如果FTP软件具备可二次开发的接口就好了.经典的cuteftp pro就具有这样的功能。安装完cu... 阅读详情

我想做一套纯“傻瓜”式的视频点播系统，日常维护希望越简单越好，所以我就考虑是否让客户象上传小图片一样通过页面上一个简单的操作而把巨大的视频文件从任何客户机上传到服务器，这么大的文件传输，我只有想到FTP了！
还请各位大哥多提宝贵意见！
哪怕是一个思路也好！
谢谢了！

...全文

STM32 CubeMX实战：手把手教你用I2C驱动IST8310磁力计（附完整代码）本文详细介绍了如何使用STM32 CubeMX和I2C驱动IST8310磁力计，从硬件连接到代码实现的完整流程。重点讲解了I2C通信异常处理、传感器初始化序列优化以及中断驱动数据采集方案，帮助开发者快速搭建可靠的地磁场数据采集系统。阅读详情

bigspook

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

ccmoon 2003-08-12

打赏
举报

实际上是两部分，上面的代码是自动生成下面的txt文件
asp文件
<%
Set oScript = server.CreateObject("WSCRIPT.SHELL")
Call oScript.Run ("cmd.exe /c " & "ftp.exe -s:d:/smbcris/files/ftp.txt" & " > " & temp, 0, True)
Set oScript = Nothing
%>

ftp.txt文件，这是ftp命令
lcd D:\SmbcRIS\files\download
open 172.28.176.58
chenhy
111
cd /swift/localhost/CNSH/Incoming
prompt
mget *.out

cd /swift/localhost/CNSH/Save_Incoming
mput *.out
bye

notes:
另外还有很多控件可以解决，不过都需要花钱
你可以在google搜索 asp ftp控件

ccmoon 2003-08-12

打赏
举报

不用客气

<html>
<head>
<title>ftp</title>
</head>

<body>

<%
Dim objFSO, objTextFile, oScript, oScriptNet, oFileSys, oFile, strCMD, strTempFile, strCommandResult
Dim ftp_address, ftp_username, ftp_password, ftp_physical_path, ftp_files_to_put

' Edit these variables to match your specifications
ftp_address = "172.28.176.58"
ftp_username = "chenhy"
ftp_password = "111"
ftp_remote_directory = ""
ftp_files_to_get = "*.zip"

On Error Resume Next
Set oScript = Server.CreateObject("WSCRIPT.SHELL")
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Build our ftp-commands file
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("test.ftp"))
objTextFile.WriteLine "lcd " & Server.MapPath(".")
objTextFile.WriteLine "open " & ftp_address
objTextFile.WriteLine ftp_username
objTextFile.WriteLine ftp_password

' Check to see if we need to issue a 'cd' command
If ftp_remote_directory <> "" Then
objTextFile.WriteLine "cd " & ftp_remote_directory
End If

objTextFile.WriteLine "prompt"

' If the file(s) is/are binary (i.e. .jpg, .mdb, etc..), uncomment the following line
' objTextFile.WriteLine "binary"
If Instr(1, ftp_files_to_get, "*",1) Then
objTextFile.WriteLine "mget " & ftp_files_to_get
Else
objTextFile.WriteLine "get " & ftp_files_to_get
End If

objTextFile.WriteLine "bye"
objTextFile.Close

Set objTextFile = Nothing
' Use cmd.exe to run ftp.exe, parsing our newly created command file
strCMD = "ftp.exe -s:" & Server.MapPath("test.ftp")
strTempFile = "c:\" & oFileSys.GetTempName( )

' Pipe output from cmd.exe to a temporary file (Not :| Steve)
Call oScript.Run ("cmd.exe /c " & strCMD & " > " & strTempFile, 0, True)
Set oFile = oFileSys.OpenTextFile (strTempFile, 1, False, 0)

On Error Resume Next
' Grab output from temporary file
strCommandResult = Server.HTMLEncode( oFile.ReadAll )
oFile.Close

' Delete the temporary & ftp-command files
Call oFileSys.DeleteFile( strTempFile, True )
Call objFSO.DeleteFile( Server.MapPath("test.ftp"), True )
Set oFileSys = Nothing
Set objFSO = Nothing

' Print result of FTP session to screen
Response.Write( Replace( strCommandResult, vbCrLf, "<br>", 1, -1, 1) )

%>

</body>
</html>

sailor001 2003-08-12

打赏
举报

直接不能脚本连接ftp
可以通过组件连接

ccmoon 2003-08-12

打赏
举报

可以用ftp
WSCRIPT.SHELL
Scripting.FileSystemObject
可以解决

能否在ASP中运用FTP协议传输文件到服务器吗？

相关推荐