admin_addkcs.asp

管理员功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除 4.直接修改 5.可以批量删除 6.可以直接GO到达你想到达的页 7.清空登陆次数 8.管理课程表

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<%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="0" align="center" cellpadding="0" cellspacing="0" class="unnamed1_rld">
  <tr>
    <td width="752" align="center"><br>
    <form name="form1" method="post" action="admin_adddata.asp?type=kc">
    <table width="70%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
      <tr align="center">
            <td width="25%" height="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("#25175class_cj.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 selected<%if xq100="1" then response.Write(" selected")%>>1</option>
                <option<%if xq100="2" then response.Write(" selected")%>>2</option>
                <option<%if xq100="3" then response.Write(" selected")%>>3</option>
                <option<%if xq100="4" then response.Write(" selected")%>>4</option>
                <option<%if xq100="5" then response.Write(" selected")%>>5</option>
                <option<%if xq100="6" then response.Write(" selected")%>>6</option>
                <option<%if xq100="7" then response.Write(" selected")%>>7</option>
                <option<%if xq100="8" then response.Write(" selected")%>>8</option>
				<option<%if xq100="9" then response.Write(" selected")%>>9</option>
				<option<%if xq100="10" then response.Write(" selected")%>>10</option>
				<option<%if xq100="11" then response.Write(" selected")%>>11</option>
				<option<%if xq100="12" then response.Write(" selected")%>>12</option>
				
              </select></td>
        <td><select name="lx<%=i%>">
                <option selected<%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%" height="25" align="center">说明</td>
                  <td width="86%"> 1.添加项目只需选择对应的年就行了，不必理会各个月。</td>
          </tr>
          <tr>
            <td height="25">&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%" height="25" 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 height="30" 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="select">
                <option selected<%if xq100="1" then response.Write(" selected")%>>1</option>
                <option<%if xq100="2" then response.Write(" selected")%>>2</option>
                <option<%if xq100="3" then response.Write(" selected")%>>3</option>
                <option<%if xq100="4" then response.Write(" selected")%>>4</option>
                <option<%if xq100="5" then response.Write(" selected")%>>5</option>
                <option<%if xq100="6" then response.Write(" selected")%>>6</option>
                <option<%if xq100="7" then response.Write(" selected")%>>7</option>
                <option<%if xq100="8" then response.Write(" selected")%>>8</option>
                <option<%if xq100="9" then response.Write(" selected")%>>9</option>
                <option<%if xq100="10" then response.Write(" selected")%>>10</option>
                <option<%if xq100="11" then response.Write(" selected")%>>11</option>
                <option<%if xq100="12" then response.Write(" selected")%>>12</option>
              </select></td>
        <td align="center"><select name="select2">
                <option selected<%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>
      <tr>
        <td colspan="6" ><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="14%" height="25" align="center">说明</td>
                  <td width="86%"> 1.填入相对应的分数，</td>
          </tr>
          <tr>
            <td height="25">&nbsp;</td>
                  <td> 2.添加项目只需选择对应的年分</td>
          </tr>
          <tr>
            <td height="25">&nbsp;</td>
                  <td>3.请注意信息的完整性，提交后请进行核对。</td>
          </tr>
        </table></td>
        </tr>
    </table>
    </form>    </td>
  </tr>
</table>
<!--#include file="inc/copyright.asp"-->