<!--#Include File="include/access.asp"-->
<!--#Include file="include/conn.asp"-->
<%'------获取传递过来的表单数据
nameId=Request("nameId")
getConn()
'------删除此人信息
deleteSql="delete from MessageBook where id="&nameId&""
conn.Execute(deleteSql)
errmsg="删除成功！"
returnURL="index.asp"
Set conn=Nothing
%>
<HTMl>
<HEAD>
<META http-equiv="Refresh" content='1;URL=<%=returnURL%>'>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>
<P align="center"><%=errmsg%>
</BODY>
</HTMl>
