class

Tiger

Copyright Notice: 9CBS is this BLOG managed service provider. If this paper involves copyright issues, 9CBS does not assume relevant responsibilities, please contact the copyright owner directly with the article Author.

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