addsort1.asp
来自「1、全面展示宾馆的自然情况和服务内容; 2、介绍宾馆信息,帮助客人了解宾馆相」· ASP 代码 · 共 47 行
ASP
47 行
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<%
dim cmdTemp
select case request.form("options")
'修改房间名称
case "rename"
if trim(request("name"))="" then
response.Write("<script>alert('请填写要修改的名称');location='javascript:history.go(-1)'</script>")
response.End()
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from fangjian where id="&request.form("id")
rs.open sql,conn,1,3
rs("fangjian")=request.form("name")
rs.update
rs.close
response.Write("修改成功!")
'删除房间
case "del"
Rem 删除栏目
on error resume next
sql1="delete from fangjian where id=" & request.form("id")
conn.execute sql1
response.Write("删除成功!")
'添加房间名称
case "new"
if trim(request("newTitle"))="" then
response.Write("<script>alert('请填写房间的名称');location='javascript:history.go(-1)'</script>")
response.End()
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from fangjian where id="&request.form("id")
rs.open sql,conn,1,3
rs.addnew
rs("fangjian")=request.form("newTitle")
rs.update
rs.close
response.Write("添加成功!")
end select
sub finished()
%>
<title>修改成功</title>
<body>
<br><br><p align="center"><b>类别修改成功!</b></p>
<%end sub%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?