<%@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_link 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 close_rs
    Call close_conn
    Call infohref("友情链接删除成功！", "mj_link.asp")
End If
%>