📄 pwsedit.asp

📁 本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Inc/AdminChk.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="../Inc/md5.asp"-->
<!--#include file="../Inc/MsgBox.asp"-->
<!--#include file="../Inc/FormChk.asp"-->
<%
IF Trim(Request("Submit"))<>Empty Then
  Dim StrSql,Rs,PassWord1,PassWord2
  PassWord1=Encodestr(Request.Form("PassWord1"))
  PassWord2=Encodestr(Request.Form("PassWord2"))
  IF PassWord1<>Empty And PassWord2<>Empty Then
    Set Rs=Server.CreateObject("adodb.recordset")
	StrSql="Select * From [Admin] where ID=1"
	Rs.open StrSql,Conn,1,3
	  IF PassWord1<>PassWord2 Then
	    Rs.Close
		Set Rs=Nothing
		Call MsgBox("两次输入的密码不一致","Back","")
		Response.End()
	  Else
	    Rs("PassWord")=MD5(PassWord1,32)
		Rs.UpDate
		Rs.Close
		Set Rs=Nothing
		Call MsgBox("修改成功","GoUrl","PwsEdit.asp")
		Response.End()	  
	  End IF
  Else
	Call MsgBox("请输入新密码","Back","")
    Response.End()
  End IF
End IF
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改密码</title>
<link href="../style.css" rel="stylesheet" type="text/css">
</head>

<body><!--#include file="top.asp"-->
<form name="form1" method="post" action="">
  <table width="536" border="0" align="center" cellpadding="4" cellspacing="4" class="page">
    <tr>
      <td width="128"><div align="right">新密码：</div></td>
      <td width="380"><input name="password1" type="password" class="input2" id="password1" maxlength="12"></td>
    </tr>
    <tr>
      <td><div align="right">重复新密码：<strong><br>
      </strong></div></td>
      <td><input name="password2" type="password" class="input2" id="password2" maxlength="12"></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit" class=input value="提交">
          <input type="reset" name="Submit2" class=input value="重置"></td>
    </tr>
  </table>
</form><!--#include file="copy.asp"-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -