asp删除sql数据库记录

<%@ Language=VBScript %>
<%
    Dim conn, cmd, sql, recordID
    recordID = Request.QueryString("id") ' 获取URL参数中的ID

    ' 连接数据库
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_database;Integrated Security=SSPI;"

    ' 构建SQL删除语句
    sql = "DELETE FROM your_table WHERE id = ?"

    ' 创建并执行命令
    Set cmd = Server.CreateObject("ADODB.Command")
    cmd.ActiveConnection = conn
    cmd.CommandText = sql
    cmd.Parameters.Append cmd.CreateParameter("@id", adInteger, adParamInput, , recordID)
    cmd.Execute

    ' 关闭连接
    conn.Close
    Set conn = Nothing
    Set cmd = Nothing

    Response.Write "Record deleted successfully."
%>