delnew.asp

ASP 网页数据库短训教程源码

<% 
  dim sql
  dim rs
  dim aa
  aa=request("id")
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Server.MapPath("classmate.mdb")
  Conn.Open
  set rs=server.createobject("adodb.recordset")
  sql = "delete FROM classmate WHERE 姓名=" & "'" & aa & "'" 
  rs.Open sql,conn,1,2
  set rs=nothing
  aa=aa & "同学信息已经删除！"
%>	
<script language="vbscript">
  alert ("<%=aa%>")
  window.location.href = "del.asp"
</script>