asp写入mysql数据库代码

<%@ Language=VBScript %>
<%
    ' 数据库连接信息
    Dim conn
    Dim connStr
    Dim dbUser, dbPass, dbName
    dbUser = "your_username"
    dbPass = "your_password"
    dbName = "your_database_name"
    connStr = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=your_server_address;PORT=3306;DATABASE=" & dbName & ";UID=" & dbUser & ";PWD=" & dbPass & ";"

    ' 创建数据库连接
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open connStr

    ' 插入数据的SQL语句
    Dim sql
    Dim userId, userName
    userId = Request.Form("userId")
    userName = Request.Form("userName")
    sql = "INSERT INTO users (id, name) VALUES ('" & userId & "', '" & userName & "')"

    ' 执行SQL语句
    conn.Execute sql

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

    Response.Write "数据已成功写入数据库！"
%>

Dim cmd
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = "INSERT INTO users (id, name) VALUES (?, ?)"
cmd.Parameters.Append cmd.CreateParameter("id", adVarChar, adParamInput, 50, userId)
cmd.Parameters.Append cmd.CreateParameter("name", adVarChar, adParamInput, 50, userName)
cmd.Execute