Como faço para forçar o download de um banco de dados Access ?

[Thammynha 0]

Olá!

 

Preciso fazer um link para que o usuário possa fazer um download do banco de dados do site dele.

 

Porém, o link direto para o banco só da opção de download no IE7.

 

Encontrei alguns scripts para forçar download, mas não funcionou....

 

Segue abaixo o erro.

 

Server Error in '/' Application.

--------------------------------------------------------------------------------

 

This type of page is not served.

Description: The type of page you have requested is not served because it has been explicitly forbidden. The extension '.mdb' may be incorrect. Please review the URL below and make sure that it is spelled correctly.

 

Alguém pode me ajudar por favor?

 

 

Att

 

Tamiris

[klaygomes 0]

Thammynha, forúm errado.

 

Você vai ter que configurar o seu IIS para "servir" (tornar disponível) este tipo de extenção (que por padrão vem bloqueadas para download/acesso externo). Uma outra alternativa é você escrever um código do lado do servidor que disponibiilze este arquivo.

 

você esta trabalhando com ASP? ASP.NET? O que?

[Thammynha 0]

Olá klaygomes,

 

Estou trabalhando com ASP.

[klaygomes 0]

Cria uma página nova e use este código:

 

<%
	'bigdownload.asp - download of files with size up to 2GB
	Sub SendFileByBlocks(FileName, BlockSize)
		Dim FileSize, ByteCounter
		FileSize = CreateObject("scripting.filesystemobject").GetFile(FileName).Size

		'Switch off buffer.
		Response.Buffer = False

		'This is download
		Response.ContentType = "application/x-msdownload"

		'Set file name
		Response.AddHeader "Content-Disposition", _
		  "attachment; filename=""" & GetFileName(FileName) & """"

		'Set Content-Length (ASP doen not set it when Buffer = False)
		Response.AddHeader "Content-Length", FileSize
		'Response.CacheControl = "no-cache"

		Dim BA
		Set BA = CreateObject("ScriptUtils.ByteArray")

		'Loop through file contents.
		For ByteCounter = 1 To FileSize Step BlockSize
			'Do not write data when client is disconnected
			If Not Response.IsClientConnected() Then Exit For

			'Read block of data from a file
			BA.ReadFrom FileName, ByteCounter, BlockSize

			'Write the block to output.
			Response.BinaryWrite BA.ByteArray
		Next
		
	End Sub


	Function GetFileName(FullPath)
		Dim Pos, PosF
		PosF = 0
		For Pos = Len(FullPath) To 1 Step -1
			Select Case Mid(FullPath, Pos, 1)
				Case ":", "/", "\": PosF = Pos + 1: Pos = 0
			End Select
		Next
		If PosF = 0 Then PosF = 1
		GetFileName = Mid(FullPath, PosF)
	End Function
%>

Qualquer outra dúvida, questione o pessoal do grupo de ASP,

 

Abraços,

[Thammynha 0]

Fiz o que pediu.. mas só q ele força o download da página criada.

Preciso de um que eu possa especificar o q é para baixar....