📄 roomtaggadd.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: 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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -