?? homestulist2.asp
字號:
<% Set hdobj = Server.CreateObject("HD.comOpen")'請確保此行在最前
Conn = hdobj.WeekaaConn()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="pragma" content="no-cache">
<title>紅笛學(xué)校綜合管理系統(tǒng)-功能最強(qiáng)大,與學(xué)校管理工作結(jié)合最完美</title>
<style type="text/css">
<!--
.style1 {font-size: 14px}
-->
</style>
<script language=javascript>
function winclose() {
window.opener.location.reload();
window.close();
}
</script>
</head>
<body onmouseover="self.status='紅笛軟件:服務(wù)網(wǎng)址[http://weekaa.com/red]';return true" onUnload="winclose();">
<p>
<%
HomeUses=trim(Request.QueryString("HomeUses"))
dim k(20),jj,p,q,b
for jj=1 to 20
p="k"&jj
k(jj)=trim(Request.form(p))
next
for jj=1 to 20
if k(jj)<>"" then
Set rs=Server.Createobject("Adodb.RecordSet")
if HomeUses<>"外來客戶" then
sql = "Select * From [HomeIO] where ID= "&k(jj)
else
sql = "Select * From [HomeGuest] where ID= "&k(jj)
end if
rs.Open sql,Conn,1,3
p=rs("a")
b=rs("b")
p="L"&p
q=rs("b")
q="L"&q
rs("a") = p
rs("b") = q
rs("f") = date()
rs("k") = session("AdminUser")
rs.Update
b=b*1
dim rvv,sqlvv
Set rvv=Server.Createobject("Adodb.RecordSet")
if HomeUses<>"外來客戶" then
sqlvv = "Select * From [Student] Where ID="&b
else
sqlvv = "Select * From [Guests] Where ID="&b
end if
rvv.Open sqlvv,Conn,1,3
if not rvv.eof then
rvv("f")="已退宿舍"
rvv.Update
end if
end if
next
%>
</p>
<p> </p>
<p align="center" class="style1">退房操作成功!</p>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -