📄 areasave.asp
字号:
<!--#include file="../conndb.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<title>地域管理</title>
</head>
<body>
<%
Dim StrAction
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
'得到动作参数，如果为add则表示创建地域，如果为update则表示更改地域
StrAction = Request.QueryString("action")
'取得地域题目和内容和提交人用户名
TypeId = Trim(Request("slt"))
Title = Trim(Request("title"))
If StrAction="add" Then
'判断此地域名称载此类型中是否存在
sql = "Select * From Area Where TypeId="&Cint(TypeId)&" And AreaName='"&Title&"'"
Set rs = Conn.Execute(sql)
If rs.EOF Then
'在数据库表Area中插入新地域信息
sql = "Insert into Area(AreaName,TypeId) Values('"&Title&"',"&Cint(TypeId)&")"
Conn.Execute(sql)
Else
Response.Write "<Script Language='JavaScript'>alert('此地域名称已经存在！');history.go(-1);</Script>"
End If
Else
'更改此地域信息
id = Request.QueryString("id")
'判断新的名称如果更改，则是否已经存在
sql = "Select * From Area Where AreaId="&id
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
OldName = rs("AreaName")
If Not Title=OldName Then
'如果名字不同，则判断是否存在新名称
sql = "Select * From Area Where AreaName='"&Title&"'"
Set rs = Conn.Execute(sql)
If rs.EOF Then
sql = "Update Area Set AreaName='"&Title&"',TypeId="&Cint(TypeId)&" where AreaId="&id
Conn.Execute(sql)
Else
Response.Write "<Script Language='JavaScript'>alert('此地域名称已经存在！');history.go(-1);</Script>"
End If
Else
'名称相同只更改类型
sql = "Update Area Set TypeId="&Cint(TypeId)&" where AreaId="&id
Conn.Execute(sql)
End If
End If
End If
Response.Write "<h3>地域成功保存</h3>"
%>
</body>
<script language="javascript">
// 刷新父级窗口，延迟此关闭
opener.location.reload();
setTimeout("window.close()",600);
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -