change.asp

来自「网站的后台管理代码......内容比较全面....新手比较适合」· ASP 代码 · 共 71 行

<%
if session("admin_name")="" then
    response.redirect "../index.asp"
    response.end 
end if
%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../inc/md5.asp"-->
<% admin_name=session("admin_name") %>
<%set rs=server.createobject("adodb.recordset")%>
<%
if request("action")="change" then
sql="select * from manager where admin_name ='"&admin_name&"'"
rs.open sql,conn,1,3
if len(request("pwd"))<6 then
response.write "<font color='red'>密码不能少于6位!</font>"
response.write "<a href='change.asp'>返回</a>"
else
rs("admin_name")=request("name")
pwd=md5(request.Form("pwd"),16)
rs("pwd")=pwd
rs.update
rs.close
response.write "您的更改已成功"
end if
else
%>
<% 
set rs=server.CreateObject("adodb.recordset")
sql="select * from manager where admin_name ='"&session("admin_name")&"'"
rs.open sql,conn,1,3
 %>
<style type="text/css">
<!--
.asdasd {
	font-size: 12px;
	border: 1px solid #000000;
}
-->
</style>

<form name="form1" method="post" action="change.asp?action=change">
<table width="612" height="101" border="0" align="center" class="asdasd">
  <tr>
    <td height="31" colspan="2" align="left" background="../images/pics/tile_sub.gif">&gt;&gt;用户资料修改</td>
  </tr>
  <tr>
    <td width="230" align="right">用户名</td>
    <td width="366"><label>
      <input name="name" type="text" id="name" value="<%=rs("admin_name")%>">
    </label></td>
  </tr>
  <tr>
    <td align="right">密 码</td>
    <td><label>
      <input name="pwd" type="password" id="pwd" value="<%=rs("pwd")%>">
    </label></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><input name=submit2 type=image src="../images/pics/s_button000.gif" alt=进入 align=absMiddle width="45" height="20" cache tppabs=""></td>
  </tr>
</table></form>

<%end if%>
<%
set rs=nothing
conn.close
set conn=nothing
%></tr>