📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="dqe_Conn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>星旧多媒体教室申请系统--www.dqe2008.com</title>
<style type="text/css">
<!--
.unnamed1 { border: 1px dashed #CCCCCC;
}
.unnamed2 {
border-top-width: 1px;
border-right-width: 1px;
border-bottom-width: 1px;
border-left-width: 1px;
border-top-style: none;
border-right-style: dashed;
border-bottom-style: dashed;
border-left-style: none;
border-top-color: #E1DFE0;
border-bottom-color: #E1DFE0;
border-right-color: #E1DFE0;
}
.unnamed3 {border: 1px solid #E1E1E1;
}
body,td,th {
font-family: 宋体;
font-size: 10pt;
color: #000000;
}
a:link {
color: #FF0000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #FF0000;
}
a:hover {
text-decoration: underline;
color: #60389A;
}
a:active {
text-decoration: none;
color: #9874CC;
}
.style3 {
color: #FFFFFF;
font-weight: bold;
}
body {
background-image: url(images/204.gif);
}
.style5 {color: #5E3A92}
.style6 {color: #FF0000}
-->
</style>
</head>
<body>
<% dim aspxingqi,aspkebie
aspxingqi=request.QueryString("xingqi")
aspkebie=request.QueryString("kebie")
If (aspxingqi="")or(aspkebie="") Then
%>
<table width="80%" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#8F6DC4" bgcolor="#E9E2F3">
<tr>
<td height="30" bgcolor="#8F6DC4"> </td>
</tr>
<tr>
<td height="200" bgcolor="#FFFFFF"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" colspan="2"><div align="center">-----------------------------星旧多媒体教室申请系统说明-------------------------</div></td>
</tr>
<tr>
<td height="20" colspan="2"><div align="left"> 在使用前请先允许我对此系统做一些说明.</div></td>
</tr>
<tr>
<td width="7%" height="20"><div align="center">1、</div></td>
<td width="93%" height="20">本系统仅供用户申请多媒体教室前查询教室已有的申请状况用,不提供在线申请多媒体教室的功能.</td>
</tr>
<tr>
<td height="20"><div align="center">2、</div></td>
<td height="40">本系统只负责收录课余时间的多媒体教室使用情况，对于日常上课的多媒体教室使用不在收录范围之内。请结合教务管理系统查询。</td>
</tr>
<tr>
<td height="20"><div align="center">3、</div></td>
<td height="20">本系统只显示将来的教室申请情况,对于过期的多媒体教室申请记录将不做显示.</td>
</tr>
<tr>
<td height="20"><div align="center">4、</div></td>
<td height="20">本系统官网：<a href="www.dqe2008.com">www.dqe2008.com</a></td>
</tr>
<tr>
<td height="20"><div align="left"></div></td>
<td height="20"> </td>
</tr>
<tr>
<td height="20" colspan="2"><div align="left">使用说明:</div></td>
</tr>
<tr>
<td height="20"><div align="center">1、</div></td>
<td height="60"><div align="left">先按照下面的时间表，如您要申请的时间段所有教室空闲它将在该单元格内显示
<span class="style5">“所有教室空闲.”</span>，如您要申请的时间段有教室被占用则会在该单元格内显示<span class="style6">“
点击查看详情 ”</span>您点击就可以了。</div></td>
</tr>
<tr>
<td height="20"><div align="center">2、</div></td>
<td height="20"><div align="left">点击了该单元格内显示<span class="style6">“ 点击查看详情 ”</span>后会在下面显示该时间段的教室占用情况的详情。</div></td>
</tr>
<tr>
<td height="20" colspan="2"><div align="left"></div></td>
</tr>
</table></td>
</tr>
</table>
<% End If %>
<br>
<br>
<table width="80%" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#8F6DC4" bgcolor="#E9E2F3">
<tr bgcolor="#8F6DC4">
<td height="30" colspan="8"><div align="left"></div>
<div align="center" class="style3">星旧多媒体教室申请系统</div> <div align="center"></div> <div align="center"></div> <div align="center"></div> <div align="center"></div> <div align="center"></div> <div align="center"></div></td>
</tr>
<tr>
<td height="40" bgcolor="#FFFFFF"><div align="left"></div></td>
<td height="40" bgcolor="#FFFFFF"><div align="center">星期一</div></td>
<td height="40" bgcolor="#FFFFFF"><div align="center">星期二</div></td>
<td height="40" bgcolor="#FFFFFF"><div align="center">星期三</div></td>
<td height="40" bgcolor="#FFFFFF"><div align="center">星期四</div></td>
<td height="40" bgcolor="#FFFFFF"><div align="center">星期五</div></td>
<td height="40" bgcolor="#FFFFFF"><div align="center">星期六</div></td>
<td bgcolor="#FFFFFF"><div align="center">星期日</div></td>
</tr>
<tr>
<td width="100" bgcolor="#FFFFFF"><div align="center">一二节课</div></td>
<td width="100" height="40" bgcolor="#FFFFFF"><div align="center">
<% dim Rs,sql
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 %></td>
<td width="100" height="40" bgcolor="#FFFFFF"><%
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 %></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 %></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 %></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 width="100" height="40" bgcolor="#FFFFFF"><div align="center">
<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>
</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 %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -