软件工程

本类阅读TOP10
·PHP4 + MYSQL + APACHE 在 WIN 系统下的安装、配置
·Linux 入门常用命令(1)
·Linux 入门常用命令(2)
·使用 DCPROMO/FORCEREMOVAL 命令强制将 Active Directory 域控制器降级
·DirectShow学习(八)： CBaseRender类及相应Pin类的源代码分析
·基于ICE方式SIP信令穿透Symmetric NAT技术研究
·Windows 2003网络负载均衡的实现
·一网打尽Win十四种系统故障解决方法
·数百种 Windows 软件的免费替代品列表
·收藏---行百里半九十

→ 分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
ASPupload组件使用帮助

作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站
ASPupload组件使用帮助
使用ASP实现文件上载到WEB服务器

ASPupload 2.0版，相关源文件如下（uploadTest.htm）：






name="UPloadForm">

　







其中客户端文件要注意两点：
* 文件上载提交表单(Form)的enctype必须指定为“multipart/form-data”
* 语句表示上载文件域，用户可以在该域中输入或选定文件。

服务器端源文件如下（uploadTest1.asp）：

<%response.buffer=true%>

<%Set Upload=Server.createobject("Persits.Upload.1") '创建文件上载组件
Count=Upload.Save("e:\aspupload") '将客户端文件保存到WEB服务器端的本地硬盘上%>






上载了<%=Count%>个文件


File has been uploaded.





其中，脚本Set Upload=Server.createobject("Persits.Upload.1")创建了文件上载组件，该组件通过调用Save方法将浏览器端的文件内容保存到指定路径。


将文件存在数据库中

将文件保存在数据库中主要用了ASPUpLoad组件中文件对象的ToDatabase方法。源文件如下：
客户端源文件（uploadToDB.htm）：






name="FormUpload">




读取数据库中文件





服务器端源文件（uploadToDB.asp）：







<%Set Upload=Server.createobject("Persits.Upload.1")
Count=Upload.Save("e:\aspupload")
on error resume next
set FileObj=Upload.Files("FileUpload")
SQL="insert into upLoadFile (Title,FileName,Content) values ('"&FileObj.Path&"','"&FileObj.Path&"',?)"
response.write SQL
FileObj.ToDatabase "DSN=FileUpload;UID=sa;",SQL
if Err<>0 then
Response.write "Error Saving the file:"&Err.Description
else
FileObj.delete
response.write "Success!"
end if
%>




从数据库中读取文件内容并发送给客户端浏览器

从数据库中读取内容在发送给浏览器之前，首先必须让浏览器知道内容的数据类型，这通过向客户端发送ContentType描述实现。为简单起见，这里假设发送的内容是Word文档，并且显示最新插入的记录。源文件如下：
客户端源文件为uploadToDB.htm（同上一部分的客户端文件）。
服务器端源文件（readFile.asp）：
<%Response.Expires = 0
response.buffer=true%>
<%response.clear
Response.ContentType = "application/msword"
set conn=server.createobject("adodb.connection")
conn.open "DSN=FileUpload;UID=sa;"
set rs1=conn.execute("select maxid=max(id) from uploadFile")
SQL="select * from uploadFile where id="&rs1("maxid")
set rs=conn.execute(SQL)
Response.BinaryWrite rs("Content")
rs.close
rs1.close
conn.close
Response.End
%>

其中，Web Server向客户端发送Content-Type="application/msword",使客户端认为这是Word文档，然后服务器从数据库中读取文件内容（为简单起见，假定是数据库中最后一条记录），然后以二进制流的方式向客户端发送（调用ASP内置对象Response的BinaryWrite方法）。当客户端接收到这些内容后便自动启动Word OLE服务，使Word控件嵌在浏览器IE中将收到的内容格式化显示。

相关文章：

相关软件：