<%
Function download(File) 
      temp = Split(File, "\") 
      filename = temp(UBound(temp)) 
      Set s = CreateObject("adodb.stream") 
      s.mode = 3 
      s.Type = 1 
      s.Open 
      s.loadfromfile(File) 
      data = s.Read 
      If IsNull(data) Then  
          response.Write "Пе" 
      Else 
          response.Clear 
          Response.ContentType = "application/octet-stream" 
          Response.AddHeader "Content-Disposition", "attachment; filename=" & filename 
          response.binarywrite(data) 
      End If 
      Set s = Nothing 
End Function

pic = request("url")
c = request("c")

if c="downbuyka" then
call download(server.mappath("/updata/daochuokka/"&pic)) 
else
call download(server.mappath("/updata/kucunka/"&pic)) 
end if

response.End()
%>