📄 user_password.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
字号:
<%
Option Explicit
Response.buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="../Inc/Const.asp"-->
<!--#Include File="User_CheckPurview.asp"-->
<!--#Include File="../Inc/MD5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="User_Style.css" type="text/css" rel="stylesheet">
<script language="javascript" src="../Js/Common.js"></script>
<title>密码管理</title>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="13%" background="Images/navbg.gif"><img src="Images/navtitle.gif" width="113" height="37"></td>
    <td width="87%" background="Images/navbg.gif">| <a href="User_Password.asp" class="nav">会员密码管理</a> |</td>
  </tr>
</table>
<div class="dw">
<%
Dim CurrentPath
CurrentPath = "·您现在的位置：<a href='User_Password.asp'>会员密码管理</a>"
Select Case Action
   Case "": Call ManagePassword()
   Case "SavePassword": Call SavePassword()
End Select
Call ApplicationTerminate()

Sub SavePassword()
  On Error Resume Next
  Dim UserCmd
  Dim OldPassword, NewPassword, PasswordConfirm, Question, Answer
  
  OldPassword = EL_Common.ELRequest("OldPassword", 1)
  NewPassword = EL_Common.ELRequest("NewPassword", 1)
  PasswordConfirm = EL_Common.ELRequest("PasswordConfirm", 1)
  Question = EL_Common.ELRequest("Question", 1)
  Answer = EL_Common.ELRequest("Answer", 1)
  
  If OldPassword = "" Then
     EL_Common.ShowErrorMsg("请输入原始密码")
	 Exit Sub
  End If
  
  If NewPassword = "" Then
     EL_Common.ShowErrorMsg("请输入新密码")
	 Exit Sub
  End If
  
  If NewPassword <> PasswordConfirm Then
     EL_Common.ShowErrorMsg("您两次输入的密码不一致")
	 Exit Sub
  End If
  
  NewPassword = MD5(NewPassword, 32)
  If Trim(Answer) <> "" Then
     Answer = MD5(Answer, 32)
  End If
  
  Call EL_Common.InitCommand(UserCmd, "EL_SP_ModifyUserInfo")
  With UserCmd
      .Parameters.Append .CreateParameter("RETURN", 2, 4)
	  .Parameters.Append .CreateParameter("@ModifyType", 3, 1, 4, 2)
	  .Parameters.Append .CreateParameter("@UserID", 3, 1, 4, EL_User.UserID)
	  .Parameters.Append .CreateParameter("@GroupID", 3, 1, 4, 0)
	  .Parameters.Append .CreateParameter("@UserType", 3, 1, 4, 0)
	  .Parameters.Append .CreateParameter("@TrueName", 200, 1, 50, "")
	  .Parameters.Append .CreateParameter("@Password", 200, 1, 32, NewPassword)
	  .Parameters.Append .CreateParameter("@FaceType", 3, 1, 4, 0)
	  .Parameters.Append .CreateParameter("@Userface", 200, 1, 255, "")
	  .Parameters.Append .CreateParameter("@FaceSize", 200, 1, 20, "")
	  .Parameters.Append .CreateParameter("@Sex", 2, 1, 4, 0)
	  .Parameters.Append .CreateParameter("@Birthday", 135, 1, 8, Date())
	  .Parameters.Append .CreateParameter("@IDCard", 200, 1, 20, "")
	  .Parameters.Append .CreateParameter("@Question", 200, 1, 255, Question)
	  .Parameters.Append .CreateParameter("@Answer", 200, 1, 32, Answer)
	  .Parameters.Append .CreateParameter("@Mobile", 200, 1, 30, "")
	  .Parameters.Append .CreateParameter("@Phone", 200, 1, 30, "")
	  .Parameters.Append .CreateParameter("@Fax", 200, 1, 30, "")
	  .Parameters.Append .CreateParameter("@QQ", 200, 1, 30, "")
	  .Parameters.Append .CreateParameter("@ICQ", 200, 1, 30, "")
	  .Parameters.Append .CreateParameter("@MSN", 200, 1, 100, "")
	  .Parameters.Append .CreateParameter("@Email", 200, 1, 100, "")
	  .Parameters.Append .CreateParameter("@Address", 200, 1, 255, "")
	  .Parameters.Append .CreateParameter("@ZipCode", 200, 1, 10, "")
	  .Parameters.Append .CreateParameter("@Marriage", 200, 1, 10, "")
	  .Parameters.Append .CreateParameter("@Job", 200, 1, 30, "")
	  .Parameters.Append .CreateParameter("@JobTitle", 200, 1, 30, "")
	  .Parameters.Append .CreateParameter("@Income", 3, 1, 4, 0)
	  .Parameters.Append .CreateParameter("@CompanyName", 200, 1, 100, "")
	  .Parameters.Append .CreateParameter("@Sign", 200, 1, 500, "")
	  .Parameters.Append .CreateParameter("@EnablePost", 11, 1, 1, 0)
	  .Parameters.Append .CreateParameter("@IsBoardManager", 11, 1, 1, 1)
	  .Parameters.Append .CreateParameter("@ArrManageBoardID", 200, 1, 1000, "")
	  .Parameters.Append .CreateParameter("@BoardSuperPassed", 11, 1, 1, 1)
	  .Parameters.Append .CreateParameter("@Locked", 11, 1, 1, 1)
	  .Execute()
  End With
  EL_Common.ShowScriptError()
  If UserCmd(0) = 40 Then
     EL_Common.ShowErrorMsg("会员ID错误")
	 Set UserCmd = Nothing
	 Exit Sub
  ElseIf UserCmd(0) = 41 Then
     EL_Common.ShowErrorMsg("原始密码错误")
	 Set UserCmd = Nothing
	 Exit Sub
  End If 
  
  EL_Common.ShowScriptError()
End Sub

Sub ManagePassword()
On Error Resume Next
Dim DefaultQuestion, StrQuestion, i

DefaultQuestion = EL_Common.GetFieldValue("DefaultQuestion", "EL_Config", "1=1")   
DefaultQuestion = Split(DefaultQuestion, "|")
StrQuestion = "<select id='Question' name='Question'>"
For i = 0 To Ubound(DefaultQuestion)
   StrQuestion = StrQuestion &"<option value='"& EL_Common.ServerHTMLEncode(DefaultQuestion(i)) &"'>"& EL_Common.ServerHTMLEncode(DefaultQuestion(i)) &"</option>"
Next
StrQuestion = StrQuestion &"</select>"
%>
<script language="javascript">
function Check(frm){
  if(frm.OldPassword.value.trim()==""){
     alert("请输入原始密码");
	 frm.OldPassword.focus();
	 return false;
  }
  if(frm.NewPassword.value.trim()==""){
     alert("请输入新密码");
	 frm.NewPassword.focus();
	 return false;
  }
  if(frm.PasswordConfirm.value.trim()==""){
     alert("请输入新密码确认");
	 frm.PasswordConfirm.focus();
	 return false;
  }
  
  SubmitOnce(frm);
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<form name="myform" action="User_Password.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_26"><strong>密码管理</strong></td>
  </tr>
  <tr>
    <td width="17%" align="right" class="td_ItemName"><strong>原始密码：</strong></td>
    <td width="83%" class="td_22"><input name="OldPassword" type="password" id="OldPassword" size="40"></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>新密码：</strong></td>
    <td class="td_22"><input name="NewPassword" type="password" id="NewPassword" size="40"></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>新密码确认：</strong></td>
    <td class="td_22"><input name="PasswordConfirm" type="password" id="PasswordConfirm" size="40"></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>密码问题：</strong></td>
    <td class="td_22"><%=StrQuestion%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>问题答案：</strong></td>
    <td class="td_22"><input name="Answer" type="text" id="Answer" size="40">
      <span class="redText">不重设请留空</span></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit" value="保存修改">
      <input type="reset" name="Submit2" value="重置表单">
      <input name="Action" type="hidden" id="Action" value="SavePassword"></td>
  </tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
%>

</div>
</body>
</html>
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

#Elan #2008 #SP #旅游
⌨️ 快捷键说明

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