Asp classic 下载完成ASP时关闭窗口

我有这个功能保存在本地磁盘的PDF文件

如何在下载完成后自动关闭窗口，并显示一个警告/消息框，说明窗口将关闭

这不起作用：

Response.Write ("<script>alert('Save Finished'); self.close();</script>")

Response.Write（“警报（'Save Finished'）；self.close（）；”）

代码：

Private Function SaveLocal1(ByRef cnCon, ByVal PDFFile)
    Dim ObjStream
    Dim ObjFileSys
    Dim Size
    Dim fpath
    Dim bdata

    'Response.Write("<script>alert('local');</script>")

    fpath = "C:\1.pdf" 'path of the file in the local server
    filename = "LocalSave.pdf"     'name to be saved
        'Response.Write("<script>alert('file paths');</script>")

    Set ObjStream = Server.CreateObject("ADODB.Stream")
    ObjStream.Open
    ObjStream.Type = 1
    ObjStream.LoadFromFile fpath
        'Response.Write("<script>alert('server.createobject');</script>")

    Response.buffer = TRUE
    Response.AddHeader "Content-Disposition","attachment;filename="& filename & ";"
    Response.ContentType = "application/pdf"

    Set ObjFileSys =  CreateObject("Scripting.FileSystemObject")
    Size = ObjFileSys.GetFile(fpath).Size

    bdata = ObjStream.Read(Size)

    Response.BinaryWrite(bdata)     'the file will be saved in the downloads folder

    Response.Write("<script>alert('Save to local finish');</script>")
    ObjStream.Close
    Set ObjStream = Nothing    

    Response.Flush
    Response.End
    Response.Write ("<script>alert('Save Finished'); self.close();</script>")
End Function

私有函数SaveLocal1（ByRef cnCon，ByVal PDFFile）
暗流
Dim对象文件系统
暗淡的尺寸
暗通道
模糊数据
'Response.Write（“警报（'local'）；”）
fpath=“C:\1.pdf”'本地服务器中文件的路径
filename=“LocalSave.pdf”'要保存的名称
'Response.Write（“警报（'file path'）；”）
设置ObjStream=Server.CreateObject（“ADODB.Stream”）
对象流。打开
ObjStream.Type=1
ObjStream.LoadFromFile fpath
'Response.Write（“警报（'server.createobject'）；”）
Response.buffer=TRUE
Response.AddHeader“内容处置”、“附件；文件名=“&filename&；”
Response.ContentType=“application/pdf”
设置ObjFileSys=CreateObject（“Scripting.FileSystemObject”）
Size=ObjFileSys.GetFile（fpath）.Size
bdata=ObjStream.Read（大小）
Response.BinaryWrite（bdata）'文件将保存在下载文件夹中
响应。写入（“警报（‘保存到本地完成’；”）
ObjStream，关闭
设置ObjStream=Nothing
回答，齐平
答复.完
Response.Write（“警报（'Save Finished'）；self.close（）；”）
端函数

我想您的代码中可能有两个问题

第二期：

Response.End
Response.Write ("<script>alert('Save Finished'); self.close();</script>")

Response.End
Response.Write（“警报（'Save Finished'）；self.close（）；”）

Response.End——是最后一个命令。仅此而已。“文件”已完成

End方法导致Web服务器停止处理脚本并 返回当前结果。文件的其余内容不可用 已处理

将以下命令更改为：

Response.Write ("<script>alert('Save Finished'); self.close();</script>")
Response.End

Response.Write（“警报（'Save Finished'）；self.close（）；”）
答复.完

我想您的代码中可能有两个问题

第二期：

Response.End
Response.Write ("<script>alert('Save Finished'); self.close();</script>")

Response.End
Response.Write（“警报（'Save Finished'）；self.close（）；”）

Response.End——是最后一个命令。仅此而已。“文件”已完成

End方法导致Web服务器停止处理脚本并 返回当前结果。文件的其余内容不可用 已处理

将以下命令更改为：

Response.Write ("<script>alert('Save Finished'); self.close();</script>")
Response.End

Response.Write（“警报（'Save Finished'）；self.close（）；”）
答复.完

我想您的代码中可能有两个问题

第二期：

Response.End
Response.Write ("<script>alert('Save Finished'); self.close();</script>")

Response.End
Response.Write（“警报（'Save Finished'）；self.close（）；”）

Response.End——是最后一个命令。仅此而已。“文件”已完成

End方法导致Web服务器停止处理脚本并 返回当前结果。文件的其余内容不可用 已处理

将以下命令更改为：

Response.Write ("<script>alert('Save Finished'); self.close();</script>")
Response.End

Response.Write（“警报（'Save Finished'）；self.close（）；”）
答复.完

我想您的代码中可能有两个问题

第二期：

Response.End
Response.Write ("<script>alert('Save Finished'); self.close();</script>")

Response.End
Response.Write（“警报（'Save Finished'）；self.close（）；”）

Response.End——是最后一个命令。仅此而已。“文件”已完成

End方法导致Web服务器停止处理脚本并 返回当前结果。文件的其余内容不可用 已处理

将以下命令更改为：

Response.Write ("<script>alert('Save Finished'); self.close();</script>")
Response.End

Response.Write（“警报（'Save Finished'）；self.close（）；”）
答复.完

您看过这个主题吗：，它描述了如何通过Javascript关闭窗口。您看过这个主题吗：，它描述了如何通过Javascript关闭窗口。您看过这个主题吗：，它描述了如何通过Javascript关闭窗口。您看过这个主题吗：，它描述了如何通过Javascript关闭窗口。哈哈，我没有注意到响应。在响应之前结束。写吧，很好！有没有办法强迫IE在未经用户许可的情况下关闭标签？哈哈，我没有注意到响应。在响应之前结束。写吧，很好！有没有办法强迫IE在未经用户许可的情况下关闭标签？哈哈，我没有注意到响应。在响应之前结束。写吧，很好！有没有办法强迫IE在未经用户许可的情况下关闭标签？哈哈，我没有注意到响应。在响应之前结束。写吧，很好！有没有办法强迫IE在未经用户许可的情况下关闭选项卡？