Default.aspx：
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!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>
<form id="form1" runat="server">
<div>
請選擇身份：
<asp:DropDownList ID="DropDownList1" runat="server">
<asp:ListItem Value="0">請選擇身份</asp:ListItem>
<asp:ListItem Value="1">學生</asp:ListItem>
<asp:ListItem Value="2">管理者</asp:ListItem>
</asp:DropDownList><br />
<asp:Label ID="Label1" runat="server" Text="您的身分是..."></asp:Label>
<asp:Label ID="Label2" runat="server" ></asp:Label>
</div>
</form>
</body>
</html>
Default.aspx.vb：
Imports System.Text
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim str_js As New StringBuilder
str_js.Append("function TC(){")
'ClientID是為了取得經過編譯後的DropDownList1控制項ID
str_js.Append("var ddl = document.getElementById('" & DropDownList1.ClientID & "');")
str_js.Append("var lab = document.getElementById('" & Label2.ClientID & "');")
str_js.Append("switch(ddl.selectedIndex){")
str_js.Append("case 1:")
str_js.Append("lab.innerHTML='學生';")
str_js.Append("break;")
str_js.Append("case 2:")
str_js.Append("lab.innerHTML='管理者';")
str_js.Append("break;")
str_js.Append("default:")
str_js.Append("lab.innerHTML='';")
str_js.Append("}}")
DropDownList1.Attributes("onchange") = "TC();"
'假如未啟用asp.net ajax功能
If ScriptManager.GetCurrent(Page) Is Nothing Then
'有些情況下會需要以動態的方式加入用戶端指令碼。
'若要動態加入指令碼，請使用 RegisterClientScriptBlock 方法、RegisterClientScriptInclude 方法、RegisterStartupScript 方法或 RegisterOnSubmitStatement 方法，視您要加入指令碼的時間和方式而定。
'RegisterStartupScript方法會在最後面插入javascript程式碼
Page.ClientScript.RegisterStartupScript(Me.GetType(), "wjs2", str_js.ToString, True)
Else
'否則有啟用asp.net ajax功能
ScriptManager.RegisterStartupScript(Me, Me.GetType(), "wjs2", str_js.ToString, True)
End If
End Sub
End Class
執行結果如下：
請自行操作體驗...
沒有留言:
張貼留言