下载问题,大家帮忙,务必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>
-------------------------------------------
本人曾用此方法上传下载到文件夹,没有出现问题,请大虾指点从数据库导出时的问题