admin_addkcs.asp

成绩查询管理系统

<%if session("password")<>"" then
fs100=request.Form("fs100")
if fs100<1 or fs100="" then fs100=1
bj100=request.Form("bj100")
kc100=request.Form("kc100")
xq100=request.Form("xq100")
lx100=request.Form("lx100")
session("menu")="1"
%>
<!-- #include file="inc/top.asp"-->
<!-- #include file="inc/adminmenu.asp" -->
<table width="768"  border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="752" align="center"><br>
    <form name="form1" method="post" action="admin_adddata.asp?type=kc">
    <table width="60%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
      <tr align="center">
        <td width="25%" bgcolor="#CCCCCC"> 班级</td>
        <td width="25%" bgcolor="#E4E4E4"> 课程 </td>
        <td width="25%" bgcolor="#CCCCCC"> 学期 </td>
        <td width="25%" bgcolor="#E4E4E4"> 类型 </td>
      </tr>
<% 
conn = "DBQ=" + server.mappath("#sp25175_class.asp") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set rs1=server.createobject("adodb.recordset")
    sql1="select bj from bjb"
rs1.Open sql1,conn,1,1
for i=1 to fs100%>
      <tr>
        <td>
        <select name="bj<%=i%>">
<%
rs1.movefirst
do while not rs1.eof
%>
<option <% if bj100=rs1("bj") then response.Write(" selected")%>><%=rs1("bj")%></option>
<%
rs1.movenext
loop
%>
</select>
</td>
        <td><input type="text" name="kc<%=i%>" size="15" value="<%=kc100%>"></td>
        <td><select name="xq<%=i%>">
                  <option<%if xq100="第一学期" then response.Write(" selected")%>>第一学期</option>
                  <option<%if xq100="第二学期" then response.Write(" selected")%>>第二学期</option>
                  <option<%if xq100="第三学期" then response.Write(" selected")%>>第三学期</option>
                  <option<%if xq100="第四学期" then response.Write(" selected")%>>第四学期</option>
                  <option<%if xq100="第五学期" then response.Write(" selected")%>>第五学期</option>
                  <option<%if xq100="第六学期" then response.Write(" selected")%>>第六学期</option>
                  <option<%if xq100="第七学期" then response.Write(" selected")%>>第七学期</option>
                  <option<%if xq100="第八学期" then response.Write(" selected")%>>第八学期</option>
                      </select></td>
        <td><select name="lx<%=i%>">
                  <option<%if lx100="必修课" then response.Write(" selected")%>>必修课</option>
                  <option<%if lx100="选修课" then response.Write(" selected")%>>选修课</option>
                  <option<%if lx100="限修课" then response.Write(" selected")%>>限修课</option>
        </select></td>
      </tr>
<%next%>
      <tr>
      <td colspan="4" align="center">
      <input type="hidden" name="fs" value="<%=fs100%>">
      <input type="submit" name="Submit" value="提交">&nbsp;
      <input type="reset" name="Submit2" value="重置"></td>
      </tr>
      <tr>
        <td colspan="4"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="14%" align="center">说明</td>
            <td width="86%"> 1.添加课程只需选择对应的年级就行了，不必理会各个班。</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td> 2.请注意信息的完整性，提交后请自行到课程列表进行核对。</td>
          </tr>
        </table>
        
            </td>
        </tr>
    </table>
    </form><form method="post" action="admin_addkcs.asp">
    <table width="70%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
      <tr align="center">
        <td width="24%" bgcolor="#CCCCCC">快速填表</td>
        <td width="8%">份数</td>
        <td width="18%">班级</td>
        <td width="16%">课程</td>
        <td width="18%">学期</td>
        <td width="16%">类型</td>
      </tr>
      <tr>
        <td align="center"><input type="submit" name="Submit" value="提交">&nbsp;
          <input type="reset" name="Submit2" value="重置"></td>
        <td align="center"><input name="fs100" type="text" id="fs100" size="1" maxlength="2" value="1"></td>
        <td align="center"><select name="bj100" id="bj100">
<%
rs1.movefirst
do while not rs1.eof
%>
<option <% if bj100=rs1("bj") then response.Write(" selected")%>><%=rs1("bj")%></option>
<%
rs1.movenext
loop
rs1.Close
set rs1=nothing
%>
</select></td>
        <td align="center"><input name="kc100" type="text" id="kc100" size="8"></td>
        <td align="center"><select name="xq100" id="xq100">
                        <option>第一学期</option>
                        <option>第二学期</option>
                        <option>第三学期</option>
                        <option>第四学期</option>
                        <option>第五学期</option>
                        <option>第六学期</option>
                        <option>第七学期</option>
                        <option>第八学期</option>
            </select></td>
        <td align="center"><select name="lx100" id="lx100">
                        <option>必修课</option>
                        <option>选修课</option>
                        <option>限修课</option>
            </select></td>
      </tr>
      <tr>
        <td colspan="6" ><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="14%" align="center">说明</td>
            <td width="86%"> 1.填入相对应的份数，系统自动生成为您方便添加课程。</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td> 2.添加课程只需选择对应的年级就行了，不必理会各个班。</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td>3.请注意信息的完整性，提交后请自行到课程列表进行核对。</td>
          </tr>
        </table></td>
        </tr>
    </table>
    </form>
    </td>
  </tr>
  
</table>
<!--#include file="inc/copyright.asp"-->