open file

[Jackie Wang]

I am writing a webpage using MS frontpage.
I have a hyperlink to another Word file in the same directory.
When I get into this page and click on the hyperlink, browser goes to the word file directly.
Are there anyway to prompt the user an option
"save to disk" or "open the file"?
I don't know whether I have posted this msg @ the right page. But thanks!

[John Hembree]

I hope that this will work for you. I found it here. This is client side vb script. You can wrap it in a function and then add it to your <a href> tag as an onClick event.

 
<%
'--------------------------------------------
Response.Buffer = True
Dim strFilePath, strFileSize, strFileName
Const adTypeBinary = 1
strFilePath = "C:\ whatever the path is "
strFileSize = ... the size of file .. optional
strFileName = the file na,e 
Response.Clear
'8*******************************8
' Requires MDAC 2.5 to be stable
' I recommend MDAC 2.6 or 2.7
'8*******************************8
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
strFileType = lcase(Right(strFileName, 4))
' Feel Free to Add Your Own Content-Types Here
Select Case strFileType
Case ".asf"
ContentType = "video/x-ms-asf"
Case ".avi"
ContentType = "video/avi"
Case ".doc"
ContentType = "application/msword"
Case ".zip"
ContentType = "application/zip"
Case ".xls"
ContentType = "application/vnd.ms-excel"
Case ".gif"
ContentType = "image/gif"
Case ".jpg", "jpeg"
ContentType = "image/jpeg"
Case ".wav"
ContentType = "audio/wav"
Case ".mp3"
ContentType = "audio/mpeg3"
Case ".mpg", "mpeg"
ContentType = "video/mpeg"
Case ".rtf"
ContentType = "application/rtf"
Case ".htm", "html"
ContentType = "text/html"
Case ".asp"
ContentType = "text/asp"
Case Else
'Handle All Other Files
ContentType = "application/octet-stream"
End Select

Response.AddHeader "Content-Disposition", "attachment; filename= strFileName
Response.AddHeader "Content-Length", strFileSize
' In a Perfect World, Your Client would also have UTF-8 as the default 
' In Their Browser
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
%> 

[ May 03, 2003: Message edited by: John Hembree ]

[John Hembree]

This one works, this would be a lot simpler. It's from here.
Multipurpose Internet Mail Extensions (MIME) is a wonderful thing,
allowing your Web browser to automatically display content of many
different formats natively within the browser window. However,
sometimes, you may want users to download this content to their
client computer rather than simply viewing it in the browser. But
how do you override the browser's determination to render known
MIME types itself? The answer is to use a content disposition
header in your Web page.
Suppose you've written an ASP page that contains a link to a known
MIME type, but you want the user to download the file instead of
viewing it. Here's an example:

<% @LANGUAGE = VBScript %>
<% Option Explicit 
dim Filename
Filename = "test.xls"
response.addheader "content-disposition","attachment; filename=test.xls"
server.transfer Filename
%> 

Then substitute the actual filename and extension, and it's as good as done. When your users click on the link, they'll immediately see the download dialog box instead of the file's contents.
[ May 04, 2003: Message edited by: John Hembree ]

[Jackie Wang]

thanks,
however, if I wanna include this script in a simple html page, is that possible?
Thanks!