一次提交写入多条数据？

你要把提交的文本解析成多条记录，然后把这些记录插入数据库。先在页面新建一个表单，用来提交文本内容：

<form action="insert_records.asp" method="post">
  <label for="content">Content:</label>
  <br>
  <textarea name="content" rows="10" cols="30"></textarea>
  <br>
  <input type="submit" value="Submit">
</form>

然后再建 insert_records.asp 的 ASP 文件：

<%@LANGUAGE="VBSCRIPT"%>
<%
Dim content, records, record, contentAndTime
content = Request.Form("content")

' 按结尾分割内容
records = Split(content, "结尾")

' 定义一个用于连接数据库的函数
Function connectDatabase()
    Dim conn
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("path/to/your/database.mdb") & ";"
    Set connectDatabase = conn
End Function

' 连接数据库
Set conn = connectDatabase()

' 循环处理每条记录
For Each record In records
    If Trim(record) <> "" Then
        ' 按开头分割内容和时间
        contentAndTime = Split(record, "开头")
        
        ' 插入数据
        Dim sql
        sql = "INSERT INTO your_table_name (content, time) VALUES (?, ?)"
        Set cmd = Server.CreateObject("ADODB.Command")
        cmd.ActiveConnection = conn
        cmd.CommandText = sql
        cmd.CommandType = 1 'adCmdText
        cmd.Prepared = True
        cmd.Parameters.Append cmd.CreateParameter("@content", 202, 1, 255, Trim(contentAndTime(1))) ' adVarWChar
        cmd.Parameters.Append cmd.CreateParameter("@time", 202, 1, 255, Trim(contentAndTime(2))) ' adVarWChar
        cmd.Execute
    End If
Next

' 关闭数据库连接
conn.Close
Set conn = Nothing

' 提示完成
Response.Write "Inserted records successfully."
%>