📄 homestuin3.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.

💻 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">&nbsp;</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 + -