📄 dept_del.asp

📁 大学的综合测评

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="const.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 http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="img/Style.css" rel="stylesheet" type="text/css" />
<title>无标题文档</title>
</head>
<body>
<%
if(Request("dept_id") <> "") then cmd__dept_id = Request("dept_id")
set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = dbconn
cmd.CommandText = "DELETE FROM dept  WHERE dept_id =" & Replace(cmd__dept_id, "'", "''") & ""
cmd.CommandType = 1
cmd.CommandTimeout = 0
cmd.Prepared = true
cmd.Execute()
response.Write("<script language='javascript'>alert('成功删除编号为"&cmd__dept_id&"的部门');location=('dept.asp')</script>")
%>
</body>
</html>
<%dbconn.close%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -