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 + -
显示快捷键?