admin_addbackup.asp

ASP

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn2.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn2_STRING
Recordset1.Source = "SELECT kc FROM bbs1"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%if session("password")<>"" then%>
<!-- #include file="inc/top.asp" -->
<!-- #include file="inc/adminmenu.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<table width="768" height="25" border="0" align="center" cellpadding="0" cellspacing="0" class="unnamed_rld2">
<%if request.querystring("kind")="new" then%>
<tr>
<td align="center"><br>
  <form name="form1" action="admin_adddata.asp?type=news" method="post">
<table width="50%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
  <tr align="center">
            <td height="31" colspan="2">添加单个员工的分数</td>
    </tr>
  <tr>
            <td width="27%" align="center">年代</td>
    <td width="73%"><select name="bj11" id="xh">
                    <!-- #include file="inc/selectbj.asp" -->
            </td>
  </tr>
  <tr>
            <td align="center">工号 </td>
    <td><input name="xh11" type="text" id="xh"></td>
  </tr>
  <tr>
    <td align="center">姓名  </td>
    <td><input name="user11" type="text" id="user"></td>
  </tr>
  <tr>
            <td align="center">项目</td>
    <td><input type="text" name="kc11"></td>
  </tr>
  <tr>
            <td align="center">分数</td>
    <td><input name="cj11" type="text" id="cj"></td>
  </tr>
  <tr>
            <td align="center"> 月份</td>
    <td><select name="xq11">
                <option>1</option>
                <option>2</option>
                <option>3</option>
                <option>4</option>
                <option>5</option>
                <option>6</option>
                <option>7</option>
                <option>8</option>
                <option>9</option>
                <option selected>10</option>
                <option>11</option>
                <option>12</option>
              </select></td>
  </tr>
  <tr>
    <td align="center"> 类型 </td>
    <td>
                      <select name="lx11">
                <option selected>绩效工资</option>
                <option>一般工资</option>
              </select>
  </tr>
  <tr align="center">
    <td colspan="2"><input type="hidden" name="max" value="1">
                          <input type="hidden" name="number" value="1">
                          <input type="submit" name="Submit" value="添加">
                          <input type="reset" name="Submit2" value="重置"></td>
    </tr>
  <tr>
    <td colspan="2">&nbsp;</td>
    </tr>
</table>
  </form></td>
</tr>
<%end if%>

<%if request.querystring("kind")="bj" then
session("return")=request.ServerVariables("SCRIPT_NAME")&"?kind=bj"%>
<tr valign="top">
<td align="center" width="50%"><br><form name="form1" method="post" action="addu.asp">
<table width="50%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
  <tr align="center">
            <td height="32" colspan="2">添加年代及其工号对应代码</td>
    </tr>
  <tr>
            <td width="26%" align="center">年代</td>
    <td width="74%"><input type="text" name="bj" size="30"></td>
  </tr>
  <tr>
            <td align="center">工号代码</td>
    <td><input name="xhf" type="text" size="30"></td>
  </tr>
  <tr align="center">
    <td colspan="2">
    <input type="hidden" name="kind" value="2">
    <input type="submit" name="Submit" value="提交">&nbsp;
      <input type="reset" name="Submit2" value="清除"></td>
    </tr>
  <tr>
    <td colspan="2">&nbsp;注意：填写完后请自行确认</td>
    </tr>
</table></form>
</td>
</tr>

<tr>
    <td height="25" align="center">工号启始代码浏览及修改</td>
</tr>
<tr>
  <td>
 
<table width="768" border='0'  align="center" cellpadding='0' cellspacing='1'>
  <tr bgcolor="#A0A4AC">
<%
dim i
i=0
    set connad=server.createobject("adodb.connection")
    set rsad=server.createobject("adodb.recordset")
    DPath = Server.MapPath("#25175class_cj.asp")
    connad.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DPath
        sqlad="select * from bjb order by xhf"
        rsad.open sqlad,connad,1,2
do while not (rsad.EOF or rsad.BOF)
i=i+1
%>

<td width="96" height="25" align=center nowrap bgcolor="#A0A4AC">
<a  title="<%=rsad("xhf")%>"><%=rsad("bj")%></a>
</td>

<td width="96" align=center bgcolor="#A0A4AC">
<a href="updata.asp?kind=bj&id=<%=rsad("id")%>" title="<%=rsad("xhf")%>">修改</a>
<a href="admin_del.asp?type=user&id=<%=rsad("id")%>&kind=bjb">删除</a>
</td>
<%
if i mod 4=0 then response.write("</tr><tr>")
    rsad.movenext
    loop
if i<5 then
for j=i+1 to 4
%>
     <td width="96" align=center></td>
     <td width="96" align=center></td>
<%
next
else
rsad.Close 
set rsad=nothing
set connad=nothing
end if
%>
</tr>
</table>


  </td>
</tr>
<tr>

<%end if%>
<%if request.querystring("kind")="kc" then%>
<td width="60%" align="center"><br>
  <form name="form1" method="post" action="addu.asp">
        <table width="50%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
          <tr align="center"> 
            <td height="32" colspan="2">添加与相对应的工作项目或类型</td>
          </tr>
          <tr> 
            <td width="26%" align="center">年代</td>
            <td width="74%"><select name="bj" id="xh">
                <!-- #include file="inc/selectbj.asp" --></td>
          </tr>
          <tr> 
            <td align="center">项目</td>
            <td><p> 
                <textarea name="kc" cols="20" wrap="VIRTUAL"></textarea>
              </p>
              <p>已有 
                <select name="select">
                  <option value="value" <%If (Not isNull((Recordset1.Fields.Item("kc").Value))) Then If ("value" = CStr((Recordset1.Fields.Item("kc").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>label</option>
                  <%
While (NOT Recordset1.EOF)
%>
                  <option value="<%=(Recordset1.Fields.Item("kc").Value)%>" <%If (Not isNull((Recordset1.Fields.Item("kc").Value))) Then If (CStr(Recordset1.Fields.Item("kc").Value) = CStr((Recordset1.Fields.Item("kc").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(Recordset1.Fields.Item("kc").Value)%></option>
                  <%
  Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
  Recordset1.MoveFirst
Else
  Recordset1.Requery
End If
%>
                </select>
              </p></td>
          </tr>
          <tr> 
            <td align="center">&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
          <tr bordercolor="#eeeeee"> 
            <td align="center"> 月份</td>
            <td><select name="xq11">
                <option>1</option>
                <option>2</option>
                <option>3</option>
                <option>4</option>
                <option>5</option>
                <option>6</option>
                <option>7</option>
                <option>8</option>
                <option>9</option>
                <option>10</option>
                <option>11</option>
                <option>12</option>
              </select></td>
          </tr>
          <tr bordercolor="#eeeeee"> 
            <td align="center"> 类型 </td>
            <td> <select name="lx11">
                <option selected>绩效工资</option>
                <option>一般工资</option>
              </select> </tr>
          <tr align="center"> 
            <td colspan="2"> <input name="kind" type="hidden" value="3"> <input type="submit" name="Submit" value="提交"> 
              &nbsp; <input type="reset" name="Submit2" value="清除"></td>
          </tr>
          <tr> 
            <td colspan="2"><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>

<%end if%>
<%if request.querystring("kind")="admin" then
session("return")="admin_add.asp?kind=admin"%>
<tr>
<td align="center" colspan=9 ><form name="form1" method="post" action="addu.asp">
  <br>
  <table width="50%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
    <tr align="center">
      <td colspan="2"> 添加系统管理员 </td>
      </tr>
    <tr>
      <td width="27%" align="center"> 用户名 </td>
      <td width="73%"><input name="username" type="text" size="30"></td>
    </tr>
    <tr>
      <td align="center"> 密码 </td>
      <td><input name="password" type="password" size="30"></td>
    </tr>
    <tr align="center">
      <td colspan="2"><input type="hidden" name="kind" value="0">
      <input type="submit" name="Submit" value="提交">&nbsp;
        <input type="reset" name="Submit2" value="清除"></td>
      </tr>
    <tr>
      <td colspan="2"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="13%" align="center">说明</td>
          <td width="87%">&nbsp;1.如果您输入的密码为空，系统将自动以用户名作为密码。</td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          <td>&nbsp;2.添加完毕之后，请自行确认您所输入的信息。</td>
        </tr>
      </table></td>
      </tr>
  </table>
</form>
</td>
</tr>
<tr>
  <td >&nbsp;系统管理员：</td>
</tr>
<tr><td colspan="9">
            <table width="768" border='0'  align="center" cellpadding='0' cellspacing='1'>
          <tr bgcolor="#A0A4AC">
<%

i=0
    set connad=server.createobject("adodb.connection")
    set rsad=server.createobject("adodb.recordset")
    DPath = Server.MapPath("#25175class_cj.asp")
    connad.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DPath
        sqlad="select * from admin order by id"
        rsad.open sqlad,connad,1,2
do while not (rsad.EOF or rsad.BOF)
i=i+1
%>
            <td width="96" height="28" align=center><%=rsad("username")%></td>
            <td align=center><a href="updata.asp?kind=admin&id=<%=rsad("id")%>">修改</a>
<% if rsad("username")<>session("username") then%><a href="admin_del.asp?id=<%=rsad("id")%>&kind=admin&type=user">删除</a><%else%>删除
<%end if%></td>
<%
if i mod 4=0 then response.write("</tr><tr>")
    rsad.movenext
    loop
if i<5 then
for j=i+1 to 4
%>
     <td width="96" align=center></td>
     <td width="96" align=center></td>
<%
next
else
rsad.Close 
set rsad=nothing
set connad=nothing
end if
%>
          </tr>
      </table>

</td></tr>

<tr><td colspan="3">&nbsp;</td>
</tr>
<%end if%>


<%if request.querystring("kind")="user" then%>
<tr>
<td align="center"><form name="form1" method="post" action="addu.asp">
  <br>
  <table width="50%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
    <tr align="center">
            <td colspan="2"> 添加员工相关信息</td>
      </tr>
    <tr>
            <td width="27%" align="center"> [ <span style="color: #FF0000">年代</span> 
              ]</td>
      <td width="73%"><select name="bj" id="xh">
                    <option>--==请选择==--</option>
 <%
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("#25175class_cj.asp") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
    sql="select * from bjb"
rs.Open sql,conn,1,1
do while not rs.eof
%>
<option><%=rs("bj")%></option>
<%
rs.movenext
loop
rs.Close
set rs=nothing
set conn=nothing
%></select></td>
    </tr>
    <tr>
            <td align="center"> [ <span style="color: #FF0000">工号</span> ] </td>
      <td><input name="xh" type="text" size="30"></td>
    </tr>
    <tr>
      <td align="center"> 姓名 </td>
      <td><input name="user" type="text" size="30"></td>
    </tr>
    <tr>
      <td align="center">密码</td>
      <td><input name="mm" type="text" size="30"></td>
    </tr>
    <tr>
      <td align="center"> 性别 </td>
      <td><select name="sex">
      <option>男</option><option>女</option></select></td>
    </tr>
    <tr>
      <td align="center"> 住址 </td>
      <td><input name="addr" type="text" size="30"></td>
    </tr>
    <tr>
      <td align="center"> 邮编  </td>
      <td><input name="yb" type="text" size="30"></td>
    </tr>
    <tr align="center">
      <td colspan="2"><input type="hidden" name="max" value="1">
                          <input type="hidden" name="kind" value="1">
                          <input type="submit" name="Submit" value="提交">&nbsp;
        <input type="reset" name="Submit2" value="清除"></td>
      </tr>
    <tr>
      <td colspan="2"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="13%" align="center">说明</td>
                  <td width="87%">&nbsp;1.如果您输入的密码为空，系统将自动以工号作为密码。</td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          <td>&nbsp;2.添加完毕之后，请自行确认您所输入的信息。</td>
        </tr>
      </table></td>
      </tr>
  </table>
</form>
</td>
</tr>
<%end if%>
</table>


<!-- #include file="inc/copyright.asp" -->
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>