changemeetingperson.asp
来自「会议事务系统」· ASP 代码 · 共 52 行
ASP
52 行
<!--#include file="meetdb.inc"-->
<%
if "" & request.QueryString("id") = "" then
raiseErr "缺少参数id"
end if
dim meetingId
meetingId = CInt(Trim(request.QueryString("id")))
%>
<html>
<head>
<title>修改与会人员</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" src="../include/tools.js"></script>
</head>
<body>
<p>会议[<%=getMeetingNameById(meetingId)%>]与会人员配置</p>
<form name="form" method="post" action="action.asp">
<input name="op" type="hidden" value="changeMeetingPerson">
<input name="id" type="hidden" value="<%=meetingId%>">
<table width="85%" border="1">
<tr>
<td width="41%"><div align="center">
<select name="meetingperson" size="7">
<%
writeMeetingPersonOption meetingId
%>
</select>
</div></td>
<td width="21%"><div align="center">
<p>
<input type="submit" name="Submit" value="删除与会人员>>">
</p>
<p>
<input type="submit" name="Submit2" value="<<增加与会人员">
</p>
</div></td>
<td width="38%"><div align="center">
<select name="otherperson" size="7">
<%
writeNotMeetingPersonOption meetingId
%>
</select>
</div></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?