ASP制作一个登录注册界面连接sql数据库

首先，我们需要在SQL Server中创建一个名为"User"的数据库，并在其中创建名为"Login"的表，该表包含以下列：ID（int，主键，自动增量），Username（nvarchar（50）），Password（nvarchar（50））。

接下来，我们可以使用Classic ASP编写一个简单的登录注册界面，并连接到该数据库。

首先，我们需要在ASP页面中添加以下代码来连接到数据库：

<%
' 定义数据库连接字符串
Dim connString
connString = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=User;User ID=sa;Password=password"

' 创建ADODB连接对象
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")

' 打开数据库连接
conn.Open connString
%>

接下来，我们可以使用以下代码来处理用户的登录和注册请求：

<%
' 处理登录请求
If Request.Form("action") = "login" Then
    ' 获取表单提交的用户名和密码
    Dim username, password
    username = Request.Form("username")
    password = Request.Form("password")

    ' 查询数据库中是否存在该用户
    Dim userQuery
    userQuery = "SELECT * FROM Login WHERE Username='" & username & "' AND Password='" & password & "'"
    Dim userRecordSet
    Set userRecordSet = conn.Execute(userQuery)

    ' 如果查询结果不为空，则说明用户存在，登录成功
    If Not userRecordSet.EOF Then
        Session("username") = username
        Response.Redirect "welcome.asp"
    Else
        ' 否则提示用户名或密码错误
        Response.Write "用户名或密码错误，请重新登录。"
    End If
End If

' 处理注册请求
If Request.Form("action") = "register" Then
    ' 获取表单提交的用户名和密码
    Dim username, password
    username = Request.Form("username")
    password = Request.Form("password")

    ' 查询数据库中是否已存在该用户名
    Dim checkQuery
    checkQuery = "SELECT * FROM Login WHERE Username='" & username & "'"
    Dim checkRecordSet
    Set checkRecordSet = conn.Execute(checkQuery)

    ' 如果查询结果不为空，则说明该用户名已存在，注册失败
    If Not checkRecordSet.EOF Then
        Response.Write "该用户名已存在，请重新选择。"
    Else
        ' 否则向数据库中插入新用户
        Dim insertQuery
        insertQuery = "INSERT INTO Login (Username, Password) VALUES ('" & username & "', '" & password & "')"
        conn.Execute insertQuery

        ' 注册成功，跳转到登录页面
        Response.Redirect "login.asp"
    End If
End If
%>

最后，我们可以在ASP页面中添加一个简单的表单来允许用户输入用户名和密码：

<form method="post">
    <input type="text" name="username" placeholder="用户名">
    <input type="password" name="password" placeholder="密码">
    <input type="submit" name="action" value="login">
    <input type="submit" name="action" value="register">
</form>

完整的ASP代码可能如下所示：

<%
' 定义数据库连接字符串
Dim connString
connString = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=User;User ID=sa;Password=password"

' 创建ADODB连接对象
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")

' 打开数据库连接
conn.Open connString

' 处理登录请求
If Request.Form("action") = "login" Then
    ' 获取表单提交的用户名和密码
    Dim username, password
    username = Request.Form("username")
    password = Request.Form("password")

    ' 查询数据库中是否存在该用户
    Dim userQuery
    userQuery = "SELECT * FROM Login WHERE Username='" & username & "' AND Password='" & password & "'"
    Dim userRecordSet
    Set userRecordSet = conn.Execute(userQuery)

    ' 如果查询结果不为空，则说明用户存在，登录成功
    If Not userRecordSet.EOF Then
        Session("username") = username
        Response.Redirect "welcome.asp"
    Else
        ' 否则提示用户名或密码错误
        Response.Write "用户名或密码错误，请重新登录。"
    End If
End If

' 处理注册请求
If Request.Form("action") = "register" Then
    ' 获取表单提交的用户名和密码
    Dim username, password
    username = Request.Form("username")
    password = Request.Form("password")

    ' 查询数据库中是否已存在该用户名
    Dim checkQuery
    checkQuery = "SELECT * FROM Login WHERE Username='" & username & "'"
    Dim checkRecordSet
    Set checkRecordSet = conn.Execute(checkQuery)

    ' 如果查询结果不为空，则说明该用户名已存在，注册失败
    If Not checkRecordSet.EOF Then
        Response.Write "该用户名已存在，请重新选择。"
    Else
        ' 否则向数据库中插入新用户
        Dim insertQuery
        insertQuery = "INSERT INTO Login (Username, Password) VALUES ('" & username & "', '" & password & "')"
        conn.Execute insertQuery

        ' 注册成功，跳转到登录页面
        Response.Redirect "login.asp"
    End If
End If
%>

<form method="post">
    <input type="text" name="username" placeholder="用户名">
    <input type="password" name="password" placeholder="密码">
    <input type="submit" name="action" value="login">
    <input type="submit" name="action" value="register">
</form>

这样，我们就可以使用Classic ASP来创建一个简单的登录注册界面，并将用户信息存储在SQL Server数据库中。