?? homestulist.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 + -