下载问题，大家帮忙，务必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. 
<%
'上传和下载在同一个页面，主要是为了测试
Set upl = Server.CreateObject("SoftArtisans.FileUp")'用的是sa的file-up组件
Response.Write upl.UserFilename &" "
filename= Mid(upl.form("File1").UserFilename, InstrRev(upl.form("File1").UserFilename, "\") + 1)

Response.Write filename &" "
Response.Write upl.ContentType&" "
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

%> 

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

-------------------------------------------
本人曾用此方法上传下载到文件夹，没有出现问题，请大虾指点从数据库导出时的问题

...全文

45 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

tripofdream 2002-05-09

打赏
举报

我手上的相关资料只有e文的RFC文档.
可以到http://go7.163.com/zeroworld/program/http-1.htm看看(需要对TCP/IP有一点了解).

eshao 2002-05-09

打赏
举报

谢谢，程序可以运行了
我查了一下书，关于response.addheader的用法
“通过使用name和ｃｏｎｔｅｎｔ值，创建一个定制的ｈｔｔｐ报头，并增加到响应之中。不能替换现有现有的相同名称的报头。一旦已经增加一个报头就不能被删除。这个方法必须再任何页面内容即"test"和html被发送客户端前使用。
你能不能给我讲讲这些意思，本人对http报头不理解，或推荐文章

tripofdream 2002-05-09