📄 admin_edituser.asp

📁 ASP开发学生成绩查询管理系统,能满足毕业设计的要求-ASP student achievement for the development of the management system, des

💻 ASP

字号:

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


<html>
<head>
<link rel="stylesheet" href="inc/css.css" type="text/css" />
</head>
<body>

 
<% 
  dim ID,ww,worktype
  ID=request.QueryString("id")
  ww="select * from user where id="&ID
   rs.open ww,conn,1,1
 
  

 
%>
<form name="form1" method="post" action="">
  <table width="550" border=0 align=center cellpadding=2 cellspacing=1 bordercolor="#799AE1" class=tableBorder>
    <tbody>
      <tr>
        <th colspan=2 align=center style="height: 23px">
		  <div align="center">

		 
		 修改管理员资料</div></th>
      </tr>
      <tr bgcolor="#DEE5FA">
        <td colspan="2" align="left" bgcolor="#DEE5FA" class=txlrow>&nbsp;

		
		
		</td>
      </tr>
      <tr align="center" bgcolor="#799AE1">
        <td width="250" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">用户名：</div></td>
        <td width="287" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">
          
          <div align="left">
            <input name="txtname" type="text" id="txtname" value="<%=rs("usename")%>" size="15">
          </div></td>
      </tr>
      <tr align="center" bgcolor="#799AE1">
        <td width="250" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="right">密 码：</div></td>
        <td align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">
          
          <div align="left">
            <input name="txtpaw" type="password" id="txtpaw" size="15" value="<%=rs("password")%>">
          </div></td>
      </tr>
      
      <tr bgcolor="#DEE5FA">
        <td align="center" class="txlrow"><div align="center"></div></td>
        <td align="center" bgcolor="#DEE5FA" class="txlrow">
          
          <div align="left">
            <input type="submit" name="Submit" value="修改">
            <input type="reset" name="Submit2" value="重置">
          &nbsp;&nbsp;<a href="admin_adduser.asp">返回</a></div></td>
      </tr>
      <tr bgcolor="#DEE5FA">
        <td colspan="2" align="center" class="txlrow"><div align="center">
          <p>&nbsp;</p>
          </div></td>
      </tr>
    
      <tr bgcolor="#DEE5FA">
        <td colspan=2 align=center class=txlrow></td>
      </tr>
</tbody></table>
<%
rs.close
set rs=nothing
%>
</FORM>
<%
dim s,usename,paw
  
	paw=request.form("txtpaw")
	usename=request.form("txtname")
	
if request.form("submit")="修改" then
    if request.form("txtname")="" or request.form("txtpaw")="" then
	  response.write "<script> alert('用户名或密码不能为空!');</script>"
	  else 
	 
    set rs=server.CreateObject("adodb.recordset") 
	s="select * from user where id="&ID
	rs.open s,conn,3,3
	
	
	rs("password")=paw
	rs("usename")=usename
	
	response.write "<script> alert('修改成功!');location.href='/admin_adduser.asp';</script>"
	rs.update


   end if
   end if

%>
</BODY>
  </HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -