为什么我不能通过 vbc /t:library /out:2.dll 2.vb 编译下面代码,代码文件名为: 2.vb Option Strict Off
Option Explicit On
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Collections.Specialized
Imports System.Configuration
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Web
Imports System.Web.Caching
Imports System.Web.Security
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Namespace ASP
Public Class _1s_aspx
Inherits System.Web.UI.Page
Implements System.Web.SessionState.IRequiresSessionState
Private Shared __autoHandlers As Integer
Private Shared __initialized As Boolean = false
Private Shared __fileDependencies As System.Collections.ArrayList
Sub Page_Load(sender As Object, e As EventArgs)
Dim Score As Byte = 70
If Score >= 60 Then Response.Write("及格!")
End Sub
Public Sub New()
MyBase.New
Dim dependencies As System.Collections.ArrayList
If (ASP._1s_aspx.__initialized = false) Then
dependencies = New System.Collections.ArrayList
ASP._1s_aspx.__fileDependencies = dependencies
ASP._1s_aspx.__initialized = true
End If
End Sub
Protected Overrides Property AutoHandlers As Integer
Get
Return ASP._1s_aspx.__autoHandlers
End Get
Set
ASP._1s_aspx.__autoHandlers = value
End Set
End Property
Protected ReadOnly Property ApplicationInstance As System.Web.HttpApplication
Get
Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
End Get
End Property
Public Overrides ReadOnly Property TemplateSourceDirectory As String
Get
Return "/netdll"
End Get
End Property
Private Sub __BuildControlTree(ByVal __ctrl As System.Web.UI.Control)
End Sub
Protected Overrides Sub FrameworkInitialize()
Me.__BuildControlTree(Me)
Me.FileDependencies = ASP._1s_aspx.__fileDependencies
Me.EnableViewStateMac = true
Me.Request.ValidateInput
End Sub
Public Overrides Function GetTypeHashCode() As Integer
Return 5381
End Function
End Class
End Namespace
Option Explicit On
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Collections.Specialized
Imports System.Configuration
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Web
Imports System.Web.Caching
Imports System.Web.Security
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Namespace ASP
Public Class _1s_aspx
Inherits System.Web.UI.Page
Implements System.Web.SessionState.IRequiresSessionState
Private Shared __autoHandlers As Integer
Private Shared __initialized As Boolean = false
Private Shared __fileDependencies As System.Collections.ArrayList
Sub Page_Load(sender As Object, e As EventArgs)
Dim Score As Byte = 70
If Score >= 60 Then Response.Write("及格!")
End Sub
Public Sub New()
MyBase.New
Dim dependencies As System.Collections.ArrayList
If (ASP._1s_aspx.__initialized = false) Then
dependencies = New System.Collections.ArrayList
ASP._1s_aspx.__fileDependencies = dependencies
ASP._1s_aspx.__initialized = true
End If
End Sub
Protected Overrides Property AutoHandlers As Integer
Get
Return ASP._1s_aspx.__autoHandlers
End Get
Set
ASP._1s_aspx.__autoHandlers = value
End Set
End Property
Protected ReadOnly Property ApplicationInstance As System.Web.HttpApplication
Get
Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
End Get
End Property
Public Overrides ReadOnly Property TemplateSourceDirectory As String
Get
Return "/netdll"
End Get
End Property
Private Sub __BuildControlTree(ByVal __ctrl As System.Web.UI.Control)
End Sub
Protected Overrides Sub FrameworkInitialize()
Me.__BuildControlTree(Me)
Me.FileDependencies = ASP._1s_aspx.__fileDependencies
Me.EnableViewStateMac = true
Me.Request.ValidateInput
End Sub
Public Overrides Function GetTypeHashCode() As Integer
Return 5381
End Function
End Class
End Namespace
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货