?? homestuin3.asp
字號:
<% Set hdobj = Server.CreateObject("HD.comOpen")'請確保此行在最前
Conn = hdobj.WeekaaConn()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>紅笛學校綜合管理系統－功能最強大，與學校管理工作結合最完美</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='紅笛軟件:服務網址[http://weekaa.com/red]';return true" onUnload="winclose();">
<p align="center"> </p>
<p align="center">
<%
dim a,b,TimeRz,sex
dim rs,sql,rv,sqlv,yz,p,sexx
p=0
yz=trim(Request.QueryString("yz"))
a=trim(Request.QueryString("a"))
b=trim(Request.form("rzr"))
sex=trim(Request.form(b))
yz=yz+1
TimeRz=date()
Set rv=Server.Createobject("Adodb.RecordSet")
sqlv = "Select c,f From [HomeIO] Where a='"&a&"'"
rv.Open sqlv,Conn,1,3
If rv.Eof Then
p=0
else
sexx=rv("c")
if sex=sexx then
p=0
else
response.write a&"宿舍已住入"&rv("c")&"生，<br>不能再入住"&sex&"生了！"
p=1
end if
end if
rv.close
set rv=nothing
if p=0 then
Set rs=Server.Createobject("Adodb.RecordSet")
sql = "Select * From [HomeIO] Where b='"&b&"'"
rs.Open sql,Conn,1,3
If rs.Eof Then
rs.addNew
rs("a") = a
rs("b") = b
rs("c") = sex
rs("d") = TimeRz
rs("e") = yz
rs("h") = "學生宿舍"
rs("nam") = session("AdminUser")
rs("tim") = Now()
rs.Update
b=b*1
dim rvv,sqlvv
Set rvv=Server.Createobject("Adodb.RecordSet")
sqlvv = "Select * From [Student] Where ID="&b
rvv.Open sqlvv,Conn,1,3
if not rvv.eof then
rvv("f")=a
rvv.Update
end if
%>
<strong>入 住 通 知</strong>：</p>
<p align="center" class="style1"> 學號為<%=b%>入住：<br><%=a%>宿舍,床位選擇排隊號<%=yz%>！</p>
<p align="center" class="style1"> 入住時間<%=date()%>。</p>
<p align="center" class="style1"><%=session("school")%>學生宿舍管理處</p>
<%
else
response.write "該同學已辦理過：<br>"
response.write rs("a")&"宿舍的入手續住<br>"
response.write "不能再辦理入住！"
end if
end if
%>
</p>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -