<!--#include file="../0.asp"--><!--#include file="../../../conn/zkconn.asp"-->
<%Select case Request("x")
   case "a"
         set rs = conn.execute("select user_name from sh_sj where id in (select sjid from sh where id="&Request("id")&")")
		user_name=rs("user_name")
	    rs.close
    if user_name=session("www.loogoo.com") then
        conn.execute("Delete sh where id="&Request("id")&"")
        Response.redirect "add2.asp?id="&session("id")&""
    else
		Response.Write("对不起，您不能修改该条信息。如有疑问请与网站管理员联系。")
	 end if
 case "b"
         set rs = conn.execute("select user_name from sh_sj where id="&Request("id")&"")
		user_name=rs("user_name")
	    rs.close
set rs=nothing
    if user_name=session("www.loogoo.com") then
        conn.execute("Delete sh_sj where id="&Request("id")&"")
        Response.redirect "index.asp?page="&Request("page")&""
    else
		Response.Write("对不起，您不能修改该条信息。如有疑问请与网站管理员联系。")
	 end if
End Select%>