可以把一些过程放在类里面!!!!!!!!!
==============================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