VB.NET调用Javascrip函数

 

.ascx

 

<%@ Control Language="vb" AutoEventWireup="false" CodeFile="crm_affectset1.ascx.vb"

    Inherits="crm_gooling.crm_affectset1" %>

 

<script type="text/javascript">

    function forbidden() {

        var els = document.getElementsByTagName("*");

        var xs = true;

        if (document.getElementById("<%=fr_isautolink2.ClientID %>").checked == true) {

            xs = true;

        }

        else {

            xs = false;

        }

        for (var i = 0; i < els.length; i++) {

            if (els[i].type == "text" || els[i].type == "select-one") {

                els[i].disabled = xs;

            }

        }

    }

</script>

 

<div class="Graytable">

    <table border="0" cellpadding="0" cellspacing="0" width="100%">

 

 

.vb

 

Me.Page.ClientScript.RegisterStartupScript(Me.GetType(), "", "<script>forbidden();</script>")

 

说明：

此函数即可以调用在页面中自定义的函数，也可以调用系统中已有的函数例如：

Me.Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "clientScript", "<script>alert(1)</script>")

以上方法只有在页面刷新之后才有效。