📄 machine_turn.asp
字号:
<!--#include file="../title.asp"-->
<%
dim sql
dim rs
dim cmdTemp
color_id=request("subject")
re_name=request("reTitle")
select case request.form("options")
case "rename"
sql= "select * from machine where id= "&color_id&" "
rs.open sql,conn,1,3
if not rs.eof then
rs("name") = re_name
rs.Update
rs.Close
set rs=nothing
set sql=nothing
finished
end if
case "del"
Rem 删除栏目
sql="delete from machine where id=" & request.form("subject")
conn.execute sql
if err.Number<>0 then
err.clear
response.write " 数 据 库 操 作 失 败 ! "
else
finished
end if
case "new"
on error resume next
Set cmdTemp = Server.CreateObject("ADODB.Command")
set rs=server.createobject("adodb.recordset")
cmdTemp.CommandText = "SELECT * FROM machine where (id IS NULL)"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
rs.Open cmdTemp, , 1, 3
if err.Number<>0 then
err.clear
response.write " 数 据 库 操 作 失 败 ! "
else
rs.AddNew
rs("name") = request.form("newTitle")
rs.Update
rs.Close
set rs=nothing
set cmdTemp=nothing
finished
end if
end select
sub finished()
%>
<html>
<head>
<title>修改成功</title>
<meta http-equiv="refresh" content='1; URL=machine.asp'>
</head>
<body>
<p align="center"><span lang="zh-cn"><b>机台</b></span><b>修改成功！</b></p>
<%
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -