📄 roomtagg.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.

💻 ASP

字号:


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>学生入住</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style9 {
	color: #FF0000;
	font-size: 14px;
	font-weight: bold;
}
.STYLE11 {color: #003399; font-size: 16px; font-weight: bold; }
-->
</style>

</head>

<body>
<%
Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
Connkaa = hdobj.WeekaaConn()
La=trim(Request.QueryString("La")) '楼号+房间号
ID=trim(Request.QueryString("TID")) '最大床位数
if Request.QueryString("ss")="" then

	 Set sno=Server.Createobject("Adodb.RecordSet")
     sqlso = "Select * From [HomeNo] where ID= "&ID
     sno.Open sqlso,Connkaa,1,3
	 snoa=sno("a")
	 snob=sno("b")
%>
<form name="form" method="post" action="?La=<%=La%>&TID=<%=ID%>&ss=ss">
  <table width="400" border="0" align="center">
    <tr align="center" valign="middle">
      <td height="40">&nbsp;</td>
    </tr>
    <tr align="center" valign="middle">
      <td height="60"><span class="STYLE11"><%=snoa%>　被标注为:<%=snob%></span></td>
    </tr>
    <tr align="center" valign="middle">
      <td height="60"><p class="style9">你要取消[<%=La%>]的标注吗?</p>
        <p class="style9">          <input type="submit" name="Submit" value="是的">
          　
          <input type="reset" name="Submit2" value="不是">
        </p></td>
    </tr>
    <tr>
      <td height="60">&nbsp;</td>
    </tr>
  </table>
</form>

  <%else
if ID<>"" then
	 Set rno=Server.Createobject("Adodb.RecordSet")
     sqlno = "Select * From [HomeNo] where ID= "&ID
     rno.Open sqlno,Connkaa,1,3 
	 rno.Delete
     rno.Update
response.write "<br><br><br><br><br><div align='center' class='style9'>"&La&"房标注被取消</div>"
call hdobj.infoadd("取消房间标注")
else
response.write "<br><br><br><br><br><div align='center' class='style9'>没有操作</div>"
end if%>

<script language=javascript>
function winclose()  {
   window.opener.location.reload();
   window.close();
  }
  winclose();
</script>

<%end if%>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -