meetingsearchret.asp

来自「会议事务系统」· ASP 代码 · 共 49 行

ASP
49
字号
<!--#include file="meetdb.inc"-->
<%
	dim strName,strAddr,strPerson,strBuilder,intAttr
	dim adoRS
	strName = "" & Trim(request.Form("name"))
	strAddr = "" & Trim(request.Form("addr"))
	strPerson = "" & Trim(request.Form("person"))
	strBuilder = "" & Trim(request.Form("builder"))
	intAttr = CInt(Trim(request.Form("attr")))
	set adoRS = getMeetingRS(strName,strAddr,strPerson,strBuilder,intAttr)	
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" src="../include/tools.js"></script>
</head>
<body>
<table width="95%" border="1">
  <tr> 
    <td><div align="center">会议名称</div></td>
	<td><div align="center">所在会议室</div></td>
    <td><div align="center">会议状态</div></td>
    <td><div align="center">操作</div></td>
  </tr>
  <%
  	while not adoRS.EOF
  %>
    <tr> 
    <td><div align="center"><%=adoRS("name")%></div></td>
	<td><div align="center"><%=adoRS("addr")%></div></td>
    <td><div align="center"><%=getMeetingAttrStr(CInt(adoRS("attr")))%></div></td>
    <td><div align="center"><a href="meetinginfo.asp?id=<%=adoRS("id")%>">察看</a><br>
      </div></td>
  </tr>
  <%
  adoRS.MoveNext
  Wend
  %>
</table>
<form>
<input type="button" name="back" value="返回" onClick="goback()">
</form>
</body>
</html>
<%
	adoRS.Close
	set adoRS = nothing
%>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?