📄 homestulist.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">
<!--
.style4 {font-size: 12px}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style5 {color: #FF0000}
body,td,th {
	font-size: 12px;
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
.style6 {font-size: 16}
-->
</style>
<%
La=trim(Request.QueryString("La"))
HomeUses=trim(Request.QueryString("HomeUses"))
%>
</head>

<body>
<form name="form1" method="post" action="HomeStuList2.asp?HomeUses=<%=HomeUses%>">
<table width="398"  border="0" align="center" cellpadding="0" cellspacing="0">
      <tr align="center" bgcolor="#FFFFFF">
        <td height="30" colspan="5" class="style6"><%=La%>宿舍入住学生名单</td>
      </tr>
      <tr align="center" bgcolor="#FFFFFF">
        <td width="115" height="25"><span class="style4">姓名</span></td>
        <td width="38"><span class="style4">性别</span></td>
        <td width="100"><span class="style4">入住时间</span></td>
		<td width="40"><span class="style4">床号</span></td>
        <td width="105"><span class="style4">所在班级</span></td>
      </tr>
<%
dim a,xh
dim rs,sql,k,kk
k=0
La=trim(Request.QueryString("La"))
Set rs=Server.Createobject("Adodb.RecordSet")
if HomeUses<>"外来客户" then
sql = "Select * From [HomeIO] Where a='"&La&"'"
else
sql = "Select * From [HomeGuest] Where a='"&La&"'"
end if
rs.Open sql,Conn,1,3
Do While Not rs.Eof
k=k+1
kk="k"&k
stuID=rs("b")
bedno=rs("e")
Set rv=Server.Createobject("Adodb.RecordSet")
if HomeUses<>"外来客户" then
sqlv = "Select * From [student] Where ID="&stuID
else
sqlv = "Select * From [Guests] Where ID="&stuID
end if
rv.Open sqlv,Conn,1,3
if rv.eof then
rvNc="离校学生"
rvID=0
rvb="空"
rvd="空"
else
rvID=rv("ID")
rvb=rv("b")
rvNc=rv("c")
rvd=rv("d")
end if
nameLen = Len(rvNc)
If nameLen = 2 Then
rvNcs = Mid(rvNc, 1, 1) & "　" & Mid(rvNc, 2, 1)
rvNc = rvNcs
End If
if HomeUses<>"外来客户" then

 
response.write "<tr><td height='25' align='center'><a href='StudentPer.asp?ID="& rvID & "' target='_blank'>"
response.write "<span class='style4'>" & rvNc &"</span></a>"
response.write "<input type='checkbox' name='" & kk &"' value='" & rs("ID") &"'></td>"
response.write "<td align='center'><span class='style4'>" & rvd & "</span></td>"
response.write "<td align='center'><span class='style4'>" & rs("d") & "</span></td>"
response.write "<td align='center'><span class='style4'>" & rs("e") & "</span></td>"
response.write "<td align='center'><span class='style4'>" & rvb & "</span></td></tr>"
    

else

response.write "<tr><td height='25' align='center'><a href='GuestsPer.asp?ID="& rvID & "' target='_blank'>"
response.write "<span class='style4'>" & rvNc &"</span></a>"
response.write "<input type='checkbox' name='" & kk &"' value='" & rs("ID") &"'></td>"
response.write "<td align='center'><span class='style4'>" & rvd & "</span></td>"
response.write "<td align='center'><span class='style4'>" & rs("d") & "</span></td>"
response.write "<td align='center'><span class='style4'>" & rs("e") & "</span></td>"
response.write "<td align='center'><span class='style4'>" & rvb & "</span></td></tr>"
end if
rv.close
set rv=nothing

rs.MoveNext
loop
%>

<tr align="center">
  <td height="40" colspan="5"><div align="center">
    <input type="submit" name="Submit" value="为选中同学办理退房">
</div></td>
</tr>
<tr align="center">
  <td height="25" colspan="5"><div align="center" class="style4 style5">不办退房请直接关闭窗口！</div></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -