<%@ Page Language="VB" %> <script runat="server"> Sub Page_Load(sender As Object, e As EventArgs) Me.lblText1.Text = IIf(Now.Day=10,"Today = 10","Today <> 10") Call mySub(IIf(Now.Day=10,True,False)) End Sub Sub mySub(strString) Me.lblText2.Text = strString End Sub </script> <html> <head> </head> <body> <form runat="server"> <asp:Label id="lblText1" runat="server"></asp:Label><br /> <asp:Label id="lblText2" runat="server"></asp:Label><br /> </form> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท