单击 asp 按钮在 SQL Server 中删除行 - 经典 asp 和 vbscript

Question

我在 asp 中创建了一个网页来显示 SQL 数据库中的表。然后，我向每个表行添加按钮以更新和删除每行代码 -

    do while not objRS.EOF

    %>

    <tr> 
        <td><%= objRS("Id") %> </td>
        <td><%= objRS("Name") %> </td>
        <td><%= objRS("Address") %></td>
        <td><%= objRS("Suburb") %></td>
        <td><%= objRS("Postcode") %></td>
        <td><%= objRS("Age") %></td>
        <td><%= objRS("Email") %></td>
        <td><Center><input type="submit" value="Update"></Center></td>
        <td><center><input type="Submit" onclick="delete(<%= objRS("Id") %>)" value="Delete"></center></td>
    </tr>
    <%
        objRS.MoveNext
        loop    
        objCon.close
    %>

也是要删除的代码 -

    Function delete(index)

        Dim objCon, objRS, dSQL      
        set objCon = CreateObject("ADODB.Connection")
        objCon.open "Provider=SQLOLEDB.1;Password=xxxx;Persist Security Info=True;User ID=xxxx;Initial Catalog=Customer;Data Source=PC"

        dSQL = "DELETE FROM Customer WHERE Id=" & index

        objCon.execute(dSQL)            
        objCon.close     
    End Function

我已经到处查看，但似乎无法找到如何识别每个不同的按钮并从数据库中删除相应的行

Answer 1

每行都有：

<a href="Page.asp?action=delete&ID=<%= objRS("Id") %>">Delete this</a>

然后接收页面有代码：

Dim strAction

strAction = request.querystring("action")
if(strAction = "delete")

    'Verify ID
    'Perform deletion
    'Redirect

end if

这就是传统上删除它的方式。在您的示例中，您似乎需要 AJAX 功能。将其添加到页面顶部：

<script type="text/javascript">
    function delete(RecordID){
        alert(RecordID);
    }
</script>

这是单击“删除”时尝试调用的 Javascript 函数。因此，如果您想要这样做，这将是您调用删除脚本的 AJAX 请求的模板。

Answer 2

您似乎正在尝试使用 Javascript 调用 ASP 代码。那是行不通的。

如果您的删除函数位于单独的 ASP 脚本中，那么您可以创建一个 Javascript 方法来处理按钮单击并直接使用 GET 或使用 Ajax 调用来调用其他 ASP 脚本。然后你必须重新加载原始页面。