📄 areadelt.asp
字号:
<!--#include file="../conndb.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<title>地域管理</title>
<link href=../style.css rel=STYLESHEET type=text/css>
</head>
<body>
<%
'从数据库中批量删除地域信息
Dim id,sql
id = Request.QueryString("id")
Dim Rs
Set Rs = Server.CreateObject("ADODB.RecordSet")
'如果存在此地域的线路则不允许删除
sql = "Select * From Line Where AreaId In(" & id & ")"
Set Rs = Conn.Execute(sql)
If Rs.EOF Then
sql = "Delete From Area Where AreaId In(" & id & ")"
Conn.Execute(sql)
Response.Redirect("AreaMng.asp")
Else
Response.Wriet "<h2>这些地域中还有旅游线路，不能删除!</h2>"
End IF
%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -