HTTP方式上载文件的ASP程序实例

（摘自《计算机世界日报》）
1. http 方 式 的 文 件 上 载
---- 文 件 的 上 载( upload) 是 制 作 网 站 时 经 常 遇 到 的 问 题, 经 常 上 网 的 朋 友 大 都 使 用 过web 方 式 的email 发 信. 操 作 大 体 是 这 样: 当 选 择 了 粘 贴 文 件 后, 直 接 输 入 本 地 文 件 的 绝 对 路 径 或 按browser 按 钮 浏 览 要 粘 贴 的 文 件, 而 后 确 认. 在 这 个 过 程 中 实 际 上 就 实 现 了http 方 式 的 文 件 上 载.( 其 中browser 按 钮 在 中 文 版 的netscape 和ie4 中 显 示 为” 浏 ..”). 这 里 文 件 从 客 户 端 到 服 务 器 的 上 载 是 由http 协 议 的 通 用 网 关 界 面(cgi) 支 持 的. 这 种 上 载 方 式 要 求 浏 览 器 和web server 两 方 面 都 能 够 支 持rfc1867. netscape 的web server 和 浏 览 器 以 及ie4.0 都 支 持cgi 方 式 的 上 载, 但 是 微 软 的web server iis 还 不 能 提 供 这 样 的 功 能. 也 就 是 说, 如 果 我 们 要 想 使 用asp 实 现 文 件 上 载, 还 必 须 对iis 进 行 配 置. 在 网 上 可 以 下 载 这 样 的active server componet, 或 者 用vb 等 开 发 工 具 为iis 编 写 一 个 这 样 的active server componet 来 支 持rfc1867. 由 于 采 用http 方 式 上 载 文 件 对 使 用 者 来 说 是 最 直 接 和 方 便 的, 相 信 大 家 对 下 面 的asp 实 例 一 定 会 感 兴 趣.

2. asp 编 程 实 例
　

---- 为 了 使 大 家 对http 方 式 的 上 载 有 一 个 感 性 的 认 识, 最 好 能 实 际 运 行 以 下 这 个 例 子. 这 个 简 单 的 例 子 有 两 个 文 件. 一 个 是upload.html, 一 个 是up.. upload.html 中 有 一 个form, 它 有 两 个 按 钮” 浏 览..” 和” 上 载”, 用 户 在 文 本 框 中 输 入 文 件 在 本 地 的 绝 对 路 径 或 通 过 浏 览 选 中 文 件 后 就 可 以 用” 上 载” 按 钮 将 文 件 上 载. 而iis 上 的up.asp 将 会 把 文 件 存 到 服 务 器 上 的 指 定 路 径 下.

---- 2.1 upload.html 文 件

  < html >  
  < head >< title > 请 上 载 文 件< /title >< /head >

  < body >

< form enctype="multipart/form-data"
method="post" action="up.asp" >

输 入 上 载 文 件 的 名 称: < input type="file" name="f1" >< br >

< input type="submit" value=” 上 载” >

< /form >

   < /body >

   < /html >

2.2  up.asp 文 件
< %@ language="vbscript" % >

< html >< head >

< title > 上 载 文 件 测 试< /title >

< /head >

< body >

  您 的 文 件 已 经 上 传 成 功!.< br >

< % set upl = server.createobject("softartisans.fileup") % >

< % upl.saveas "d:upload est.out" % >< br >
文 件 长 度: < %=upl.totalbytes% >
< /body >
< /html >


　

---- 2.3 例 子 说 明

---- 在html 中 form 必 须 有 enctype="multipart/form-data".

---- < input type="file" > 也 是 必 须 的.

---- 当 对form 确 认 后, 浏 览 器 将 会 传 送 指 定 文 件 的 内 容.

---- 在asp 中 实 际 上 只 用 了 两 条 语 句 就 实 现 了 上 载

---- < % set upl = server.createobject("softartisans.fileup") % >

---- < % upl.saveas "d:upload est.out" % >

---- 第 一 条 语 句 使 用 一 个softartisans.fileup 的 对 象 创 建 了 一 个 名 为 upl 的 实 例, 这 里 用 到
了 一 个 称 为sa-fileup 的active server componet. 第 二 条 语 句 将 上 传 的 内 容 保 存 在 服 务 器 上.