?? classchaxun.asp
字號:
<!--#include file="connectionstring.asp"-->
<%
IdClass=request.cookies("IdClass")
if idClass="" then
response.write "非法操作！"
response.end
end if
deleted=false
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open strConn
sql = "select * from status"
set rs = conn.execute(sql)
timeStart=left(rs("time"),2)
rs.close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<body background="Back1.jpg" link="#0000FF" vlink="#0000FF" alink="#FF0000">
<%
sql = "select * from classid where id='"&idClass&"'"
set rs = conn.execute(sql)
ClassName=rtrim(ltrim(rs("name")))
memo=rs("memo")
ShouldNum=rs("num")
rs.close
%>
<p align="center"><font face="楷體_GB2312" size="6" color="#008080">班級預約情況</font></p>
<p align="center"><font color="#FF0000"><b><%=memo%></b></font>
班，應該完成 <font color="#FF0000"><b><%=ShouldNum%></b></font> 個實驗。 以下是貴班已經預約實驗情況，請核對。
<hr width="80%" noshade color="#008080">
<form method="POST" action="ClassChaXunDel.asp">
<div align="center">
<center>
<table border="1" width="80%">
<tr>
<td width="14%" align="center">時間段</td>
<td width="15%" align="center">預約組</td>
<td width="52%" align="center">實驗名稱</td>
<td width="10%" align="center">實驗室</td>
<td width="9%" align="center">取消</td>
</tr>
<%
sql = "select * from groupxuan where classgp like '"&ClassName&"%' order by time"
set rs=conn.execute(sql)
while not rs.eof
%>
<tr>
<td width="14%" align="center"> <%=rs("time")%> </td>
<td width="15%" align="center"> <%=rs("classgp")%> </td>
<td width="52%" align="center">
<%
sqla = "select * from course where id='" &rs("kemu")& "'"
set rsa = conn.execute(sqla)
response.write rsa("name")
%> </td>
<td width="10%" align="center">
<%
response.write rsa("room")
rsa.close
%>室 </td>
<td width="9%" align="center">
<%
timenow=left(rs("time"),2)
if int(timenow)<int(timeStart) then
response.write "-"
else
deleted=true
%>
<input type="radio" value="<%=ltrim(rtrim(rs("kemu")))<rim(rtrim(rs("classgp")))%>" checked name="IdCourse">
<%
end if
%>
</td>
</tr>
<%
rs.Movenext
wend
conn.close
%>
</table>
</center>
</div>
<p align="center">
<%if deleted=true then
%><input type="submit" value="取 消 實 驗" name="B1">
<%end if%>
<input type="button" value="返 回 主 菜 單" name="B2" onClick="location='ClassMain.asp'"></p>
</form>
<p> </p>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -