.NET Tutorials, Forums, Interview Questions And Answers
Welcome :Guest
 
Sign In
Register
 
Win Surprise Gifts!!!
Congratulations!!!


Top 5 Contributors of the Month
david stephan

Home >> Code Snippets >> ASP.NET Controls >> Post New Resource Bookmark and Share   

 Subscribe to Code Snippets

Download files using Classic ASP

Posted By:Athira Sreejith       Posted Date: April 07, 2009    Points: 10    Category: ASP.NET Controls    URL: http://www.dotnetspark.com  
 

 

Download files using Classic ASP

 

<%@ Language=VBScript %>
<%
 Dim fn
 Dim FPath
 Dim adoStream 
 
 if(Request("f")=vbNullString) then
  Response.Write "

File not found

"
  Response.Write "

CLICK HERE TO CONTINUE" 
 else
  fn=trim(Request("f")) 
  Response.ContentType = "application/x-msexcel" ' arbitrary       
  Response.AddHeader "Contents-Disposition","attachement;filename="& fn  
  FPath=Request.ServerVariables("APPL_PHYSICAL_PATH") &  fn   
  Response.AddHeader "Content-Disposition","attachment; filename=" & fn
  Set adoStream = CreateObject("ADODB.Stream")
  adoStream.Open()
  adoStream.Type = 1
  adoStream.LoadFromFile(FPath)        
  Response.BinaryWrite adoStream.Read()
  adoStream.Close
  Set adoStream = Nothing
    end if
 
%>

 

<%@ Language=VBScript %> <% Dim fn Dim FPath Dim adoStream if(Request("f")=vbNullString) then Response.Write "

File not found

" Response.Write "

CLICK HERE TO CONTINUE" else fn=trim(Request("f")) Response.ContentType = "application/x-msexcel" ' arbitrary Response.AddHeader "Contents-Disposition","attachement;filename="& fn FPath=Request.ServerVariables("APPL_PHYSICAL_PATH") & fn Response.AddHeader "Content-Disposition","attachment; filename=" & fn Set adoStream = CreateObject("ADODB.Stream") adoStream.Open() adoStream.Type = 1 adoStream.LoadFromFile(FPath) Response.BinaryWrite adoStream.Read() adoStream.Close Set adoStream = Nothing end if %>

<%@ Language=VBScript %> <% Dim fn Dim FPath Dim adoStream if(Request("f")=vbNullString) then Response.Write "

File not found

" Response.Write "

CLICK HERE TO CONTINUE" else fn=trim(Request("f")) Response.ContentType = "application/x-msexcel" ' arbitrary Response.AddHeader "Contents-Disposition","attachement;filename="& fn FPath=Request.ServerVariables("APPL_PHYSICAL_PATH") & fn Response.AddHeader "Content-Disposition","attachment; filename=" & fn Set adoStream = CreateObject("ADODB.Stream") adoStream.Open() adoStream.Type = 1 adoStream.LoadFromFile(FPath) Response.BinaryWrite adoStream.Read() adoStream.Close Set adoStream = Nothing end if %>

 

<%@ Language=VBScript %> <% Dim fn Dim FPath Dim adoStream if(Request("f")=vbNullString) then Response.Write "

File not found

" Response.Write "

CLICK HERE TO CONTINUE" else fn=trim(Request("f")) Response.ContentType = "application/x-msexcel" ' arbitrary Response.AddHeader "Contents-Disposition","attachement;filename="& fn FPath=Request.ServerVariables("APPL_PHYSICAL_PATH") & fn Response.AddHeader "Content-Disposition","attachment; filename=" & fn Set adoStream = CreateObject("ADODB.Stream") adoStream.Open() adoStream.Type = 1 adoStream.LoadFromFile(FPath) Response.BinaryWrite adoStream.Read() adoStream.Close Set adoStream = Nothing end if %>


     

Further Readings:

Responses

No response found. Be the first to respond this post

Post Comment

You must Sign In To post reply
Find More code samples in C#, ASP.Net, Vb.Net and more Here

Hall of Fame    Twitter   Terms of Service    Privacy Policy    Contact Us    Archives   Tell A Friend