📄 safe2.asp

📁 网上购物系统 asp+sql server 2005
💻 ASP
字号:
<!--#include file="../include/dbopenbd.asp"-->
<!--#include file="checkadmin.asp"-->
<!--#include file="../md5.asp"-->

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="manage.css" type="text/css">
</head>
<BODY background="../images/admin/back.gif">

<%
admin=request.cookies("buyok")("admin")
action=request("edit")
if action<>"ok" then
%>

	<table width="98%" border="1" 
		style="border-collapse: collapse; border-style: dotted; border-width: 0px"  
		bordercolor="#333333" cellspacing="0" cellpadding="2">
	<form action=safe2.asp method=post>
	<tr class=backs><td colspan=2 class=td height=18>管理员密码修改</td></tr>
	<tr><td width=20% align=right height="18">管理员名称</td>
		<td><input type="text" readonly name="Username" size="20" value="<%=admin%>">
  &nbsp;&nbsp; <img src=../images/admin/memo.gif alt="管理员名称不能修改<br>可添加新管理员后删除老管理员"> </td></TR>
	<tr><td width=20% align=right height="18">请您输入旧密码</td>
		<td><input type="password" name="Pass0" size="20"  maxlength=16> </td></tr>
	<tr><td width=20% align=right height="18">请您输入新密码</td>
		<td><input type="password" name="Pass1" size="20"  maxlength=16> 
  &nbsp;&nbsp; <img src=../images/admin/memo.gif alt="密码长度：8-16位<br>建议使用数字和字母组合"> </td></TR>
	<tr><td width=20% align=right height="18">请您确认新密码</td>
		<td><input type="password" name="Pass2" size="20"  maxlength=16>
  &nbsp;&nbsp; <img src=../images/admin/memo.gif alt="确认新密码"> </td></TR>
	<tr><td colspan=2><input type="submit" name="Submit" value="确认修改">
		<input type="hidden" name="edit" value="ok"></td></tr>
	</form>
	</table>
<%   
else
	if buyoktxtcheck(Request("pass0"))<>Request("pass0") or buyoktxtcheck(Request("pass1"))<>Request("pass1") or buyoktxtcheck(Request("pass2"))<>Request("pass2") then
	response.write "<script language='javascript'>"
	response.write "alert('您填写的内容中含有非法字符，请检查后重新输入！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
	end if

	if trim(Request("pass0"))="" or trim(Request("pass1"))="" or trim(Request("pass2"))="" then
	mGoBack "出错了，填写不完整，请填写旧密码和新密码！"
	end if

	if trim(Request("pass1"))<>trim(Request("pass2")) then
	mGoBack "出错了，两次输入的新密码不符，请检查后重新输入！"
	end if

	if len(trim(Request("pass1")))<8 then
	mGoBack "出错了，您输入的新密码太短了，要求长度为8-16位，建议使用数字和字母组合！"
	end if

	Set rs = conn.Execute("select * from s_manage where username='"&admin&"'")
	if rs("password")<>md5(Request("pass0")) then
	mGoBack "出错了，旧密码不正确，请检查后重新输入！"
	end if

	Set rs=Server.CreateObject("ADODB.Recordset")
	sql="select * from s_manage where username='"&admin&"'"
	rs.open sql,conn,1,3
	if rs.eof and rs.bof then
	mGoBack "操作失败。您未登陆，或者闲置时间过长，或者数据库中无此记录。"
	else
		rs("password")=md5(Request("pass1"))
		rs.update
	end if
	set rs=nothing

mGoTo "quit.asp","密码更新成功，请牢牢记住您的新密码！！\n\n现在将退出管理中心，请用新密码重新登录！"
end if

%>
⌨️ 快捷键说明

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