📄 admin_status.asp

📁 未成型的程序。不能算OA的
💻 ASP
字号:
<!--#include file="conn.asp" -->
<!--#include file="md5.inc" -->
<!--#include file="checkstr.asp" -->
<!--#include file="checkadmin.asp" -->
<!--#include file="config.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留溪网上办公平台</title>
<!--#include file="css.css" -->
</head>
<%doing=Trim(Request.QueryString("doing"))
  doing=checkstr(doing)%>
  
<%'修改基本资料
if doing="setup_basic" then
    sex=Trim(Request.Form("sex"))
	czdz=Trim(Request.Form("czdz"))
	    czdz=checkstr(czdz)
		if czdz="" then czdz="　" end if
	yzbm=Trim(Request.Form("yzbm"))
	    yzbm=checkstr(yzbm)
		if yzbm="" then yzbm="　" end if
	cydh=Trim(Request.Form("cydh"))
	    cydh=checkstr(cydh)
		if cydh="" then cydh="　" end if
	szbm=Trim(Request.Form("szbm"))
	set zhiwu=Request.Form("zhiwu")
	    if zhiwu="" then
		    zhiwu="|无职务|"
		else
		    temp_all="|"
			for each temp in zhiwu
			    temp_all=temp_all&temp&"|"
			next
			zhiwu=temp_all
		end if
     
	 str="select * from user_teacher where 用户名='"&session("user")&"' and 姓名='"&session("user_name")&"'"
	 rs.open str,conn,2,3
	     rs("性别")=sex
		 rs("家庭地址")=czdz
		 rs("邮政编码")=yzbm
		 rs("电话")=cydh
		 rs("部门")=szbm
		 rs("职务")=zhiwu
	 rs.update
	 rs.close

end if
%>

<%'修改密码
if doing="setup_pass" then
    old_pass=Trim(Request.Form("old_pass"))
	    old_pass=checkstr(old_pass)
	new_pass1=Trim(Request.Form("new_pass1"))
	    new_pass1=checkstr(new_pass1)
	new_pass2=Trim(Request.Form("new_pass2"))
	    new_pass2=checkstr(new_pass2)
	if old_pass<>session("pass") then
	    msg="原密码输入错，请输入正确的原密码！"
	else
	    if new_pass1<>new_pass2 or new_pass1="" then
		    msg="新密码不能为空，或二次新密码不一致！"
		else
		    if len(new_pass1)<6 or len(new_pass1)>20 then
			    msg="新密码不能少于6位，不能大于20位！"
			else
			    pass2=ucase(md5(new_pass1))
				str="update user_teacher set 密码='"&pass2&"' where 用户名='"&session("user")&"'"
				conn.execute(str)
				session("pass")=new_pass1
			end if
		end if
	end if
end if
%>

<body background="images/index_bg.gif" topmargin="0">
<table width="760" height="101" border="0" align="center" cellpadding="0" cellspacing="0" class="tabletblg">
  <tr>
    <td><img src="images/top.jpg" width="758" height="100"></td>
  </tr>
</table>

<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
  <tr>
    <td class="fontsize04"> 　</td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
  <tr> 
    <td height="25" background="images/menu-d-gg.gif" class="fontsize12"><!--#include file="admin_menu.asp" --></td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
  <tr> 
    <td height="30" background="images/bocolor02.gif" class="fontsize14">　　<%=session("user_name")%>，你好！欢迎使用<%=ptmc%>。此处可以修改你的身份资料。</td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
  <tr> 
    <td class="fontsize04">　</td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
  <tr> 
    <td height="492" background="images/bocolor01.gif">
<table width="600" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="fontsize10">　</td>
        </tr>
      </table> 
<%str="select * from user_teacher where 用户名='"&session("user")&"' and 姓名='"&session("user_name")&"'"
  set rs=conn.execute(str)%>
      <table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><form name="form1" method="post" action="admin_status.asp?doing=setup_basic">
              <table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
                <tr> 
                  <td width="40" rowspan="8" class="fontsize14"><div align="center" class="fontsize14h20"> 
                      <p><strong>修</strong></p>
                      <p><strong>改</strong></p>
                      <p><strong> 基</strong></p>
                      <p><strong>本</strong></p>
                      <p><strong> 信</strong></p>
                      <p><strong>息</strong></p>
                    </div></td>
                  <td width="100" height="30" class="fontsize14">
<div align="right">用 户 名：</div></td>
                  <td width="600" class="fontsize14">&nbsp;<%=session("user")%></td>
                </tr>
                <tr> 
                  <td height="30" class="fontsize14"><div align="right">用户姓名：</div></td>
                  <td class="fontsize14">&nbsp;<%=session("user_name")%></td>
                </tr>
                <tr> 
                  <td height="30" class="fontsize14"><div align="right">姓　　别：</div></td>
                  <td class="fontsize14">&nbsp;<select name="sex" class="inputtext" id="sex">
                      <option value="男" <%if rs("性别")="男" then%>selected<%end if%>>男</option>
                      <option value="女" <%if rs("性别")="女" then%>selected<%end if%>>女</option>
                    </select></td>
                </tr>
                <tr> 
                  <td height="30" class="fontsize14"><div align="right">常住地址：</div></td>
                  <td class="fontsize14">&nbsp;<input name="czdz" type="text" class="inputtext" value="<%=rs("家庭地址")%>"></td>
                </tr>
                <tr> 
                  <td height="30" class="fontsize14"><div align="right">邮政编码：</div></td>
                  <td class="fontsize14">&nbsp;<input name="yzbm" type="text" class="inputtext" id="yzbm" value="<%=rs("邮政编码")%>"></td>
                </tr>
                <tr> 
                  <td height="30" class="fontsize14"><div align="right">常用电话：</div></td>
                  <td class="fontsize14">&nbsp;<input name="cydh" type="text" class="inputtext" id="cydh" value="<%=rs("电话")%>" size="60"></td>
                </tr>
                <tr> 
                  <td height="30" class="fontsize14"><div align="right">所在部门：</div></td>
                  <td class="fontsize14">&nbsp;<select name="szbm" class="inputtext" id="szbm">
                      <%str="select * from woa_bumeng"
	     set rs1=conn.execute(str)
		 if not rs1.eof then
		 do while not rs1.eof%>
                      <option value="<%=rs1("部门")%>" <%if rs1("部门")=rs("部门") then%>selected<%end if%>><%=rs1("部门")%></option>
                      <%rs1.movenext
	     loop
		 end if
		 rs1.close%>
                    </select></td>
                </tr>
                <tr> 
                  <td height="30" valign="top" class="fontsize14">
<div align="right">
                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td height="26" class="fontsize14"><div align="right">担任职务：</div></td>
                        </tr>
                      </table>
                    </div></td>
                  <td class="fontsize14"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr>
		<%str="select * from woa_zhiwu"
		  set rs1=conn.execute(str)
		  if not rs1.eof then
		  m=0
		  do while not rs1.eof%>
                        <td height="20" class="fontsize12">&nbsp;<input name="zhiwu" type="checkbox" id="zhiwu" value=<%=rs1("职务")%><%if instr(rs("职务"),"|"&rs1("职务")&"|")>0 then%> checked<%end if%>><%=rs1("职务")%></td>
		<%rs1.movenext
		  m=m+1
		  if m mod zlhzws=0 then response.write "</tr><tr>" end if
		  loop
		  end if
		  rs1.close%>
                      </tr>
                    </table></td>
                </tr>
                <tr> 
                  <td height="40" colspan="3" class="fontsize14" background="images/bocolor02.gif"> 
                    <div align="center"> 
                      <input name="Submit" type="submit" class="inputbox" value=" 提 交 ">
                      <span class="fontsize14wu"> 　　　　　　　　 </span>
                      <input name="Submit2" type="reset" class="inputbox" value=" 重 置 ">
                    </div></td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table> 
      <table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td class="fontsize04">　</td>
        </tr>
      </table>
      <table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><form name="form2" method="post" action="admin_status.asp?doing=setup_pass">
              <table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
                <tr> 
                  <td width="40" rowspan="3" class="fontsize14"><div align="center" class="fontsize14h20"><strong>修<br>
                      改<br>
                      密<br>
                      码</strong></div></td>
                  <td width="200" height="30" class="fontsize14"> <div align="right">原 
                      密 码：</div></td>
                  <td width="500" class="fontsize14">&nbsp;<input name="old_pass" type="password" class="inputtext" id="old_pass"></td>
                </tr>
                <tr> 
                  <td height="30" class="fontsize14"> <div align="right">新 密 码：</div></td>
                  <td class="fontsize14">&nbsp;<input name="new_pass1" type="password" class="inputtext" id="new_pass1"></td>
                </tr>
                <tr> 
                  <td height="30" class="fontsize14"> <div align="right">新 密 码：</div></td>
                  <td class="fontsize14">&nbsp;<input name="new_pass2" type="password" class="inputtext" id="new_pass2"></td>
                </tr>
                <tr> 
                  <td height="40" colspan="3" background="images/bocolor02.gif"><div align="center"> 
                      <input name="Submit3" type="submit" class="inputbox" value=" 提 交 ">
                      <span class="fontsize14wu">　　　　　　　　 </span> 
                      <input name="Submit4" type="reset" class="inputbox" value=" 重 置 ">
                    </div></td>
		<%if msg<>"" then%>
                </tr>
                <tr background="images/bocolor01.gif"> 
                  <td height="30" colspan="3"><div align="center" class="fontsize14"><strong><font color="#FF0000"><%=msg%></font></strong></div></td>
                </tr>
		<%end if%>
              </table>
            </form></td>
        </tr>
      </table> 
      <table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td class="fontsize10">　</td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelr">
  <tr> 
    <td class="fontsize04">　</td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tabletblg">
  <tr> 
    <td background="images/bocolor02.gif">
<!--#include file="bottom.asp" --></td>
  </tr>
</table>
</body>
</html>
💿 文件大小 207 K
👤 上传用户 albert333
📂 所属分类 OA系统
🏷️ 相关标签

#程序
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -