📄 user_adminchange.asp

📁 本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="../md5.asp"-->
<%
if session("admin_name")="" then
        response.redirect "error.asp?error=001"
end if
%><head>
<link href=css.css rel=STYLESHEET type=text/css>
</head>
<%set rs=server.createobject("adodb.recordset")
if request("action")="change" then
        sql="select top 1 * from 56770_adminuser"
rs.open sql, conn, 3, 3
rs("admin_name")=request("admin_name")
rs("admin_pass")=md5(request("admin_pass"))
rs.update
rs.close
response.write "密码更改成功"
else
        %>
<body bgcolor="#799AE1">
<table width="50%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="100" align="center">&nbsp; </td>
</tr><tr>
<td background="images/admin_bg_1.gif" height="20" align="center"><font color="#FFFFFF">管理员密码修改</font></td>
</tr>
</table>
<table border="0" width="100%" cellspacing="1">
<tr>
<td width="100%">

<table border="0" width="50%" cellspacing="1" cellpadding="2" align="center" bgcolor="#FFFFFF">
<form method="POST" action="user_adminchange.asp?action=change">
<tr>
<%set rs=server.createobject("adodb.recordset")
sql="select top 1 * from 56770_adminuser"
rs.open sql, conn, 3, 3%>
<td width="21%" bgcolor="#CCCADF">用户名：</td>
<td width="79%" bgcolor="#CCCADF">
<input type="text" name="admin_name" size="20" value="<%=rs("admin_name")%>" class=input>
</td>
</tr>
<tr>
<td width="21%" bgcolor="#CCCADF">密　码：</td>
<td width="79%" bgcolor="#CCCADF">
<input type="password" name="admin_pass" size="20" >
</td>
</tr>
<tr bgcolor="#CCCADF" align="center">
<td colspan="2">
<input type="submit" value="修改提交" name="B1" class=input>
</td>
</tr>
</form>
</table>
<%rs.close
%>
<p>&nbsp; </p>

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

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -