问题2：如何处理表单中的空值或无效输入？

在ASP中，你可以使用循环和SQL INSERT语句按逗号分隔的值写入数据库。

使用ASP将逗号分隔的数据写入数据库

在Web开发中，经常需要将用户输入的逗号分隔数据存储到数据库中，以下是一个详细的示例，展示如何使用ASP（Active Server Pages）来实现这一功能。

1. 创建数据库和表

创建一个数据库和一个包含所需字段的表，我们创建一个名为“Students”的表，其中包含两个字段：StudentID和Name。

CREATE DATABASE School;
USE School;
CREATE TABLE Students (
    StudentID INT PRIMARY KEY AUTO_INCREMENT,
    Name VARCHAR(255) NOT NULL
);

2. 设计HTML表单

设计一个简单的HTML表单，让用户可以输入逗号分隔的名字。

    
    


    

        Enter student names (comma-separated): 
        
    

3. 编写ASP代码处理表单提交

在add_students.asp文件中，编写代码来处理表单提交并将数据插入数据库。

<%@ Language=VBScript %>
<%
' 连接数据库
Dim conn, connString, sql, i, student_name
Set conn = CreateObject("ADODB.Connection")
connString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=School;User Id=root;Password=yourpassword;"
conn.Open connString
' 获取表单数据
student_names = Request.Form("student_names")
' 分割名字并插入数据库
student_array = Split(student_names, ",")
For i = 0 To UBound(student_array)
    student_name = Trim(student_array(i))
    If student_name <> "" Then
        sql = "INSERT INTO Students (Name) VALUES ('" & Replace(student_name, "'", "''") & "')"
        conn.Execute sql
    End If
Next
' 关闭连接
conn.Close
Set conn = Nothing
Response.Write("Students added successfully!")
%>

4. 测试功能

启动你的Web服务器，打开HTML表单页面，输入一些逗号分隔的名字，然后提交表单，你应该会看到一条消息，表示学生已成功添加，检查数据库，确认数据已正确插入。

相关问题与解答

问题1：如何防止SQL注入攻击？

答：为了防止SQL注入攻击，建议使用参数化查询而不是直接拼接SQL字符串，以下是使用参数化查询的示例：

<%@ Language=VBScript %>
<%
Dim conn, connString, sql, i, student_name, command
Set conn = CreateObject("ADODB.Connection")
connString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=School;User Id=root;Password=yourpassword;"
conn.Open connString
' 获取表单数据
student_names = Request.Form("student_names")
' 设置命令对象
Set command = CreateObject("ADODB.Command")
Set command.ActiveConnection = conn
command.CommandText = "INSERT INTO Students (Name) VALUES (?)"
command.Parameters.Append command.CreateParameter("Name", adVarChar, adParamInput, 255)
' 分割名字并插入数据库
student_array = Split(student_names, ",")
For i = 0 To UBound(student_array)
    student_name = Trim(student_array(i))
    If student_name <> "" Then
        command.Parameters("Name").Value = Replace(student_name, "'", "''")
        command.Execute
    End If
Next
' 关闭连接和清理
conn.Close
Set conn = Nothing
Set command = Nothing
Response.Write("Students added successfully!")
%>

问题2：如何处理表单中的空值或无效输入？

答：可以在插入数据库之前进行输入验证和清理，检查每个名字是否为空或仅包含空白字符，并进行适当的错误处理或提示用户重新输入，以下是一个简单的示例：

<%@ Language=VBScript %>
<%
Dim conn, connString, sql, i, student_name, command
Set conn = CreateObject("ADODB.Connection")
connString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=School;User Id=root;Password=yourpassword;"
conn.Open connString
' 获取表单数据
student_names = Request.Form("student_names")
' 设置命令对象
Set command = CreateObject("ADODB.Command")
Set command.ActiveConnection = conn
command.CommandText = "INSERT INTO Students (Name) VALUES (?)"
command.Parameters.Append command.CreateParameter("Name", adVarChar, adParamInput, 255)
' 分割名字并插入数据库
student_array = Split(student_names, ",")
For i = 0 To UBound(student_array)
    student_name = Trim(student_array(i))
    If student_name <> "" And student_name <> " " Then
        command.Parameters("Name").Value = Replace(student_name, "'", "''")
        command.Execute
    Else
        Response.Write("Invalid input: '" & student_name & "'. Please enter valid names.")
    End If
Next
' 关闭连接和清理
conn.Close
Set conn = Nothing
Set command = Nothing
If Not blnError Then
    Response.Write("Students added successfully!")
End If
%>