欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

ASP 下載時(shí)重命名已上傳文件的新下載文件名的實(shí)現(xiàn)代碼

 更新時(shí)間:2012年03月03日 21:51:31   作者:  
標(biāo)題有點(diǎn)拗口,今天群里在說這個(gè)問題,CSDN有答案,附上,需要的朋友可以參考下
問題:我想上傳文件時(shí)后改名,下載時(shí)又將名改回來。
如:我上傳一張“我的照片.jpg”上傳后改為系統(tǒng)數(shù)名“20040302001.jpg”下載時(shí)又改回“我的照片.jpg”
其中的保存新舊文件名都用數(shù)據(jù)庫(kù)(已做)
就是下載時(shí)的改名做不出來。

代碼:
復(fù)制代碼 代碼如下:

<%
function dl(f,n)
on error resume next
Set S=CreateObject( "Adodb.Stream ")
S.Mode=3
S.Type=1
S.Open
S.LoadFromFile(f)
if Err.Number> 0 then
Response.Status= "404 "
else
Response.ContentType= "application/octet-stream "
Response.AddHeader "Content-Disposition: ", "attachment; filename= " & n
Range=Mid(Request.ServerVariables( "HTTP_RANGE "),7)
if Range= " " then
Response.BinaryWrite(S.Read)
else
S.position=Clng(Split(Range, "- ")(0))
Response.BinaryWrite(S.Read)
End if
end if
Response.End
end function
%>

函數(shù)使用示例:
復(fù)制代碼 代碼如下:

call dl(Server.MapPath( "download/20040302001.jpg "), "我的照片.jpg ")

相關(guān)文章

最新評(píng)論