roomtaggadd.asp

来自「学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设」· ASP 代码 · 共 55 行

ASP
55
字号

<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: 16px;
	font-weight: bold;
}
-->
</style>

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

<body onmouseover="self.status='红笛软件:服务网址[http://weekaa.com/red]';return true"  onUnload="winclose();">

<%
Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
Connkaa = hdobj.WeekaaConn()
La=request.QueryString("Latagg")
roomtagg=request.form("roomtagg")
	 Set rno=Server.Createobject("Adodb.RecordSet")
     sqlno = "Select * From [HomeNo] where (ID is null)"
     rno.Open sqlno,Connkaa,1,3 
     rno.addnew
	 rno("a")=La
	 rno("b")=roomtagg
	 rno("nam")=session("AdminUser")
	 rno("tim")=now()
     rno.Update
response.write "<br><br><br><br><br><div align='center' class='style9'>"&La&"房被标注为"&roomtagg&"</div>"
call hdobj.infoadd("标注房间")


%>

</body>
</html>

⌨️ 快捷键说明

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