www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > admin/adminUser/adminUser_DEL.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% projectRootPath = "../../" '相对当前应用程序根的位置 %> <!-- #include file="../web.config.asp"--> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta name="robots" content="noindex,nofollow" /> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <meta http-equiv="refresh" content="3;URL=adminUser_Manage.asp" /> <title>用户管理</title> <link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" /> </head> <body> <br /> <a href="adminUser_Manage.asp">用户管理</a> | <a href="adminUser_Add.asp">添加用户</a> <hr color="#0099FF" size="1" /> <br /> <dl class="manageContent"> <dt>用户删除管理</dt> <dd> <br /> <% id=request.QueryString("id") if (id="") or (not isNumeric(id)) then 'response.Redirect("/") Response.Write("<p align='center'>用户 ["& id &"] 未删除</p>") else sql="delete from deep_Admin where fid=" & ID conn.execute(sql) Response.Write("<p align='center'>用户 ["& ID &"] 被成功删除</p>") end if Response.Write("<p align='center'>3秒自动转到用户管理页</p>") Call CloseConnDB() %> <br /> </dd> </dl> <br /> </body> </html>