一个新手的问题运行出错信息: 未能加载类型“WebApplication2.Global”,请高手解答!

zsww 2003-09-06 04:59:26

新建一个应用程序 WebApplication2,一个窗体 WebForm1.aspx,采用代码后置
在浏览器中运行怎么会出现这种错误:未能加载类型“WebApplication2.Global”
疑惑中!....

//global.asax
<%@ Application Codebehind="Global.asax.vb" Inherits="WebApplication2.Global" %>

//global.asax.vb
Imports System.Web
Imports System.Web.SessionState

Public Class Global
Inherits System.Web.HttpApplication

#Region " 组件设计器生成的代码 "

Public Sub New()
MyBase.New()

'该调用是组件设计器所必需的。
InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

'组件设计器所必需的
Private components As System.ComponentModel.IContainer

'注意: 以下过程是组件设计器所必需的
'可以使用组件设计器修改此过程。
'不要使用代码编辑器修改它。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub

#End Region

Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
' 在应用程序启动时激发
End Sub

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' 在会话启动时激发
End Sub

Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
' 在每个请求开始时激发
End Sub

Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
' 尝试对使用进行身份验证时激发
End Sub

Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
' 在发生错误时激发
End Sub

Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
' 在会话结束时激发
End Sub

Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
' 在应用程序结束时激发
End Sub

End Class

//WebForm1.aspx
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="WebApplication2.WebForm1"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>_1</title>
<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
<meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body>
<form id="Form1" runat="server">
 
 

<TABLE id="Table1" style="WIDTH: 300px; HEIGHT: 94px" cellSpacing="1" cols="3" cellPadding="1"
width="300" border="1">
<TR>
<TD style="WIDTH: 116px; HEIGHT: 22px" colSpan="3">
用户登陆
</TD>
</TR>
<TR>
<TD style="WIDTH: 121px; HEIGHT: 22px">用户名:</TD>
<TD style="WIDTH: 116px; HEIGHT: 22px" colSpan="3"><asp:textbox id="TextBox1" runat="server"></asp:textbox></TD>
</TR>
<TR>
<TD style="WIDTH: 121px">密码:</TD>
<TD style="WIDTH: 116px" colSpan="3"><asp:textbox id="TextBox2" runat="server" TextMode="Password"></asp:textbox></TD>
</TR>
<TR>
<TD style="WIDTH: 121px" colSpan="4">
<asp:button id="ButtonOk" runat="server" Text="登陆"></asp:button>
<asp:button id="ButtonCancel" runat="server" Text="取消"></asp:button>
</TD>
</TR>
</TABLE>

</form>

<asp:Label id="lblMsg" runat="server">LblMsg</asp:Label>
</body>
</HTML>

//WebForm1.aspx.vb
Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.OleDb

Public Class one
Inherits System.Web.UI.Page

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

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

End Sub
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
Protected WithEvents ButtonOk As System.Web.UI.WebControls.Button
Protected WithEvents ButtonCancel As System.Web.UI.WebControls.Button
Protected WithEvents lblMsg As System.Web.UI.WebControls.Label

'注意: 以下占位符声明是 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 Object, ByVal e As EventArgs)
'在此处放置初始化页的用户代码
If Not Page.IsPostBack Then
'网页组件初始设置
lblMsg.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
End If
End Sub

Private Sub ButtonOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOk.Click
Dim strConn, strSQL As String
Dim myConn As OleDbConnection
Dim myCommand As OleDbCommand
Dim dr As OleDbDataReader

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".") & "/Intranet.mdb"
strSQL = "select e.emp01,d.dep02,e.emp03,e.emp04,e.emp05 from emp e,dept d"
strSQL = strSQL & " where e.emp01='" & TextBox1.Text & "' and e.emp09='" & TextBox2.Text & "'"
strSQL = strSQL & " and e.emp02=d.dep01"

'建立数据库连接
myConn = New OleDbConnection(strConn)

'建立OleDbCommand对象,以便执行SQL指令或获取OleDbDataReader对象
myCommand = New OleDbCommand(strSQL, myConn)
myConn.Open()

'取得OleDbDataReader对象
dr = myCommand.ExecuteReader()
.......
End Sub
End Class

...全文