Dim birthDate As String = "18/6/2010"
Dim dayOfWeek As String = DateTime.ParseExact(birthDate , "d/M/yyyy", System.Globalization.CultureInfo.InvariantCulture)
MessageBox.Show(dayOfWeek)
Dim birthDate As String = "18/6/2010"
Dim dayOfWeek As String = DateTime.ParseExact(birthDate , "d/M/yyyy", System.Globalization.CultureInfo.InvariantCulture).DayOfWeek.ToString()
MessageBox.Show(dayOfWeek)
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Collections
Imports System.Text
''' <summary>
''' Summary description for MessageBox
''' </summary>
Public Class MessageBox
Private Shared m_executingPages As New Hashtable()
Public Sub New()
'
' TODO: Add constructor logic here
'
End Sub
Public Shared Sub Show(sMessage As String)
' If this is the first time a page has called this method then
If Not m_executingPages.Contains(HttpContext.Current.Handler) Then
' Attempt to cast HttpHandler as a Page.
Dim executingPage As Page = TryCast(HttpContext.Current.Handler, Page)
If executingPage IsNot Nothing Then
' Create a Queue to hold one or more messages.
Dim messageQueue As New Queue()
' Add our message to the Queue
messageQueue.Enqueue(sMessage)
' Add our message queue to the hash table. Use our page reference
' (IHttpHandler) as the key.
m_executingPages.Add(HttpContext.Current.Handler, messageQueue)
' Wire up Unload event so that we can inject
' some JavaScript for the alerts.
AddHandler executingPage.Unload, New EventHandler(AddressOf ExecutingPage_Unload)
End If
Else
' If were here then the method has allready been
' called from the executing Page.
' We have allready created a message queue and stored a
' reference to it in our hastable.
Dim queue As Queue = DirectCast(m_executingPages(HttpContext.Current.Handler), Queue)
' Add our message to the Queue
queue.Enqueue(sMessage)
End If
End Sub
' Our page has finished rendering so lets output the
' JavaScript to produce the alert's
Private Shared Sub ExecutingPage_Unload(sender As Object, e As EventArgs)
' Get our message queue from the hashtable
Dim queue As Queue = DirectCast(m_executingPages(HttpContext.Current.Handler), Queue)
If queue IsNot Nothing Then
Dim sb As New StringBuilder()
' How many messages have been registered?
Dim iMsgCount As Integer = queue.Count
' Use StringBuilder to build up our client slide JavaScript.
sb.Append("<script language='javascript'>")
' Loop round registered messages
Dim sMsg As String
While System.Math.Max(System.Threading.Interlocked.Decrement(iMsgCount),iMsgCount + 1) > 0
sMsg = DirectCast(queue.Dequeue(), String)
sMsg = sMsg.Replace(vbLf, "\n")
sMsg = sMsg.Replace("""", "'")
sb.Append("alert( """ & sMsg & """ );")
End While
' Close our JS
sb.Append("</script>")
' Were done, so remove our page reference from the hashtable
m_executingPages.Remove(HttpContext.Current.Handler)
' Write the JavaScript to the end of the response stream.
HttpContext.Current.Response.Write(sb.ToString())
End If
End Sub
End Class
คลิกขวาที่ชื่อ project ใน solution explorer เลือก add asp.net folder-->app_data
Date :
2010-06-18 13:35:56
By :
tungman
No. 12
Guest
Dim birthDate As String = "18/6/2010"
Dim dayOfWeek As String = DateTime.ParseExact(birthDate , "d/M/yyyy", System.Globalization.CultureInfo.InvariantCulture).DayOfWeek.ToString()
MessageBox.Show(dayOfWeek)
Partial Class DatePicker
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dayOfWeek As String = DateTime.ParseExact(TextBox1.Text, "d/M/yyyy", System.Globalization.CultureInfo.InvariantCulture).DayOfWeek.ToString()
Label1.Text = dayOfWeek
End Sub
End Class
Load balance : Server 05
Quote:
จะต้องทำยังไง ??
