⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 classchaxun.asp

📁 这是一个基于sql和asp的网页设计
💻 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")))&ltrim(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">&nbsp;&nbsp;&nbsp;&nbsp; 
<%end if%> 
<input type="button" value="返 回 主 菜 单" name="B2" onClick="location='ClassMain.asp'"></p> 
</form>

<p>&nbsp;</p>
</body>
</html>

⌨️ 快捷键说明

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