📄 roomedit.asp
字号:
<!--#include file="../../conndb.asp"-->
<html>
<head>
<title>编辑会议室基本信息</title>
<link rel="stylesheet" href="../../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
if (document.form1.rno.value==""){
alert("请输入会议室号!");
form1.rno.focus;
return false;
}
if (document.form1.name.value==""){
alert("请输入会议室名称!");
form1.name.focus;
return false;
}
return true;
}
</Script>
</head>
<%
Dim RoomNo,rName,rSize,Resource
Dim Action,rs
'变量初始化
rSize = 10
'读取参数action\rid
Action = Request.QueryString("action")
Set rs = Server.CreateObject("ADODB.RecordSet")
'编辑记录
If Action = "edit" Then
RoomNo = Request.QueryString("rid")
'设置SELECT语句,读取记录数据
sql = "SELECT * FROM MeetingRooms WHERE RoomNo='" & RoomNo & "'"
rs.Open sql,conn,1,3
If Not rs.EOF Then
rName = rs("RoomName")
rSize = rs("RoomSize")
Resource = rs("Resource")
End If
rs.Close()
End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="RoomSave.asp?action=<%=Action%>" onsubmit="return CheckFlds()">
<br>
<table align="center" border="1" cellspacing="0" width="95%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF" colspan="4" background="../pic/mroom.jpg" height="90" width="100%">
<p align="center"><b><font face="华文彩云" color="#000080" size="6">会议室基本信息</font></b></p>
</td>
</tr>
<tr>
<td width="20%" bgcolor="#CEE7FF">会议室房间号</td>
<td width="40%"><input type="text" name="rno" size="16" value="<%=RoomNo%>" <%If Action = "edit" Then%>ReadOnly<%End If%>></td>
<td width="20%" bgcolor="#CEE7FF">会议室名称</td>
<td width="40%"><input type="text" name="name" size="16" value="<%=rName%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">容纳人数</td>
<td><input type="text" name="size" size="16" value="<%=rSize%>"> </td>
<td bgcolor="#CEE7FF">会议室资源</td>
<td><input type="text" name="rs" size="16" value="<%=Resource%>"> </td>
</tr>
</table>
<p align=center><input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -