<%Response.Expires=0
Response.Buffer=true
cwjh_id=Session("cwjh_id")
cwjh_name=Session("cwjh_name")
cwjh_grade=Session("cwjh_grade")
cwjh_jhdj=Session("cwjh_jhdj")
if cwjh_name="" then Response.Redirect "../error.asp?id=440"
if cwjh_grade<>10 or instr(Application("cwjh_admin"),cwjh_name)=0  then Response.Redirect "../error.asp?id=439"
id=request("id")
set conn=server.createobject("adodb.connection")
conn.open Application("cwjh_usermdb")
set rs=server.CreateObject ("adodb.recordset")
sql="delete from ΙκΤ© where id=" & id & ""
conn.execute sql
conn.close
set conn=nothing
%>
<body background="../../2di.jpg" bgcolor="#CCCCCC" topmargin="0">
<p><a href="manage.asp">·΅»ΨΗλΗσ½±ΐψ</a></p><LINK href="../../css.css" rel=stylesheet>