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

📄 viewcs.asp

📁 asp+sql的教室申请系统,可以完成一个学期的教室分配情况
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/CSYD.asp" -->
<!--#include file="Function.asp" -->
<%
'on error resume next
Dim rs__MMColParam
rs__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  rs__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_CSYD_STRING
rs.Source = "SELECT * FROM CS_CSInfo WHERE ID = " + Replace(rs__MMColParam, "'", "''") + ""
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
%>
<%
Dim zhouci,Lzhouci,CSID
	zhouci = DateDiff("ww",#2007-8-27#,Date(), VBMonday)+1
	Lzhouci = DateDiff("ww",#2007-8-27#,Date(), VBMonday)+1
	CSID = Request.QueryString("ID")

If (Request.QueryString("zhouci") <> "") Then 
	zhouci = Request.QueryString("zhouci")
End If
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>苏州立达学校预约申请系统</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #797979;
}
.style3 {color: #FF3300}
.style4 {color: #336666}
.style5 {color: #CC0000}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>

<body>
<!-- ImageReady Slices (002.psd) -->
<table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><div align="center">
      <!-- ImageReady Slices (002.psd) -->
      <table id="__01" width="770" height="426" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="770" height="42" background="images/002_01.gif"> <div align="right"><a href="Admin_login.asp" target="_blank">管理员登陆&gt;&gt;&gt;</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</div></td>
        </tr>
        <tr>
          <td width="770" height="168" background="images/002_02.gif"><table width="100%" height="157"  border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td height="16" colspan="3">&nbsp;&nbsp;苏州立达学校 <span class="style5"><%=(rs.Fields.Item("cs_mingcheng").Value)%></span> 简介</td>
              </tr>
            <tr>
              <td width="207" height="139"><div align="center">
			  <img src="images/110_1036.jpg" width="150" height="113">
			  </div></td>
              <td width="261"><table width="100%" height="126"  border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="22%" height="17"><div align="right"><strong>名称:</strong></div></td>
                  <td width="68%"><span class="style4">&nbsp;<%=(rs.Fields.Item("cs_mingcheng").Value)%></span></td>
                </tr>
                <tr>
                  <td height="15"><div align="right"><strong>所在地点:</strong></div></td>
                  <td><span class="style4">&nbsp;<%=(rs.Fields.Item("cs_didian").Value)%></span></td>
                </tr>
                <tr>
                  <td height="15"><div align="right"><strong>主要设备:</strong></div></td>
                  <td><span class="style4">&nbsp;<%=(rs.Fields.Item("cs_shebei").Value)%></span></td>
                </tr>
                <tr>
                  <td height="15"><div align="right"><strong>容纳人数:</strong></div></td>
                  <td><span class="style4">&nbsp;<%=(rs.Fields.Item("cs_renshu").Value)%></span></td>
                </tr>
                <tr>
                  <td height="15"><div align="right"><strong>负责人:</strong></div></td>
                  <td><span class="style4">&nbsp;<%=(rs.Fields.Item("cs_fuzeren").Value)%></span></td>
                </tr>
                <tr>
                  <td height="15"><div align="right"><strong>联系电话:</strong></div></td>
                  <td><span class="style4">&nbsp;<%=(rs.Fields.Item("cs_phone").Value)%></span></td>
                </tr>
              </table></td>
              <td width="302">
            </tr>
          </table> </td>
        </tr>
        <tr>
          <td width="770" height="216" valign="top" background="images/002_03.gif"><table width="100%" height="215"  border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td width="52%"><table width="98%" height="55"  border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td bgcolor="#999999"><table width="100%" height="191"  border="0" cellpadding="0" cellspacing="1">
                    <tr bgcolor="#F0F7F0">
                      <form name="form1" method="post" action="">
                        <td colspan="9"><div align="center"><%=LocalXueQi%>第
                                <select name="menu1" onChange="MM_jumpMenu('parent',this,0)" style="width:40 ">
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=1" <% if zhouci=1 then response.Write("selected") %> >1</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=2" <% if zhouci=2 then response.Write("selected") %>>2</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=3" <% if zhouci=3 then response.Write("selected") %>>3</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=4" <% if zhouci=4 then response.Write("selected") %>>4</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=5" <% if zhouci=5 then response.Write("selected") %>>5</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=6" <% if zhouci=6 then response.Write("selected") %>>6</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=7" <% if zhouci=7 then response.Write("selected") %>>7</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=8" <% if zhouci=8 then response.Write("selected") %>>8</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=9" <% if zhouci=9 then response.Write("selected") %>>9</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=10" <% if zhouci=10 then response.Write("selected") %>>10</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=11" <% if zhouci=11 then response.Write("selected") %>>11</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=12" <% if zhouci=12 then response.Write("selected") %>>12</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=13" <% if zhouci=13 then response.Write("selected") %>>13</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=14" <% if zhouci=14 then response.Write("selected") %>>14</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=15" <% if zhouci=15 then response.Write("selected") %>>15</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=16" <% if zhouci=16 then response.Write("selected") %>>16</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=17" <% if zhouci=17 then response.Write("selected") %>>17</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=18" <% if zhouci=18 then response.Write("selected") %>>18</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=19" <% if zhouci=19 then response.Write("selected") %>>19</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=20" <% if zhouci=20 then response.Write("selected") %>>20</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=21" <% if zhouci=21 then response.Write("selected") %>>21</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=22" <% if zhouci=22 then response.Write("selected") %>>22</option>
                                  <option value="ViewCS.asp?ID=<%=Request.QueryString("ID")%>&zhouci=23" <% if zhouci=23 then response.Write("selected") %>>23</option>
                                </select>
          周(<%=DateAdd("ww",zhouci-1,StartDate)%>-<%=DateAdd("d",-1,DateAdd("ww",zhouci,StartDate))%>)<span class="style3"><%=(rs.Fields.Item("cs_mingcheng").Value)%></span>预约情况</div></td>
                      </form>
                    </tr>
                    <tr bgcolor="#F0F7F0">
                      <td> </td>
                      <td> </td>
                      <td><div align="center">一</div></td>
                      <td><div align="center">二</div></td>
                      <td><div align="center">三</div></td>
                      <td><div align="center">四</div></td>
                      <td><div align="center">五</div></td>
                      <td><div align="center">六</div></td>
                      <td><div align="center">日</div></td>
                    </tr>
                    <tr bgcolor="#F0F7F0">
                      <td rowspan="4"><div align="center">上<br>
                              <br>
        午</div></td>
                      <td><div align="center">1</div></td>
                      <td height="17"><div align="center">
                          <% Call YuDFlag(CSID,ZhouCi,"Mon",1) %>
                      </div></td>
                      <td height="17"><div align="center">
                          <% Call YuDFlag(CSID,ZhouCi,"Tue",1) %>
                      </div></td>
                      <td height="17"><div align="center">
                          <% Call YuDFlag(CSID,ZhouCi,"Wed",1) %>
                      </div></td>
                      <td height="17"><div align="center">
                          <% Call YuDFlag(CSID,ZhouCi,"Thi",1) %>
                      </div></td>
                      <td height="17"><div align="center">
                          <% Call YuDFlag(CSID,ZhouCi,"Fri",1) %>
                      </div></td>
                      <td height="17"><div align="center">
                          <% Call YuDFlag(CSID,ZhouCi,"Sat",1) %>
                      </div></td>
                      <td height="17"><div align="center">
                          <% Call YuDFlag(CSID,ZhouCi,"Sun",1) %>
                      </div></td>
                    </tr>
                    <tr bgcolor="#F0F7F0">
                      <td><div align="center">2</div></td>
                      <td height="17"><div align="center">
                          <% Call YuDFlag(CSID,ZhouCi,"Mon",2) %>
                      </div></td>
                      <td height="17"><div align="center">
                          <% Call YuDFlag(CSID,ZhouCi,"Tue",2) %>
                      </div></td>
                      <td height="17"><div align="center">
                          <% Call YuDFlag(CSID,ZhouCi,"Wed",2) %>
                      </div></td>
                      <td height="17"><div align="center">
                          <% Call YuDFlag(CSID,ZhouCi,"Thi",2) %>
                      </div></td>
                      <td height="17"><div align="center">

⌨️ 快捷键说明

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