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>")
以上方法只有在页面刷新之后才有效。