个位路过的大虾看看错在那里了，我初学，实在找不到，先谢过！ 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 = "index.asp"

</script>