📄 homestulist2.asp

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

💻 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>红笛学校综合管理系统－功能最强大，与学校管理工作结合最完美</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>
<%
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>&nbsp;</p>
<p align="center" class="style1">退房操作成功!</p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -