下载问题,大家帮忙,务必tripofdream (梦之旅) 看一下

eshao 2002-05-09 09:42:43
http://www.csdn.net/expert/topic/597/597165.xml?temp=.8626978

我是用组件上传,参考了你的下载代码,但发现下载后的文件名后缀名是.asp
我的代码如下
-------------------------------------------
<HTML><HEAD>
<TITLE>Uploadsimplerespond.asp by softwareartisans.com</TITLE>
</HEAD><BODY>
Thank you for uploading your file.<br>
<%
'上传和下载在同一个页面,主要是为了测试
Set upl = Server.CreateObject("SoftArtisans.FileUp")'用的是sa的file-up组件
Response.Write upl.UserFilename &"<br>"
filename= Mid(upl.form("File1").UserFilename, InstrRev(upl.form("File1").UserFilename, "\") + 1)

Response.Write filename &"<br>"
Response.Write upl.ContentType&"<br>"
set oconn=server.CreateObject("adodb.connection")
set ors=server.CreateObject("adodb.recordset")
oconn.open "DRIVER={SQL server};SERVER=allan;uid=sa;DATABASE=xiebo"
ors.CursorLocation=3
ors.Open "test",oConn,2,3,&h0002
ors.AddNew
upl.Form("FILE1").SaveAsBlob ors.Fields("filecontent")
ors.Fields("filename")=filename
ors.Fields("filetype")=upl.ContentType
ors.Update

'以上数据倒入数据库,下面是导出,
'下载
Response.Clear
'Response.End
Response.ContentType= ors("filetype")
lngOffset=0
conChunkSize=1024
lngPictSize=ors("FileContent").ActualSize
Do While lngOffset < lngPictSize
varChunk = ors("FileContent").GetChunk(conChunkSize)
Response.BinaryWrite varChunk
lngOffset = lngOffset + conChunkSize
If lngOffset > lngPictSize Then Exit Do
Loop

%><BR>

Total Bytes Written: <%=upl.TotalBytes%>
<a href=<%=serverpath%>>下载</a>
</BODY></HTML>

-------------------------------------------
本人曾用此方法上传下载到文件夹,没有出现问题,请大虾指点从数据库导出时的问题
...全文
9 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
tripofdream 2002-05-09
我手上的相关资料只有e文的RFC文档.
可以到http://go7.163.com/zeroworld/program/http-1.htm看看(需要对TCP/IP有一点了解).
回复
eshao 2002-05-09
谢谢,程序可以运行了
我查了一下书,关于response.addheader的用法
“通过使用name和content值,创建一个定制的http报头,并增加到响应之中。不能替换现有现有的相同名称的报头。一旦已经增加一个报头就不能被删除。这个方法必须再任何页面内容即"test"和html被发送客户端前使用。
你能不能给我讲讲这些意思,本人对http报头不理解,或推荐文章
回复
tripofdream 2002-05-09
在Response.ContentType= ors("filetype")前加上
Response.AddHeader "content-disposition","attachment; filename=" &
YourFileName
回复
eshao 2002-05-09
大家重点看看下载的问题,上传没有问题
回复
eshao 2002-05-09
e文的rfc别人给我看了,但明显看不懂
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2002-05-09 09:42
社区公告
暂无公告