开发工具:
文件大小: 245kb
下载次数: 0
上传时间: 2012-07-03
详细说明： 最简单的FTP服务器，供大家参考.版本 2 命令文本 ＝ 到大写 (到文本 (服务器1.取回数据 ())) 命令文本 ＝ 子文本替换 (命令文本, #换行符, , , , 真) .判断开始 (取文本左边 (命令文本, 4) ＝ “USER”) ' 用户名 .如果真 (PASS (命令文本)) 服务器1.发送数据 (客户信息, “331 ” ＋ #换行符, ) 返回 () .如果真结束 服务器1.发送数据 (客户信息, “530 ” ＋ #换行符, ) .判断 (取文本左边 (命令文本, 4) ＝ “PASS”) ' 密码，这里采用匿名的方式登陆 .如果真 (匿名) 服务器1.发送数据 (客户信息, “230 ” ＋ #换行符, ) 返回 () .如果真结束 服务器1.发送数据 (客户信息, “530 ” ＋ #换行符, ) .判断 (命令文本 ＝ “OPTS UTF8 ON”) ' 路径采用UTF8编码 ' UTF8编码 ＝ 真 服务器1.发送数据 (客户信息, “503 ” ＋ #换行符, ) ' 暂时不支持utf 8编码 .判断 (命令文本 ＝ “SYST” 或 命令文本 ＝ “SITE HELP”) 服务器1.发送数据 (客户信息, “215 近在眼前 FTP Server” ＋ #换行符, ) .判断 (命令文本 ＝ “PWD”) 服务器1.发送数据 (客户信息, “257 ” ＋ #引号 ＋ 目录 ＋ #引号 ＋ #换行符, ) .判断 (命令文本 ＝ “TYPE A”) .如果真 (文件号 ≠ 0) 关闭文件 (文件号) 文件号 ＝ 0 .如果真结束 服务器1.发送数据 (客户信息, “200 ” ＋ #换行符, ) .判断 (取文本左边 (命令文本, 3) ＝ “CWD”) ' 改变工作目录 .如果 (取文本长度 (命令文本) ＞ 5) 服务器1.发送数据 (客户信息, “550 近在眼前友情提示：目前还不支持改变目录！” ＋ #换行符, ) .否则 服务器1.发送数据 (客户信息, “250 ” ＋ #引号 ＋ 目录 ＋ #引号 ＋ #换行符, ) .如果结束 .判断 (命令文本 ＝ “PASV”) ' 采用被动方式连接 IP ＝ PASV (端口) 服务器2.端口 ＝ 端口 服务器1.发送数据 (客户信息, “227 Entering Passive Mode (” ＋ IP ＋ “)” ＋ #换行符, ) .判断 (命令文本 ＝ “LIST”) ' 列表 服务器1.发送数据 (客户信息, “150 ” ＋ #换行符, ) 发送数据 ＝ 发送列表 (根目录 ＋ 目录) 服务器2.发送数据 (数据客户, 发送数据, ) 服务器2.断开客户 (数据客户) 服务器1.发送数据 (客户信息, “226 Transfer complete” ＋ #换行符, ) .判断 (命令文本 ＝ “NOOP”) 服务器1.发送数据 (客户信息, “200 ” ＋ #换行符, ) .判断 (命令文本 ＝ “TYPE I”) 服务器1.发送数据 (客户信息, “200 ” ＋ #换行符, ) .判断 (命令文本 ＝ “SIZE”) 服务器1.发送数据 (客户信息, “421 ” ＋ #换行符, ) .判断 (取文本左边 (命令文本, 4) ＝ “QUIT”) 服务器1.发送数据 (客户信息, “220 再来我揍你！” ＋ #换行符, ) 服务器1.断开客户 (客户信息) .默认 服务器1.发送数据 (客户信息, “550 近在眼前友情提示：暂时不支持该功能！” ＋ #换行符, ) ' 其它命令你们自行扩展，这里暂时屏蔽 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
