87,988
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
sealike 2003-05-08
- 打赏
- 举报
前提可是.doc文件啊，.doc文件能直接下载吗
luok 2003-05-08
- 打赏
- 举报
这个还不容易吗?
点击连接时,弹出到一个"无地址,菜单栏"的窗口,同时连接到AAA.ASP,将文件名传给AAA.ASP,AAA.ASP里面只有"下载"/"打开" 的连接,用上面方法分别实现打开和下载的功能.
点击连接时,弹出到一个"无地址,菜单栏"的窗口,同时连接到AAA.ASP,将文件名传给AAA.ASP,AAA.ASP里面只有"下载"/"打开" 的连接,用上面方法分别实现打开和下载的功能.
sealike 2003-05-08
- 打赏
- 举报
我说的不明白吗?
我是要用户点击时alert提示,让用户选择是打开还是下载
我是要用户点击时alert提示,让用户选择是打开还是下载
luok 2003-05-07
- 打赏
- 举报
你想打开还是下载 ?
如果打开，需要客户端安装有WORD,然后作个连接就行了。
如果要下载，需要用到 wsj(骆驼)(从麻木中苏醒) 的办法,
如果打开，需要客户端安装有WORD,然后作个连接就行了。
如果要下载，需要用到 wsj(骆驼)(从麻木中苏醒) 的办法,
prettylife 2003-05-07
- 打赏
- 举报
你想要打开还是下载？
sealike 2003-05-07
- 打赏
- 举报
运行报错
wsj 2003-05-07
- 打赏
- 举报
不行
你可以在服务器端骗IE
test.asp
-------------
<%
response.ContentType="application/notmsword"
Const adTypeBinary = 1
Dim strFilePath
strFilePath = "c:\test.doc"
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
%>
你可以在服务器端骗IE
test.asp
-------------
<%
response.ContentType="application/notmsword"
Const adTypeBinary = 1
Dim strFilePath
strFilePath = "c:\test.doc"
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
%>
