在“另存为”对话框弹出之前显示一条消息

时间:2014-05-23 12:48:58

标签: javascript web vbscript asp-classic

我是一个经典的asp页面,可以查询Web服务并向客户端生成数据。加载数据后,它应弹出一个"另存为"浏览器对话框,因此客户端可以将文件保存在.doc。

我已经完成了这件事。我的问题开始于我被要求在"保存为对话框之前发送消息"弹出。这是我的代码:

'*********************
'* Get the webservice content
'*********************
Dim oHTTP : Set oHTTP = CreateObject("Msxml2.XMLHTTP")
oHTTP.Open "GET", URL, False
oHTTP.Send
If 200 = oHTTP.Status Then
   HTML = oHTTP.responseText
Else
   ' handle error
End If

'*********************
'* Write the content in a .doc
'*********************
Response.Write(HTML)

'***********************
'* Open "Save as" dialog
'***********************
Response.ContentType = "application/x-unknown"
FileName = "*.doc"
Response.Addheader "Content-Disposition", _
    "attachment; filename=" & chr(34) & FileName & chr(34)
%>


<html>
<head>
 <script type="text/javascript">
     alert("Loading Webservice data...")
 </script>
</head>
</html>

出于某种原因,&#34;打开另存为对话框&#34;代码正在吞噬javascript使其无法执行。

如果我评论&#34;打开另存为对话框&#34;行和运行代码,javascript将工作,但当代码被激活时,它不会显示消息。

我认为asnwer很简单,但我不是一个经典的ASP开发人员,所以我有点迷失。

所以我的问题是:

如何在弹出&#34;另存为对话框&#34之前显示加载消息?

0 个答案:

没有答案