虎内裤

可以把一些过程放在类里面!!!!!!!!!
==============================CLASS1.VB
Imports Microsoft.VisualBasic
Namespace 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 Class
End Namespace
==============WebForm6.ASPX.VB
Imports admin.XUHU
Public Class WebForm6
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    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