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 + -
显示快捷键?