1與0的世界

 Dim sb As Text.StringBuilder = New Text.StringBuilder

            'sb.Append("countDown();")

            'ClientScript.RegisterStartupScript(Me.GetType(), _
            '"RegStartUp_CD", sb.ToString(), True)

            'sb = New Text.StringBuilder

            'sb.Append("function countDown()")
            'sb.Append("{")
            'sb.Append("setTimeout('reDirct()', 2000);")
            'sb.Append("}")
            sb.Append("function reDirct()")
            sb.Append("{")
            sb.Append("window.location.replace('Default.aspx');")
            sb.Append("}")

            ClientScript.RegisterClientScriptBlock(Me.GetType(), _
            "RegScriptBlock_CD", sb.ToString(), True)

            ScriptManager.RegisterClientScriptBlock(Me, GetType(Object), "訊息", "alert('請登入會員！');reDirct();", True)
            Exit Sub