Tiger

You can put some procedures in the class !!!!!!!!! ============================== Class1.vbimports Microsoft.VisualBasicNamespace XUHU Public Class TIGER Public Function TEST1 () As String TEST1 = DateTime.Now.Date.ToString End Function Public Function TEST2 () As String TEST2 = Mid (DateTime.Now.Date.ToString, 1, 2) End Function End classnd namespace ============== WebForm6.aspx.vbimports admin.xuhupublic class Webform6 inherits system.web.ui.page

#Region "The code" of the web form designer "

'This call is required for the web form designer. private subinitializecomponent ()

End Sub

'Note: The following placeholders declare are required by the web form designer. 'Don't delete or move it. Private DesignerPlaceHolderDeclaration as System.Object

Private Sub Page_init (Byval E AS System.EventArgs) Handles mybase.init 'Codegen: This method call is required by the Web Form Designer' Do not modify it using the code editor. InitializationComponent () End Sub

#End region

Private Sub Page_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Dim HELLO As New TIGER' Response.Write (HELLO.TEST1 ()) Response.Write ((New TIGER) .TEST1) Response.write (datetime.now.day) End Sub

END CLASS