統計表

SELECT     申請網路, CASE WHEN 申請網路 = '1' THEN '校內學術網路' WHEN 申請網路 = '2' THEN '八人用光纖' ELSE '四人用光纖' END AS 類型名稱, 
                      SUM(tCount) AS 人數
FROM         (SELECT     dbo.床位申請_團體.申請網路, COUNT(*) AS tCount
                       FROM          dbo.床位申請_團體 INNER JOIN
                                              dbo.床位申請明細_團體 ON dbo.床位申請_團體.申請序號 = dbo.床位申請明細_團體.申請序號
                       GROUP BY dbo.床位申請_團體.申請網路
                       UNION ALL
                       SELECT     申請網路, COUNT(*) AS tCount
                       FROM         dbo.床位申請明細_個人
                       GROUP BY 申請網路) AS tmp
GROUP BY 申請網路

登入頁面的設定

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '判斷是否為不合法的URL連線 - 沒有以參數(Key)方式, 傳遞登入帳號
        '如: http://~/管理專區/管理專區.aspx
        If Request.QueryString.HasKeys = False Then
            '沒有以參數(Key)方式, 傳遞登入帳號
            '自動導向CUTe WWW
            Response.Redirect("http://www")
        Else
            '以參數(Key)方式, 傳遞登入帳號
            '取得登入帳號
            Session("Manager_ID") = Request.QueryString("id").ToString()
            'Label1.Text = Session("Manager_ID")
            hf_Manager_ID.Value = Session("Manager_ID")
            '判斷是否為不合法的登入帳號連線 - 非管理者登入帳號(Key)
            '如: http://~/管理專區/管理專區.aspx?id=XXXX
            If hf_Manager_ID.Value <> "02370" Then
                '自動導向 WWW
                Response.Redirect("http://www")
            End If
        End If
End Sub

登入該頁的pageload
需給一個HiddenField

刪除確認??

if(!confirm('是否確定要刪除?')){return false;}"

在OnClientClick中加入
or

return confirm('確認要刪除嗎？');

or

<script language="javascript" type="text/javascript">
 function ConfirmDeletion() {
  if (event.srcElement.value == "刪除" )
  event.returnValue = confirm("確定要刪除嗎？");
 } document.onclick = ConfirmDeletion;
</script>

動態下拉式選單

If ddl_Stu1_Sex.SelectedValue = "女" Then
            ddl_Stu2_Sex.Items.Clear()
            ddl_Stu3_Sex.Items.Clear()
            ddl_Stu4_Sex.Items.Clear()
            ddl_Stu2_Sex.Items.Add("女")
            ddl_Stu3_Sex.Items.Add("女")
            ddl_Stu4_Sex.Items.Add("女")
        Else
            ddl_Stu2_Sex.Items.Clear()
            ddl_Stu3_Sex.Items.Clear()
            ddl_Stu4_Sex.Items.Clear()
            ddl_Stu2_Sex.Items.Add("男")
            ddl_Stu3_Sex.Items.Add("男")
            ddl_Stu4_Sex.Items.Add("男")
            ddl_Floor.Parent.DataBind()

        End If

接Return參數

Protected Sub btn_Check_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Check.Click
        Me.SqlDataSource1.SelectParameters("學號").DefaultValue = Me.txt_Stu1_ID.Text
        Me.SqlDataSource1.Select(DataSourceSelectArguments.Empty)
        
    End Sub
    Protected Sub SqlDataSource1_Selected(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceStatusEventArgs) Handles SqlDataSource1.Selected
        Dim cmd As IDbCommand = e.Command
        Dim Return_Param As SqlParameter
        Return_Param = CType(cmd.Parameters("@RETURN"), SqlParameter)
        If Return_Param.Value > 0 Then
            Me.Label1.Text = "重複申請!!"
        Else
            sds_SingleApplyDetailsWithCommit.Insert()
            Response.Redirect("申請成功.aspx")
        End If
    End Sub