需求说明:当用户点击按钮时使当前按钮为不可用,并打开新页面,关闭新页面时,按钮变为可用。并且如果不关闭新页面,当前按钮过10秒钟自动变为可用。

包含3个页面:

一、按钮页

前台代码:当刷新后采用js进行disable后,点击的时候也可以用JS使其为disable,让整个过程都disable。(如果采用的是后台button.Enable=false,则不行,因为服务器端状态始终为false,导致按钮只能用一次。)

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Default2" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<script type="text/javascript" language="javascript"> function disableButton(button) {
var btn = document.getElementById(button);
setTimeout(function () {disable_in(btn); },);
}
function disable_in(button)
{
button.disabled=false;
}
function Enablebutton(buttonID) {
var button = document.getElementById(buttonID);
button.disabled = false;
}
function NotEnablebutton(buttonID) {
var button = document.getElementById(buttonID);
button.disabled = true;
} function disable_out(button) {
button.disabled = true;
} // function disableButton_Out(button) {
// setTimeout(function () { disable_out(button); }, 50);
// } </script>
<form id="form1" runat="server">
<div>
<asp:Button ID="Button1" runat="server" Text="Button" UseSubmitBehavior="false" OnClientClick="disable_out(this);"/>
<asp:Button ID="Button2" runat="server" Text="Button2" UseSubmitBehavior="false" OnClientClick="disable_out(this);"/>
</div>
</form>
</body>
</html>

后台代码:

这里用服务器端 Button1.Enabled = False代码, 当用JS还原为可用时,服务器端状态不会改变,因此多个按钮点击时会出现bug(点击第二个按钮时,第一个按钮会一起变为不可用)。所以这里将用js设置为不可用状态。

 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Session("ImagePath") = "\\129.223.229.102\Dis_project\Temp\test.pdf"
'Session("ImagePath") = "\\129.223.229.102\Dis_project\Temp\test1.zip"
Session("CurrentButtonID") = Button1.ClientID
Session("IsPDF") = True
System.Threading.Thread.Sleep()
ClientScript.RegisterStartupScript(ClientScript.GetType(), "myscript1", String.Format("<script>disableButton('" & Button1.ClientID & "')</script>"))
    ClientScript.RegisterStartupScript(ClientScript.GetType(), "myscript2", String.Format("<script>NotEnablebutton('" & Button1.ClientID & "');</script>"))
ClientScript.RegisterStartupScript(ClientScript.GetType(), "myscript", String.Format("<script>window.open('ShowPDF.aspx')</script>"))
'Button1.Attributes.Add("OnClientClick", String.Format("javascript:disableButton_Out(this);"))
'Button1.Enabled = False End Sub

二、下载(显示)页面

前台代码:

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="ShowPDF.aspx.vb" Inherits="ShowPDF" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>ShowPDF</title>
</head>
<body>
<form id="form1" runat="server"> <%--<script type="text/javascript" language="javascript">
window.onbeforeunload = closingCode;
function closingCode() {
opener.Enablebutton();
} </script>--%>
<%--<% GetPDF1()%>--%>
<iframe src="Default3.aspx" width="100%" height="100%">
</iframe>
</form>
</body>
</html>

后台代码:

Imports System.Net
Partial Class ShowPDF
Inherits System.Web.UI.Page Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim js As String = ""
Dim buttonid As String = ""
If Not Session("ImagePath") Is Nothing AndAlso Not Session("CurrentButtonID") Is Nothing Then
buttonid = Session("CurrentButtonID").ToString()
js = "<script>window.onbeforeunload = closingCode;function closingCode() {opener.Enablebutton('" + buttonid + "');}</script>"
'js = String.Format("<script>window.onbeforeunload = closingCode;function closingCode() {opener.Enablebutton('{0}');}</script>", "Button1")
Response.Write(js) 'write the enable parent button'js
End If End Sub
Public Sub ShowPDFfile()
Dim str As String = ""
If Not Session("ImagePath") Is Nothing Then
str = String.Format("<object data=""\\129.223.229.102\Dis_project\Temp\test.pdf"" type=""application/pdf"" width=""100%"" height=""100%""><p>It appears you don't have a PDF plugin for this browser.No biggie... you can <a href=""em.pdf"">click here todownload the PDF file.</a></p></object>")
End If
Response.Write(str)
End Sub Public Sub GetPDF(ByVal path As String)
'Dim path As String = Server.MapPath(Spath)
Dim client As New WebClient()
Dim buffer As [Byte]() = client.DownloadData(path) If buffer IsNot Nothing Then
Response.ContentType = "application/pdf"
Response.AddHeader("content-length", buffer.Length.ToString())
Response.BinaryWrite(buffer)
Response.Flush()
Response.End()
End If
End Sub
Protected Sub DownloadFile(ByVal fileName As String)
'20110905 Test Export with SSL using IE 7
Dim s_path As String = fileName 'HttpContext.Current.Server.MapPath("~/") +
Dim file As System.IO.FileInfo = New System.IO.FileInfo(s_path) Response.ClearHeaders() HttpContext.Current.Response.ContentType = "application/ms-download"
HttpContext.Current.Response.Charset = "utf-8"
Response.AddHeader("Content-Disposition", "inline; filename=" + HttpUtility.UrlEncode(fileName, System.Text.Encoding.UTF8)) 'inline
HttpContext.Current.Response.AddHeader("Content-Length", file.Length.ToString())
Response.AddHeader("Pragma", "public")
Response.AddHeader("Cache-Control", "max-age=0")
Response.Flush()
HttpContext.Current.Response.WriteFile(file.FullName)
HttpContext.Current.Response.Flush()
'HttpContext.Current.Response.Clear()
HttpContext.Current.Response.End() End Sub
Public Sub GetPDF1()
Dim fileName As String = "\\129.223.229.102\Dis_project\Temp\test1.pdf"
Response.ContentType = "application/pdf"
Response.Clear()
Response.TransmitFile(fileName)
Response.End()
End Sub
End Class

三、框架中的真正的下载(显示页面),显示在框架中

前台代码:

后台代码:

 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim fileName As String = ""
If Not IsPostBack Then
If Not Session("ImagePath") Is Nothing AndAlso Not Session("CurrentButtonID") Is Nothing Then
fileName = Session("ImagePath").ToString()
GetPDF1(fileName)
End If End If End Sub
Public Sub GetPDF1(ByVal fileName As String)
'Dim fileName As String = "\\129.223.229.102\Dis_project\Temp\test1.pdf" If Session("IsPDF") = False Then
Response.ContentType = "application/zip"
Response.AddHeader("Content-Disposition", "attachment; filename=" + HttpUtility.UrlEncode(fileName, System.Text.Encoding.UTF8))
Else
Response.ContentType = "application/pdf"
End If
Response.Clear()
Response.TransmitFile(fileName)
Response.End()
End Sub

ASP.NET 下载文件并继续执行JS解决方法的更多相关文章

  1. Asp.Net 下载文件的几种方式

    asp.net下载文件几种方式 protected void Button1_Click(object sender, EventArgs e) { /* 微软为Response对象提供了一个新的方法 ...

  2. 自动化测试中执行JS脚本方法封装

    执行JS脚本方法封装: class JavaScript(Base): def execute_javascript(self, js): """执行 JavaScrip ...

  3. XCode编译文件过多导致内存吃紧解决方法

    XCode编译文件过多导致内存吃紧解决方法 /Users/~~/Library/Developer/Xcode/DerivedData 1) 然后 找到编译文件 删除 就好了哦 快去试试看吧

  4. PowerShell因为在此系统中禁止执行脚本解决方法

    PowerShell因为在此系统中禁止执行脚本解决方法   在Powershell直接脚本时会出现: 无法加载文件 ******.ps1,因为在此系统中禁止执行脚本.有关详细信息,请参阅 " ...

  5. (转)调用System.gc没有立即执行的解决方法

    调用System.gc没有立即执行的解决方法 查看源码 当我们调用System.gc()的时候,其实并不会马上进行垃圾回收,甚至不一定会执行垃圾回收,查看系统源码可以看到 /** * Indicate ...

  6. SQL Server作业没有执行的解决方法

    SQL Server作业没有执行的解决方法  确保SQL Agent服务启动,并设置为自动启动,否则你的作业不会被执行    设置方法:  我的电脑--控制面板--管理工具--服务--右键 SQLSE ...

  7. WebBrowser 的 DocumentCompleted事件不执行的解决方法

    原文:WebBrowser 的 DocumentCompleted事件不执行的解决方法 WebBrowser 的 DocumentCompleted事件不执行的解决方法: 使用WebBrowser的P ...

  8. asp.net下载文件几种方式

    测试时我以字符流的形式下载文件,可行,前几个仅作参考 protected void Button1_Click(object sender, EventArgs e)  {  /*  微软为Respo ...

  9. Asp.net下载文件

    网站上的文件是临时文件, 浏览器下载完成, 网站需要将其删除. 下面的写法, 文件读写后没关闭, 经常删除失败. /// <summary> /// 下载服务器文件,参数一物理文件路径(含 ...

随机推荐

  1. TP数据访问

    重点学习了: 1,ThinkPHP查询数据 2.ThinkPHP添加数据 LianXiController.class.php <?php namespace Home\Controller; ...

  2. Ubuntu 12 修改环境变量

    Ubuntu Linux系统包含两类环境变量:系统环境变量和用户环境变量.系统环境变量对所有系统用户都有效,用户环境变量仅仅对当前的用户有效. 修改用户环境变量 用户环境变量通常被存储在下面的文件中: ...

  3. 怎样用Lodrunner测试WAP站点的性能(两种解决方案)

    其实用IE就可以的!!!! 1.借助opera实现对WAP站点的录制 第一:安装opera软件 第二:Lodrunner选择Web(HTTP/HTML)协议 第三:Lodrunner的Applicat ...

  4. 非阻塞SOCKET套接字connect等待时间的实现

     SOCKET cClient;     cClient=socket(AF_INET,SOCK_STREAM,0);     //设置为非阻塞套接字     int iMode = 1;     i ...

  5. C++ stringstream

    C++ 引入了ostringstream.istringstream.stringstream这三个类,这三个类包含在sstream.h头文件中.三个类中 1)istringstream类用于执行C+ ...

  6. [codevs1157]2^k进制数

    [codevs1157]2k进制数 试题描述 设r是个2k 进制数,并满足以下条件: (1)r至少是个2位的2k 进制数. (2)作为2k 进制数,除最后一位外,r的每一位严格小于它右边相邻的那一位. ...

  7. git 教程(2)--创建版本库

    什么是版本库呢?版本库又名仓库,英文名repository,你可以简单理解成一个目录,这个目录里面的所有文件都可以被Git管理起来,每个文件的修改.删除,Git都能跟踪,以便任何时刻都可以追踪历史,或 ...

  8. 单链表的类的c++实现

    #include<iostream> using namespace std;template <class T>struct linkNode{ T data; linkNo ...

  9. python 字节与字符串转换

    name = 'laogaoyang' nameBytes = name.encode('utf-8') # 字节 nameStr = nameBytes.decode('utf-8')# 字符串 p ...

  10. bufferedimage 转换成 inputstream并保存文件

    BufferedImage img = removeBackgroud(file);//去除重影 //bufferedimage 转换成 inputstream ByteArrayOutputStre ...