📄 usermodify.aspx

📁 一个完整的办公自动化源码,免费提供给大家下载
💻 ASPX
字号:
<%@ Page Language="VB" ContentType="text/html" debug="true"  %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<!--#include file="ckqx.aspx" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改用户信息</title>
<link href="../CSS.CSS" rel="stylesheet" type="text/css">
</head>
<body>
<body  bgcolor="#CCCCCC">
<form runat="server">
<table width="549" height="24" border="0" cellpadding="0" cellspacing="0" background="../pic/002.png">
  <tr>
      <td><strong><font color="#FFFFFF">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;修改用户信息</font></strong></td>
  </tr>
</table>
<table width="549" height="400" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolordark="#FFFFFF">
  <tr>
    <td valign="top" bgcolor="#FFFFFF">
  <table width="398" align="center" bgcolor="#FFFFFF">
    <tr valign="baseline"> 
      <td nowrap align="right">用户名:</td>
            <td><asp:textbox BorderStyle="solid" BorderWidth="1" Font-Name="宋体" Font-Size="10" ID="zname" runat="server" TextMode="SingleLine" />
              <asp:requiredfieldvalidator ControlToValidate="zname" Display="Dynamic" ErrorMessage="用户登录名必填" ID="rname" runat="server" Text="*" /> 
            </td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right">密码:</td>
            <td><asp:textbox BorderStyle="solid" BorderWidth="1" Font-Name="宋体" Font-Size="10" ID="zpass" runat="server" TextMode="SingleLine" />
              <asp:requiredfieldvalidator ControlToValidate="zpass" Display="Dynamic" ErrorMessage="用户密码必填" ID="rpass" runat="server" Text="*" /> 
            </td>
    </tr>
    <tr valign="baseline"> 
            <td height="19" align="right" nowrap>真实姓名:</td>
            <td><asp:textbox BorderStyle="solid" BorderWidth="1" Font-Name="宋体" Font-Size="10" ID="zxm" runat="server" TextMode="SingleLine" />
              <asp:requiredfieldvalidator ControlToValidate="zxm" Display="Dynamic" ErrorMessage="用户真实姓名必填" ID="rxm" runat="server" Text="*" /> 
            </td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right">部门:</td>
            <td><asp:dropdownlist ID="zbm" runat="server"></asp:dropdownlist>
            </td> 
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right">权限:</td>
            <td>
			<asp:dropdownlist ID="zqx" runat="server">
				<asp:listitem value="d">普通员工</asp:listitem>
				<asp:listitem value="c">普通管理员</asp:listitem>
				<asp:listitem value="b">高级管理员</asp:listitem>
				<asp:listitem value="a">网管</asp:listitem>
			</asp:dropdownlist>
               
            </td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right">&nbsp;</td>
            <td> <asp:button Font-Size="10" ID="zadd" runat="server" Text="修改" OnClick="zscedit" /><asp:validationsummary DisplayMode="BulletList" HeaderText="您的输入有下列错误：" ID="rerroe" runat="server" ShowMessageBox="true" ShowSummary="false" /></td>
    </tr>
  </table>
</td>
  </tr>
</table>
</form></body>
</body>
</html>
<script language="VB" runat="server">
	sub page_load(s as object,e as eventargs)
		if not ispostback then 
			if not (checkqx("a")) then response.redirect("error.aspx")
			bindlist()
		end if
	end sub
	sub bindlist()
		'确定各项初始值
		dim conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../office.mdb"))
		conn.open()
		dim objcmd as new oledbcommand("select * from userinfo where id=" & request.querystring("id"),conn)
		dim objrd as oledbdatareader=objcmd.executereader()
		dim lsbmstr,lsqxstr as string
		if objrd.read() then
			zname.text=objrd.item("ousername")
			zpass.text=objrd.item("opassword")
			zxm.text=objrd.item("orealname")
			lsbmstr=objrd.item("oworkroom")
			'所在部门
			lsqxstr=objrd.item("ointo")
			'权限
		else
			'异常错误
			response.redirect("edituserlist.aspx")
		end if
		objrd.close()
		objcmd.commandtext="select * from btype"
		objrd=objcmd.executereader()
		do while objrd.read()
			zbm.items.add(objrd.item("btype"))
			if lsbmstr=objrd.item("btype") then zbm.items(zbm.items.count-1).selected=true
		loop
		dim ii as object
		for each ii in zqx.items
			if ii.value=lsqxstr then ii.selected=true
		next
		conn.close()
	end sub
	sub zscedit(s as object,e as eventargs)
		dim conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../office.mdb"))
		conn.open()
		dim objcmd as new oledbcommand()
		objcmd.connection=conn
		objcmd.commandtext="update userinfo set ousername=?,opassword=?,orealname=?,oworkroom=?,ointo=? " & _
							" where id=" & request.querystring("id")
		objcmd.parameters.add("@ousername",oledbtype.char).value=zname.text
		objcmd.parameters.add("@opassword",oledbtype.char).value=zpass.text
		objcmd.parameters.add("@orealname",oledbtype.char).value=zxm.text
		objcmd.parameters.add("@oworkroom",oledbtype.char).value=zbm.selecteditem.text
		if zqx.selecteditem.value="err" then
			'保留原始权限
			objcmd.parameters.add("@ointo",oledbtype.char).sourcecolumn="ointo"
			objcmd.parameters.add("@ointo",oledbtype.char).sourceVersion=DataRowVersion.original
		else
			objcmd.parameters.add("@ointo",oledbtype.char).value=zqx.selecteditem.value
		end if
		objcmd.executenonquery()
		conn.close()
		response.redirect("edituserlist.aspx")
	end sub
</script>
⌨️ 快捷键说明

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