📄 mycentre.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'=========================================================
' Serv-U 用户在线注册管理程序-1.0(odbc+asp版)[2006040819]
' 版权所有：北江科技
' 客服QQ:418322257 E-Mail:qystu@163.Com
' 欢迎大家联系我们，根据具体情况定制相对应的程序。
' 讨论建议网址：http://asp.6to23.com/qyzz/qystu/forumTopicRead.asp?id=1187
'=========================================================
%>
<% If Session("MM_kasak")= "" Then
Response.Redirect "login.asp"
End If %>
<!--#include file="config.asp" -->
<!--#include file="md5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改密码-<%=PlugVersion%></title>
<link href="STYLE.CSS" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<body>
<p>
<%
dim act,UserName,OldPassword,NewPassword,reNewPassword
act = Request.form("act")
if act = "update" then
UserName = Session("MM_kasak")
OldPassword = Request.form("OldPassword")
NewPassword = Request.form("NewPassword")
reNewPassword = Request.form("reNewPassword")
UserName = Replace(UserName,"'","'")
if len(UserName)<1 or len(OldPassword)<1 or len(NewPassword)<1 or len(reNewPassword)<1 then
alert("表单没有填写完整")
end if
if trim(NewPassword)<>trim(reNewPassword) then
alert("密码与确认密码不一样")
end if
Dim check_user
Dim check_user_numRows
Set check_user = Server.CreateObject("ADODB.Recordset")
check_user.ActiveConnection = MM_ServU_STRING
check_user.Source = "SELECT top 1 User,Password FROM User_accounts WHERE User = '"& UserName &"'"
check_user.CursorType = 0
check_user.CursorLocation = 2
check_user.LockType = 1
check_user.Open()
if check_user.eof and check_user.bof then
alert("用户名不存在")
else
dbname = check_user("User")
dbpassword = check_user("Password")
end if
check_user.Close()
Set check_user = Nothing
cdbpassword = left(dbpassword,2) & md5(left(dbpassword,2) & OldPassword)
if trim(cdbpassword) <> trim(dbpassword) then
alert("旧密码错误!")
else
rndstr = MyRandc(2) '两位随机字母
newdbpassword = rndstr & md5(rndstr & NewPassword)
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_ServU_STRING
Command1.CommandText = "update User_accounts set Password = '"& newdbpassword &"' where User='"& UserName &"'"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
alert("密码已经更改，可能要几钟后才能生效")
end if
end if
function alert(x)
response.write "<script language='JavaScript'>alert('"& replace(x,"""","\""") &"');history.go(-1);</script>"
response.end
end function
function MyRandc(n)
thechr = ""
for i=1 to n
Randomize timer
zNum = cint(25*Rnd)
if zNum mod 2 = 0 then
zNum = zNum + 97
else
zNum = zNum + 65
end if
thechr = thechr & chr(zNum)
next
MyRandc = thechr
end function
%>
</p>
<p> </p>
<form method="post" name="form" autocomplete="off">
<input type="hidden" name="act" value="update">
<div align="center">
<center>
<table width="58%" border="1" align="center" cellpadding="5" cellspacing="1" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
<tr bgcolor="#FFEC80">
<td colspan="2" color:#FFFFFF;"><strong><span class="style1">修改[</span><%= Session("MM_kasak")%><span class="style1">]的FTP (Serv-U) 密码</span></strong></td>
</tr>
<tr>
<td width="27%" align="left"> 旧密码：</td>
<td width="73%"><input class="input" type="password" maxlength=20 name="OldPassword" size="25" value="" />
<font color="#FF0000">*</font> 必须输入旧密码</td>
</tr>
<tr>
<td width="27%" align="left"> 新密码：</td>
<td width="73%"><input class="input" type="password" name="NewPassword" size="25" value="" />
<font color="#FF0000">*</font> 输入新密码</td>
</tr>
<tr>
<td width="27%" align="left"> 确认密码：</td>
<td width="73%"><input class="input" type="password" name="reNewPassword" size="25" value="" />
<font color="#FF0000">*</font> 再次输入新密码</td>
</tr>
<tr>
<td height="30" align="center" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="left"><font color="#FF0000">
<input type="button" name="Submit2" value="返回首页" onClick="top.location='index.asp';">
</font></div></td>
<td align="center"><font color="#FF0000">
<input type="button" name="Submit2" value="退出系统" onClick="top.location='logout.asp';">
</font>
<div align="center"><font color="#FF0000"> </font> </div></td>
<td><div align="right">
<input type="submit" name="Submit" value="修改密码">
</div></td>
</tr>
</table></td>
</tr>
</table>
</center>
</div>
</form>
<!--#include file="bot.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -