<% name=request("name") old_name=request("hy_name") if name="hy" then sSql = "DELETE from hy WHERE hy_name='"&request("hy_name")&"'" conn1.Execute(sSql) dim db,trs2_3 Set db=new Connections set trs2_3=server.CreateObject("ADODB.recordset") del_biao="drop table MEMBER_CN_"&old_name&"" set trs2_3=db.Query (del_biao,1) sSql_2 = "DELETE from admin_user WHERE user_hy='"&request("hy_name")&"'" conn1.Execute(sSql_2) end if if name="admin" then sSql = "DELETE from admin_user WHERE ID=" & request("id") conn1.Execute(sSql) end if Call OKToWhere2("信息删除成功,确认返回!",Request.ServerVariables("HTTP_REFERER")) %>