stupuser.asp

此系统对学校教师的工资信息加以管理,大大提高学校的办公效率.

<%if session("pwd")<>"" then%>
<!--#include file="inc/conn1.asp"-->
<%
    id=trim(Request("id"))
    sqlcmd = ("select  * from user where id="&id)           '查询id(ID号)这条记录
    rs.Open sqlcmd,newconn,1,1
session("xh")=rs("xh")
session("return")="checklogin.asp"
%> 
<!-- #include file="inc/top.asp" -->
<!-- #include file="inc/stumenu.asp" -->

<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" class="unnamed1_rld">
  <tr>
    <td><br><form method="POST" action="modify.asp">
        <table width="300" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr> 
            <td width="24%" height="25" align="center">年代</td>
            <td width="16" height="25">　</td>
            <td width="225" height="25"><select name=bj>
                <%
              sqlbj="select * from bjb order by bj"
              set rsr=newconn.execute(sqlbj)
              do while not rsr.eof
        %>
                <option size="10"><%=rsr("bj")%></option>
                <%
            rsr.movenext
            loop
            rsr.Close
            set rsr=nothing
              %>
              </select> </td>
          </tr>
          <tr> 
            <td align="center">工号</td>
            <td width="16" height="25">&nbsp;</td>
            <td width="225" height="25"><%=rs("xh")%> <input type="hidden" name="xh" size="25" maxlength="30" class="editbox1" value="<%=rs("xh")%>"></td>
          </tr>
          <tr> 
            <td height="25" align="center">姓名</td>
            <td width="16" height="25">　</td>
            <td width="225" height="25"> <input name="xm" size="25" maxlength="40" class="editbox1" value="<%=rs("xm")%>"> 
            </td>
          </tr>
          <tr> 
            <td height="25" align="center">密码</td>
            <td width="16" height="25">　</td>
            <td width="225" height="25"> <input type="password" name="mm" size="25" class="editbox1" value="<%=rs("mm")%>"> 
            </td>
          </tr>
          <tr> 
            <td height="25" align="center">验证密码</td>
            <td width="16" height="25">　</td>
            <td width="225" height="25"> <input type="password" name="mm1" size="25" class="editbox1" value="<%=rs("mm")%>"> 
            </td>
          </tr>
          <tr> 
            <td height="25" align="center">性别</td>
            <td width="16" height="25">&nbsp;</td>
            <td width="225" height="25"> <input type=radio name=sex value=男<%if rs("sex")="男" then response.write(" checked")%>>
              男 
              <input type=radio name=sex value=女<%if rs("sex")="女" then response.write(" checked")%>>
              女 </td>
          </tr>
          <tr> 
            <td height="25" align="center">取回密码提问</td>
            <td width="16" height="25">&nbsp;</td>
            <td width="225" height="25"><input name="question" size="25" maxlength="20 class="editbox1" value="<%=rs("question")%>"> 
            </td>
          </tr>
          <tr> 
            <td height="25" align="center">取回密码答案</td>
            <td width="16" height="25">&nbsp;</td>
            <td width="225" height="25"><input name="answer" size="25" maxlength="20" class="editbox1" value="<%=rs("answer")%>"> 
            </td>
          </tr>
          <tr> 
            <td height="25" colspan="3">　　　　　　　　 
              <div align="center"> 
                <input class=bottom name=B12 type=submit value="修改记录">
                <input class=bottom name=B22 type=reset value="重新填写">
                <input type="hidden" name="id" value="<%=rs("id")%>">
                <input type="hidden" name="kind" value="1">
              </div></td>
          </tr>
        </table>
</form>
</td>
  </tr>
</table>
<!--#include file="inc/copyr.asp"-->
<%
end if%>