?? roomtagg.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"> </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"> </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 + -