📄 index.asp
字号:
<a href="index.asp?xingqi=星期二&kebie=五六节">点击查看详情</a>
<% End If %>
</div></td>
<td width="100" height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期三' and kebie='五六节'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期三&kebie=五六节">点击查看详情</a>
<% End If %>
</div></td>
<td width="100" height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期四' and kebie='五六节'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期四&kebie=五六节">点击查看详情</a>
<% End If %>
</div></td>
<td width="100" height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期五' and kebie='五六节'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期五&kebie=五六节">点击查看详情</a>
<% End If %>
</div></td>
<td width="100" height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期六' and kebie='五六节'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期六&kebie=五六节">点击查看详情</a>
<% End If %>
</div></td>
<td width="100" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期日' and kebie='五六节'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期日&kebie=五六节">点击查看详情</a>
<% End If %>
</div></td>
</tr>
<tr>
<td width="100" bgcolor="#FFFFFF"><div align="center">七八节课</div></td>
<td width="100" height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期一' and kebie='七八节'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期一&kebie=七八节">点击查看详情</a>
<% End If %>
</div></td>
<td width="100" height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期二' and kebie='七八节'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期二&kebie=七八节">点击查看详情</a>
<% End If %>
</div></td>
<td width="100" height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期三' and kebie='七八节'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期三&kebie=七八节">点击查看详情</a>
<% End If %>
</div></td>
<td width="100" height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期四' and kebie='七八节'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期四&kebie=七八节">点击查看详情</a>
<% End If %>
</div></td>
<td width="100" height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期五' and kebie='七八节'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期五&kebie=七八节">点击查看详情</a>
<% End If %>
</div></td>
<td width="100" height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期六' and kebie='七八节'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期六&kebie=七八节">点击查看详情</a>
<% End If %>
</div></td>
<td width="100" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期日' and kebie='七八节'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期日&kebie=七八节">点击查看详情</a>
<% End If %>
</div></td>
</tr>
<tr>
<td width="100" bgcolor="#FFFFFF"><div align="center">晚自习</div></td>
<td height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期一' and kebie='晚自习'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期一&kebie=晚自习">点击查看详情</a>
<% End If %>
</div></td>
<td height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期二' and kebie='晚自习'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期二&kebie=晚自习">点击查看详情</a>
<% End If %>
</div></td>
<td height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期三' and kebie='晚自习'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期三&kebie=晚自习">点击查看详情</a>
<% End If %>
</div></td>
<td height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期四' and kebie='晚自习'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期四&kebie=晚自习">点击查看详情</a>
<% End If %>
</div></td>
<td height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期五' and kebie='晚自习'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期五&kebie=晚自习">点击查看详情</a>
<% End If %>
</div></td>
<td height="40" bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期六' and kebie='晚自习'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期六&kebie=晚自习">点击查看详情</a>
<% End If %>
</div></td>
<td bgcolor="#FFFFFF"><div align="center">
<%
sql="Select * From sq where xingqi='星期日' and kebie='晚自习'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("所有教室空闲.")
%>
<% Else %>
<a href="index.asp?xingqi=星期日&kebie=晚自习">点击查看详情</a>
<% End If %>
</div></td>
</tr>
</table>
<br>
<br>
<%
If (aspxingqi<>"")or(aspkebie<>"") Then
%>
<table width="80%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#9F78D1" bgcolor="#FFFFFF">
<tr bgcolor="#A88CD2">
<td height="30" colspan="5"><div align="center" class="style3"><%= aspxingqi %>第<%= aspkebie %>课的教室申请情况.</div></td>
</tr>
<tr bordercolor="#EFEFEF">
<td colspan="5"> <br> <table width="80%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#F0F0F0">
<tr bgcolor="#E9E2F3">
<td width="8%" height="20"><div align="center">ID</div></td>
<td width="31%" height="20"><div align="center">教室</div></td>
<td width="15%" height="20"><div align="center">可以申请</div></td>
<td width="16%" height="20"><div align="center">已被占用</div></td>
<td width="30%" height="20"><div align="center">占用时间</div></td>
</tr>
<% dim sql2,rs2,aspriqi
sql2="Select * From js order by id asc"
Set Rs2=Server.CreateObject("Adodb.RecordSet")
rs2.open sql2,conn,1,1 %>
<%do while not rs2.eof%>
<% dim sql3,rs3
sql3="Select * From sq where xingqi='"&aspxingqi&"' and kebie='"&aspkebie&"' and riqi>=#"&date()&"# order by id asc"
Set Rs3=Server.CreateObject("Adodb.RecordSet")
rs3.open sql3,conn,1,1 %>
<%do while not rs3.eof%>
<% If rs2("jiaoshi")=rs3("jiaoshi") Then
if aspriqi="" then
aspriqi=rs3("riqi")
else aspriqi=aspriqi&"、"&rs3("riqi") End If
End If%>
<%rs3.movenext%>
<% loop %>
<% rs3.Close %>
<% If aspriqi<>"" Then %>
<tr>
<td height="20"><div align="center"><%= rs2("id") %></div></td>
<td height="20"><div align="center"><%= rs2("jiaoshi") %></div></td>
<td height="20"><div align="center"> </div></td>
<td height="20"><div align="center"><img src="images/xunlei6.gif" width="20" height="19">被占用</div></td>
<td height="20"><div align="center"><%=aspriqi%></div></td>
</tr>
<% Else %>
<tr>
<td height="20"><div align="center"><%= rs2("id") %></div></td>
<td height="20"><div align="center"><%= rs2("jiaoshi") %></div></td>
<td height="20"><div align="center"><img src="images/xunlei2.gif" width="15" height="15">可以申请</div></td>
<td height="20"><div align="center"> </div></td>
<td height="20"><div align="center"> </div></td>
</tr>
<% End If %>
<%rs2.movenext%>
<% aspriqi="" %>
<% loop %>
<% rs2.Close %>
<tr>
<td height="20"><div align="center"></div></td>
<td height="20"><div align="center"></div></td>
<td height="20"><div align="center"></div></td>
<td height="20"><div align="center"></div></td>
<td height="20"><div align="center"></div></td>
</tr>
<tr>
<td height="20"><div align="center"></div></td>
<td height="20"><div align="center"></div></td>
<td height="20"><div align="center"></div></td>
<td height="20"><div align="center"></div></td>
<td height="20"><div align="center"></div></td>
</tr>
<tr>
<td height="20"><div align="center"></div></td>
<td height="20"><div align="center"></div></td>
<td height="20"><div align="center"></div></td>
<td height="20"><div align="center"></div></td>
<td height="20"><div align="center"></div></td>
</tr>
</table>
<% End If %>
<br></td>
</tr>
</table>
<br>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -