useredit.asp

来自「一个用asp实现简单的小型OA系统」· ASP 代码 · 共 101 行

<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<script language="JavaScript" type="text/JavaScript">
<!--
//检查表信息填写情况
function checkFormData(theForm){
	if(theForm.username.value==""){ alert("请填写登陆帐户！");theForm.oldpassword.focus();return false; }
	if(theForm.realname.value==""){ alert("请填写真实姓名！");theForm.oldpassword.focus();return false; }
	if(theForm.oldpassword.value==""){ alert("请填写老密码！");theForm.oldpassword.focus();return false; }
	if(theForm.password.value==""){ alert("请填写新密码！");theForm.password.focus();return false; }
	if(theForm.password2.value==""){ alert("请填写确认密码！");theForm.password2.focus();return false; }
	if(theForm.password.value!=theForm.password2.value){ alert("密码和确认密码不一致！");theForm.password2.focus();return false; }
	return true;
}
//-->
</script>
<%
Dim id, sql, rs, action, username, realname, oldpassword, password
action = LCase(Trim(request.QueryString("action")))
Select Case action
    Case ""
        Call show() '显示用户详细信息
    Case "update"
        Call update() '实现修改更新数据库
End Select

Function show() '显示用户信息
    id = session("userid")
    sql = "select * from [user] where [userid] ="&id
    Set rs = conn.Execute(sql)
%>
<link href="admstyle.css" rel="stylesheet" type="text/css" />
<form name="form1" method="post" action="?action=update">
  <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#799ae1">
    <tr>
      <td colspan="2" align="center"><strong>用户信息</strong></td>
    </tr>
    <tr>
      <td width="21%" align="right" bgcolor="#FFFFFF">用户编号:</td>
      <td width="79%" bgcolor="#FFFFFF"><%=rs("userid")%></td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">登录帐户:</td>
      <td bgcolor="#FFFFFF"><input name="username" type="text" id="username" value="<%=rs("username")%>" /></td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">真实姓名:</td>
      <td bgcolor="#FFFFFF"><input name="realname" type="text" id="realname" value="<%=rs("realname")%>" /></td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">老密码:</td>
      <td bgcolor="#FFFFFF"><input name="oldpassword" type="password" id="oldpassword">
        <span class="STYLE1">*</span>修改密码的时候请输入老密码 </td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">新密码:</td>
      <td bgcolor="#FFFFFF"><input name="password" type="password" id="password">
        <span class="STYLE1">*</span>新密码</td>
    </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">确认密码:</td>
      <td bgcolor="#FFFFFF"><input name="password2" type="password" id="password2">
        <span class="STYLE1">*</span>确认密码</td>
    </tr>
    <tr>
      <td bgcolor="#FFFFFF">&nbsp;</td>
      <td bgcolor="#FFFFFF"><input type="submit" name="Submit" value="确定修改"  onClick="return checkFormData(this.form)"/>
        <input type="reset" name="Submit2" value="重新填写" />
      </td>
    </tr>
  </table>
</form>
<%
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Function

Function update()
    id = session("userid")
    oldpassword = md5(Trim(request.Form("oldpassword")))
    password = md5(Trim(request.Form("password")))
    username = Trim(request.Form("username"))
    realname = Trim(request.Form("realname"))
    sql = "select * from [user] where userid ="&id&" AND password='"&oldpassword&"'"
    Set rs = conn.Execute(sql)
    If Not rs.EOF Then
        sql2 = "update [user] set username='"&username&"',realname='"&realname&"',[password]='"&password&"' where userid ="&id
        Set rs = conn.Execute(sql2)
        response.Write("个人信息成功修改!")
    Else
        response.Write("您输入老密码不正确，请<a href='javascript:history.go(-1)'>重新修改</a>")
    End If
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
End Function
%>