📄 edit.asp

📁 ASP原码
💻 ASP
字号:
<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->
<%
	set cn=server.CreateObject("ADODB.connection")
	cn.Open DSN_ACLASS

	set rsUser=server.CreateObject("ADODB.recordset")
	rsUser.Open "select* from "&TBL_USER&" where ID="&request("user_id")&"", cn
	
	set rs=server.CreateObject("ADODB.recordset")
	set rsTemp=server.CreateObject("ADODB.recordset")
%>

<HTML>
<BODY bgcolor="#CFC9CD" leftmargin="0" topmargin="10" >
<!--#include file="Header.asp"-->

<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align="center" height="70%">
  <tr> 
    <td bgcolor="#8C9A8C" width="3"></td>
    <td width="764" bgcolor="#EFEFEF" height="20" valign="bottom">　你现在的位置：操作员管理－修改用户信息</td>
    <td bgcolor="#8C9A8C" width="3"></td>
  </tr>
  <tr> 
    <td bgcolor="#8C9A8C" width="3"></td>
    <td width="764">&nbsp; </td>
    <td bgcolor="#8C9A8C" width="3"></td>
  </tr>
  <tr> 
    <td bgcolor="#8C9A8C" width="3"></td>
    <td width="764" valign="top"> 
      <form name="form1" method="post" action="edit2.asp">
        <table width="75%" border="1" align="center" bgcolor="#E3E3E3">
          <tr bgcolor="EFEFEF"> 
            <td width="32%">用户名</td>
            <td width="68%" bgcolor="EFEFEF"> 
              <input type=hidden name=user_id value=<%=request("user_id")%>>
              <input alt="用户名***" type=text name=user_username value="<%=rsUser("USERNAME")%>" maxlength="20">
              *** (不超过20个字符)</td>
          </tr>
          <tr bgcolor="EFEFEF"> 
            <td width="32%">昵称</td>
            <td width="68%"> 
              <input alt="昵称***" type=text name=user_nickname value="<%=rsUser("NICKNAME")%>" maxlength="20">
              *** (不超过20个字符) </td>
          </tr>
          <tr bgcolor="EFEFEF"> 
            <td width="32%">密码</td>
            <td width="68%"> 
              <input type=text name=user_password  value="<%=rsUser("PASSWORD")%>" maxlength="20">
              (不超过20个字符) </td>
          </tr>
          <tr bgcolor="EFEFEF"> 
            <td width="32%">性别</td>
            <td width="68%"> 
              <select name="user_sex" alt>
                <% 
				rs.Open "select * from DIC_SEX", cn
                rs.movefirst
			   do while not rs.eof %>
                <option <%=SELECTED(rsUser("SEX"), rs("ID"))%> value=<% =rs("id")%>> 
                <% =rs("name")%>
                </option>
                <% rs.movenext
			   loop
                rs.Close
				%>
              </select>
            </td>
          </tr>
          <tr bgcolor="EFEFEF"> 
            <td width="32%">EMail</td>
            <td width="68%"> 
              <input type=text name=user_mailadd  value="<%=rsUser("MAILADD")%>" maxlength="50">
            </td>
          </tr>
          <tr bgcolor="EFEFEF"> 
            <td width="32%">赋予公司的管理权限</td>
            <td width="68%"> 
              <% rs.Open "select * from SCHOOL order by NAME", cn, adOpenStatic
			  	cur_school=0
			  %>
              <table width="100%" border="0">
                <tr> 
                  <td valign="top"> 
                    <%do while not rs.eof and cur_school<rs.RecordCount/2%>
						<%rsTemp.Open "Select * from TBL_ASADMIN_SCHOOL where UID="&request("user_id")&" and SID="&rs("id")&"", cn, adOpenStatic
						has_school=false
						if rsTemp.RecordCount>0 then has_school=true
						rsTemp.close %>
						<input type="checkbox" name="school_id" <%=CHECKED(has_school, TRUE)%> value=<%=rs("id")%>>
						<% =rs("name")%>
						<br>
						<% rs.movenext
						cur_school=cur_school+1
				   loop%>
                  </td>
                  <td valign="top"> 
                    <%do while not rs.eof and cur_school<=rs.RecordCount%>
						<%rsTemp.Open "Select * from TBL_ASADMIN_SCHOOL where UID="&request("user_id")&" and SID="&rs("id")&"", cn, adOpenStatic
						has_school=false
						if rsTemp.RecordCount>0 then has_school=TRUE
						rsTemp.close %>
						<input type="checkbox" name="school_id" <%=CHECKED(has_school, TRUE)%> value=<%=rs("id")%>>
						<% =rs("name")%>
						<br>
						<% rs.movenext
						cur_school=cur_school+1
				   loop%>
                  </td>
                </tr>
              </table>
              <% rs.Close %>
            </td>
          </tr>
          <tr bgcolor="EFEFEF"> 
            <td colspan="2"> 
              <div align="center"> 
                <input type="button" value="确定" onClick="jscript:OnSubmitGeneral(form1)" name="buttonsubmit">
                <input type="button" value="返回" onClick="jscript:OnReturn()" name="button">
              </div>
            </td>
          </tr>
        </table>
        </form>
    </td>
    <td bgcolor="#8C9A8C" width="3"></td>
  </tr>
  <tr> 
    <td bgcolor="#8C9A8C" width="3" height="21"></td>
    <td width="764" bgcolor="EFEFEF" height="21"> 
      <div align="center"><%=COMPANY%></div>
    </td>
    <td bgcolor="#8C9A8C" width="3" height="21"></td>
  </tr>
</table>

<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#8C9A8C" align="center">
  <tr> 
    <td height="4"></td>
  </tr>
</table>

<!--#include file="../../System/miscJScript.asp"-->

</BODY>
</HTML>
⌨️ 快捷键说明

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