从FTP下载文件

lotustower

Release Notes  Sep 11, 2001
BASP21 belongs to Tatsuo Baba
Written by TK Upperfield

This is a comprehensive component, packed with 66 of useful methods, that is able to operated from ASP, Visual Basic, VBA, WSH(Windows Scripting Host).

Down Load! BASP21-20010911.exe (1002KB) Update Sep 11, 2001
MD5: 76706c89a1daffaca2d96159a83584ea

How to Install

Download "BASP21.exe" into certain folder and just double-click it. In next 10-second, installation finishes all work, and shows confirmation, then just press button to close it.
Following files are copied into System Folder.

• BASP21.DLL Main COM Component
• BSMTP.DLL for SMTP/POP3 Engine
• BREGEXP.DLL for Regular Expression Engine
• BCOUNT.DLL for Counter Engine
• BSENDM.EXE Command Line SendMail Engine
• BINETX.DLL HTTP/FTP Engine
• BASP21.TLB Type Library of BASP21 (Refers from VB or C++)

How to Uninstall

Select BASP21 from [Control Panel] -> [Add/Delete Application]

lotustower

How to Use

Create object names "basp21" by CreateObject Method.

   Set bobj = Server.CreateObject("basp21")   ' ASP
   Set bobj = CreateObject("basp21")          ' VBA or VB
   Set bobj = WScript.CreateObject("basp21")  ' WSH
Case of 
Socket Object：
   Set bsocket = Server.CreateObject("basp21.socket")   ' ASP
   Set bsocket = CreateObject("basp21.socket")          ' VBA or VB
   Set bsocket = WScript.CreateObject("basp21.socket")  ' WSH
Case of 
FTP Object：
   Set ftp = Server.CreateObject("basp21.FTP")   ' ASP
   Set ftp = CreateObject("basp21.FTP")          ' VBA or VB
   Set ftp = WScript.CreateObject("basp21.FTP")  ' WSH

Call method of Object you just created.

		variable = bobj.method_name(parameter)

If you are using ASP(Active Server Pages), you can create an Application Object by writing a code into global.asa; looks like below,

  <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  SUB Application_OnStart
    Set Application("bobj") = Server.CreateObject("Basp21")
  END SUB
  </SCRIPT>

and declare the object at each asp file as below;

   Set bobj = Application("bobj")

List of Methods

1. SendMail Send Mail
2. SendMailEx Send Mail(Asynchronous Mode)
3. RcvMail Receive Mail
4. ReadMail Read Mail
5. Match String Pattern Match(Perl5 Compatible)
6. Replace String Replace(Perl5 Compatible)
7. Translate String Translate(Perl5 Compatible)
8. Split Split(Perl5 Compatible)
9. FGrep File Pattern Match 2000/06/18 Update!
10. FileCheck File Check
11. Sort Sort
12. ReadDir Read(List) Directory
13. Space Space
14. IsNum Check Digits
15. HAN2ZEN Convert double space char to single space char
16. RepTagChar Replace HTML Tag
17. BinaryRead Read Binary Array from File
18. sprintf "sprintf" Wrapper
19. strftime "strftime" Wrapper
20. Debug Dump strings into Notepad
21. StrConv VB Compatible String Converter
22. BinaryWrite Write Binary Array into File
23. FormSaveAs HTML File Upload(Write File)
24. FormFileName HTML File Upload(File Name)
25. FormFileSize HTML File Upload(File Size)
26. Form HTML File Upload(Read Text)
27. FormBinary HTML File Upload(Read Binary)
28. Execute Execute Program
29. Kconv Convert Kanji Code
30. KconvFile Convert Entire File Kanji Code
31. BinaryConcat Merge Binary Array
32. DebugClear Clear the string of Notepad
33. SplitB Split(Perl5 Compatible) Binary Array
34. ByteArray Return Binary Array from Strings
35. MatchEx Extended Pattern Match
36. Counter GIF Counter
37. Version Version string
38. Base64 BASE64 encode/decode
39. Socket Object 6 methods
40. FTP Object 12 methods
41. GetTempFile Make temporary file2000/01/11 New!
42. W3get Get URL(http:// ftp://) 2000/01/11 New!
43. MidB Access Binary Array 2000/02/06 New!
44. MatchBBinary Array Pattern Match(Perl5 Compatible) 2000/02/06 New!
45. SortMail Sort Mail 2000/02/06 New!
46. Sleep Sleep 2000/05/20 New!
47. MD5 Message Digest 2000/05/20 New!

whyily

谢谢,回答得非常详细

xgzyz0710

用vba写的代码下载FTP文件  为什么有的电脑能下载，有的电脑能连上FTP但是下载不了，是不是和操作系统的设置有关？

锋语玲动

能否给个实例？