📄 class_delete.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">
<title>无标题文档</title>
<link href="img/Style.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
 if (Request("class_id")<>"") then Command1_class_id=Request("class_id")
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection =dbconn
Command1.CommandText = "DELETE FROM class WHERE class_id="&replace(Command1_class_id,"","''")&""
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
set Command2 = Server.CreateObject("ADODB.Command")
Command2.ActiveConnection =dbconn
Command2.CommandText = "DELETE FROM pc_user WHERE class_id="&replace(Command1_class_id,"","''")&""
Command2.CommandType = 1
Command2.CommandTimeout = 0
Command2.Prepared = true
Command2.Execute()
response.Write("<script language='javascript'>alert('成功删除编号为"&command1_class_id&"的班级及其成员');location=('class.asp')</script>")

%>
</body>
</html>
<%dbconn.close%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -