台湾阿里云代理商：asp.net vb 网站实例

luotuoemo • 2024年2月7日 17:00 • 阿里云 • 阅读 406

以下是一个使用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）。用户在默认页面中输入他们的姓名，然后单击提交按钮，就可以显示欢迎页面，并显示其姓名。