RegisterClientScriptBlock的使用 .

本文详细介绍了ASP.NET中两种脚本注册方法:RegisterStartupScript和RegisterClientScriptBlock。这两种方法都用于从前台向后台注入脚本,主要区别在于脚本插入的位置不同,前者在页面底部,后者在页面头部。

    上一章写了Asp.net中RegisterStartupScript方法的使用,在.net framework中与此相似的还有方法:RegisterClientScriptBlock.这两个方法的作用都是从前台向后台写脚本, 这两个方法唯一的不同之处在于从何处发送脚本块。RegisterClientScriptBlock() Web 窗体的开始处(紧接着form runat="server"标识之后)发送脚本块,而 RegisterStartupScript() Web 窗体的结尾处(在/form标识之前)发送脚本块。

      RegisterStartupScript() 用于添加要在加载页面后运行的脚本块,通过这种方法添加的脚本块位于 Web 窗体的结尾处,因为必须在脚本运行前定义脚本要修改的 HTML 元素。也就是说,如果您要使用客户端脚本将焦点设置到文本框,必须确保文本框的 HTML 标记位于设置该文本框的焦点的脚本之前。

      RegisterClientScriptBlock() 方法用于为响应客户端事件而执行的脚本代码。通过此方法发送的脚本块位于 Web 页面的开始处,因为这种方法不要求将脚本块置于所有 HTML 元素之后,它一般不使用文档内自定义的控件。

   如果你仅仅是注册一些函数,这两者的效果是一样的。但如果你要注册一些全局的脚本,如定义一些全局变量并赋值,那么它在HTML中的先后位置可能就比较重要,此时就应该用RegisterStartupScript保证脚本能在前面被执行。 

 

以下是该方法的一个使用实例(见msdn):

<html>
  <head>
     <script language="VB" runat="server">
    Sub Page_Load( sender as Object,e as EventArgs) 
                'Form the script that is to be registered at client side.
        Dim scriptString as String = "<script language=JavaScript> function DoClick() {"
        scriptString += "myForm.show.value='Welcome to Microsoft .NET'}<"
        scriptString += "/"
        scriptString += "script>"
      
            If(Not IsClientScriptBlockRegistered("clientScript"))
        RegisterClientScriptBlock("clientScript", scriptString)
        End If
     End Sub
     </script>
  </head>
  <body topmargin="20" leftmargin="10">
     <form id="myForm" runat="server">
        <input type="text" id="show" style="width=200">
      <input type="button" value="ClickMe" onclick="DoClick()">
     </form>
  </body>
</html>
Protected Sub Btn_send_Click(sender As Object, e As System.EventArgs) Handles Btn_send.Click 'If MsgBox(zqstr, MsgBoxStyle.YesNo, "Tips") = MsgBoxResult.Cancel Then ' Exit Sub 'End If 'If System.Web.UI.ScriptManager.RegisterClientScriptBlock(UpdatePanel1, GetType(UpdatePanel), "ConfirmBox", zqstr, True) Then ' Exit Sub 'End If If PaperNo.Text.Trim = "" Then System.Web.UI.ScriptManager.RegisterClientScriptBlock(UpdatePanel1, GetType(UpdatePanel), "AjaxMsgBox", "alert('無可送核的資料!');", True) Exit Sub End If If DBStatus.SelectedIndex = 1 Then System.Web.UI.ScriptManager.RegisterClientScriptBlock(UpdatePanel1, GetType(UpdatePanel), "AjaxMsgBox", "alert('該單據已送核,請勿重複作業!');", True) Exit Sub End If Dim sql As String sql = "Select 1 From Dor_MatInOutDtl_new(Nolock) Where PaperNo='" + PaperNo.Text.Trim + "'" Dim RecordCount As Integer = db.FillDataSet(sql).Tables(0).Rows.Count If RecordCount <= 0 Then System.Web.UI.ScriptManager.RegisterClientScriptBlock(UpdatePanel1, GetType(UpdatePanel), "AjaxMsgBox", "alert('該單據尚未K入明細資料,無法送核!');", True) Exit Sub End If Dim Message As String Try sql = "EXEC P_com_papertowf '" & PaperNo.Text.Trim & "' " db.ExecuteSql(sql) Dim str As String = "SELECT good_leave_m002 FROM ERP_WF.[WF].[dbo].good_leave_M," + "ERP_WF.[WF].[dbo].resda " + "WHERE resda001=good_leave_M001 " + "AND resda002=good_leave_M002 " + "AND resda021=1 " + "AND paperno='" & PaperNo.Text.Trim & "'" If db.FillDataSet(str).Tables(0).Rows.Count > 0 Then Message = "上傳WorkFlow成功!" DBStatus.SelectedIndex = 1 'SendEmail() Else Message = "上傳WorkFlow失敗!" End If Catch ex As Exception Message = ex.Message.ToString.Replace(vbCrLf, "") Finally System.Web.UI.ScriptManager.RegisterClientScriptBlock(UpdatePanel1, GetType(UpdatePanel), "AjaxMsgBox", "alert('" & Message & "');", True) End Try End Sub點擊OK后並不會觸發該方法
最新发布
09-18
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值