manage_main3edit.asp

实验室资源管理系统 实验室人事资料管理、实验室设备管理、实验课程管理及实验室软件资料管理及相关分析统计功能

<%@ language="VBScript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<%
id=request("id")
set rs=server.createobject("adodb.recordset")
sqltext="select * from admin where Id=" & id
rs.open sqltext,conn,1,1

%>
<!-- #include file="Inc/Head.asp" -->
<SCRIPT language=javascript id=clientEventHandlersJS>
<!--
function form1_onsubmit()
{
if (document.FORM1.pwd1.value!=document.FORM1.pwd2.value)
{
alert ("请确认您的密码。");
document.FORM1.pwd1.value='';
document.FORM1.pwd2.value='';
document.FORM1.pwd1.focus();
return false;
}
}
//-->
</SCRIPT>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="top"><strong><br>
      </strong> <table width="560" border="0" cellpadding="2" cellspacing="1" class="table_southidc">
        <tr> 
          <td class="back_southidc" height="25"> <div align="center"><strong>管理员密码修改</strong></div></td>
        </tr>
        <tr class="tr_southidc"> 
          <FORM language=javascript name=FORM1  onsubmit="return form1_onsubmit()"
action=Managereditok.asp?uid=<%=rs("Id")%> method=post>
            <INPUT
type=hidden value=<%=rs("UserName")%> name=uid>
            <td><table width="50%" border="0" align="center" cellpadding="0" cellspacing="2">
                <tr> 
                  <td height="25" colspan="2">&nbsp;</td>
                </tr>
                <tr> 
                  <td width="29%" height="22"> <div align="right">管理员帐号：</div></td>
                  <td width="71%"><%=rs("UserName")%></td>
                </tr>
                <tr> 
                  <td height="22"> <div align="right">新密码：</div></td>
                  <td><input name="pwd1" type="text" size="16" maxlength="20"></td>
                </tr>
                <tr> 
                  <td height="22"> <div align="right">密码确认：</div></td>
                  <td><input name="pwd2" type="text" size="16" maxlength="20"></td>
                </tr>
				  <tr> 
                  <td height="22"> <div align="right">管理权限：</div></td>
                  <td><select name="typeid" >
				 <%dim rs2,strsql2
				  set rs2=server.createobject("adodb.recordset")
				  strsql2="select * from admin_type"
				  rs2.open strsql2,conn,1,1
				  dim j
				  j=rs("typeid")
				  
				  do while not rs2.eof
				  %>
				<option value='<%=rs2("typeid")%>'
				 <%if rs2("typeid")=j then Response.write"selected" end if%>>
				 <%=rs2("typename")%>
				 </option>
				
                   <%rs2.movenext
				   loop
				   rs2.close
				   %>
					
					
                  </select></td>
                </tr>
				
                <tr> 
                  <td height="22" colspan="2" align="center">
                      <p>&nbsp;                      </p>
                      <p>
                        <INPUT  type=submit value='确认修改' name=Submit2>
                         &nbsp; 
                         <a href="javascript:history.go(-1);" style="color: #0000FF">返回</a>
                          </p>
                  </td>
                </tr>
              </table>
              <p>&nbsp;</p></td>
          </form>
        </tr>
      </table>
      <br> <strong> </strong></td>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->