以下是一个使用ASP.NET VB编写的简单网站示例：
Default.aspx：
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>ASP.NET VB 网站示例</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:Label ID="lblName" runat="server" Text="Name:"></asp:Label>
<asp:TextBox ID="txtName" runat="server"></asp:TextBox>
<asp:Button ID="btnSubmit" runat="server" Text="Submit" OnClick="btnSubmit_Click" />
</div>
<div>
<asp:Label ID="lblMessage" runat="server" Text=""></asp:Label>
</div>
</form>
</body>
</html>Default.aspx.vb：
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
Dim name As String = txtName.Text
lblMessage.Text = "Hello, " + name + "!"
End Sub
End Class这个示例是一个简单的网页，包含一个输入框和一个按钮，当用户点击按钮时，会在标签中显示“Hello, [输入的名字]!”。您可以根据自己的需求进行扩展和修改。
以下是一个简单的ASP.NET VB网站实例：
- 创建一个新的ASP.NET Web Forms项目。
- 在Default.aspx文件中添加以下代码：
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="WebApplication1._Default" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<h1>Welcome to my website</h1>
<% If Not IsPostBack Then %>
<p>Please enter your name:</p>
<asp:TextBox ID="txtName" runat="server"></asp:TextBox>
<br />
<asp:Button ID="btnSubmit" runat="server" Text="Submit" OnClick="btnSubmit_Click" />
<% End If %>
</div>
</form>
</body>
</html>- 创建一个新的Default.aspx.vb文件，并添加以下代码：
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Namespace WebApplication1
Partial Public Class _Default
Inherits System.Web.UI.Page
Protected Sub btnSubmit_Click(sender As Object, e As EventArgs)
Dim name As String = txtName.Text
Response.Redirect("Welcome.aspx?name=" & Server.UrlEncode(name))
End Sub
End Class
End Namespace- 创建一个新的Welcome.aspx文件，并添加以下代码：
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Welcome.aspx.vb" Inherits="WebApplication1.Welcome" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<h1>Welcome <%= Request.QueryString("name") %></h1>
</div>
</form>
</body>
</html>- 创建一个新的Welcome.aspx.vb文件，并添加以下代码：
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Namespace WebApplication1
Partial Public Class Welcome
Inherits System.Web.UI.Page
End Class
End Namespace这是一个简单的ASP.NET VB网站实例，它包含一个默认页面（Default.aspx）和一个欢迎页面（Welcome.aspx）。用户在默认页面中输入他们的姓名，然后单击提交按钮，就可以显示欢迎页面，并显示其姓名。
发布者：luotuoemo，转转请注明出处：https://www.jintuiyun.com/140324.html
