<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="mj_conn.asp"-->
<!--#include file="mj_function.asp"-->
<!--#include file="mj_session.asp"-->
<%
call iderror
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from mj_admin where ID="&request.querystring("ID")&""
rs.Open sql, conn, 2, 3
If rs.EOF Then
    Call close_rs
    Call close_conn
    Call infoback("不存在此数据")
Else
    rs.Delete
    rs.update
    Call infohref("删除成功", "mj_admin.asp")
End If
Call close_rs
Call close_conn
%>