基本控制項

B1. 輸入姓名選擇性別按鈕輸出結果

  • 測試
  • TextBox輸入姓名
  • RadioButton選擇性別
  • Button按鈕送出
  • Label顯示結果

B1程式說明

  • 成果下載
  • If RadioButton1.Checked = True Then
    Label1.Text = TextBox1.Text & "超人" & ",歡迎光臨!"
    ElseIf RadioButton2.Checked = True Then
    Label1.Text = TextBox1.Text & "先生" & ",歡迎光臨!"
    Else
    Label1.Text = TextBox1.Text & "小姐" & ",歡迎光臨!"
    End If

B2 輸入姓名寫入資料庫

  • 程式下載
  • "Insert Into 會員資料表 (姓名,性別) Values ('" & TextBox1.Text & "','" & RadioButton1.Text & "')"

B3 新增跳頁讀取顯示

  • 程式下載
  • Session("姓名") = TextBox1.Text
  • Response.Redirect("B3B.aspx")
  • Page_Load
  • "SELECT 性別 FROM 會員資料表 WHERE((姓名 = '" & Session("姓名") & "'))"
  • If tk_datareader.Read() = True Then
  • tk_datareader.Item(0)

B4 多重專長選擇(CheckBoxList)

  • 測試
  • CheckBoxList多重選擇
  • Multiple Lines TextBox

B4程式說明

  • 參考程式
  • 成果下載
  • 使用For迴圈檢查所有選項
  • For intIndex = 0 To CheckBoxList1.Items.Count - 1
  • 檢查選項是否打勾
  • If CheckBoxList1.Items(intIndex).Selected Then

B5生日下拉選單

  • 測試
  • Page_Load網頁初始函式
  • 初始化年月日下拉選項
  • 年限制在5歲至60歲之間，依目前年份自動更新選項
  • 下拉月份便自動更新日的下拉選單
  • 月設定AutoPostBack
  • 月新增SelectIndexChanged事件
  • DDLDay.Items.Clear()

B5程式說明

  • 參考程式:年初始化
  • 參考程式:月控制日
  • 成果下載
  • Page_Load: 網頁進入時觸發的函式
  • 程式生成下拉子項
  • Dim j As New ListItem(i)
  • j = New ListItem(i)
  • 為了防止按鈕重複新增月份
  • If Not IsPostBack Then
  • 取得今年: iYear = Now().Year
  • 將月份DropDownList的AutoPostBack啟動
  • 啟用SelectedIndexChanged函式
  • Dim iMonth As Integer = DDLMonth.SelectedIndex + 1
  • DDLDay.Items.Clear()
  • 依據月份去重新更新DDLDay選項

B6設定生日按鈕跳至另一頁顯示日期

延伸作業1 閏年判定

作業要點

B7地址下拉選單

  • 測試
  • 資料庫匯入
  • 縣市查詢
  • 鄉鎮市區查詢
  • 路段查詢
  • 選擇縣市驅動鄉鎮市區
  • 選擇鄉鎮市區驅動路段
  • AutoPostBack
  • Visible

B7程式說明

B8郵遞區號前三碼查詢

  • 測試
  • 使用FormView顯示郵遞區號
  • 按鈕更新畫面
  • 轉錄下拉地址至TextBox

B8程式說明

B9會員註冊

  • 測試
  • ShopDB.accdb連線
  • 寫入會員資料表一筆資料
  • 跳至p08View.aspx
  • 使用GridView顯示會員資料表

B9程式說明

B10 讀取與更新資料

學習目標
  • DropDownList連結資料庫
  • 新增更新資料庫按鈕
  • 第一次登入網頁讀取序號=1的資料
  • 下拉序號變更時觸發重新讀取資料
  • 按下更新按鈕時更新選定序號的相關資料
  • 範例下載

B11 利用Timer顯示時間

學習目標

B12 利用Timer計秒

學習目標

B13 Chat Room基本介面功能

學習目標

B14 讀取多筆紀錄與清空資料庫

學習目標

B15 兩人模擬在同一網頁交談

學習目標
  • 專案下載
  • 將A、B兩人送出的文字分筆寫入資料庫
  • 將全部連線編號為AB的紀錄讀出，更新畫面

B16 兩人聊天室

學習目標

B17 計算直接來電分數 採用表格搜尋法

  • 下載練習網站
  • EVLovevb.txt
  • 讀入表格
  • Dim DtApter As OleDbDataAdapter = New OleDbDataAdapter(tk_sql, tk_conn)
  • Dim DtSet As DataSet = New DataSet
  • DtApter.Fill(DtSet, "table01")
  • Dim m_tb1 As DataTable
  • m_tb1 = DtSet.Tables("table01")

B20 Upload