📄 modipass.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn/logors.inc" -->
<!-- #include file="inc/chkinput.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=site_title%></title>
</head>
<%=styletext%>
<DIV class=menuskin id=popmenu
onmouseover="clearhidemenu();highlightmenu(event,'on')" style="Z-INDEX: 100"
onmouseout="highlightmenu(event,'off');dynamichide(event)"></DIV><!--顶部表格-->
<SCRIPT language=JavaScript src="style/main.js"></SCRIPT>
<body>
<table width="750" height="300" align="center">
<tr>
<td class=TableTitle2 height="97">
<!-- #include file="sitehead.asp" -->
</td>
</tr>
<tr>
<td height="100" valign="top">
<% navigation_flag=36 %>
<!-- #include file="func_navigationbar.asp" -->
<!-- #include file="func_verify.asp" -->
<%
dim adduser_temp,save_serial,msginfo,msg
save_serial=1
msg=""
Set rsinfoinput = Server.CreateObject("ADODB.Recordset")
if request("saveflag")="1" then
adduser_temp=trim(request("password"))
if adduser_temp<>"" and len(adduser_temp)<6 then
msg=msg &save_serial& "、请输入用户密码，密码长度不能少于6位!<br>"
save_serial=save_serial+1
end if
adduser_temp1=trim(request("repassword"))
if len(adduser_temp1)<6 then
msg=msg &save_serial& "、请输入确认密码，密码长度不能少于6位!<br>"
save_serial=save_serial+1
end if
if adduser_temp<>adduser_temp1 then
msg=msg &save_serial& "、密码和密码确认不相同，请重新输入!<br>"
save_serial=save_serial+1
end if
oldpass=mistake(request("oldpass"))
SQL="select * from cci_user where id=" & session("userid") & " and (userpass is null or userpass='" & oldpass & "')"
rsinfoinput.Open sql,connObj,3,3
if not rsinfoinput.eof then
rsinfoinput("userpass")=mistake(adduser_temp)
rsinfoinput.update
else
msg=msg & save_serial& "、用户名或用户原来密码不对，请重新输入!<br>"
save_serial=save_serial+1
end if
rsinfoinput.close
if save_serial>1 then
msginfo="message.asp?rediurl=default.asp&msgurl=首页&msginfo=用户密码修改不成功!<br>" & msg
else
msginfo="message.asp?rediurl=default.asp&msgurl=首页&msginfo=用户密码修改成功!"
end if
response.Redirect(msginfo)
end if
sql="select * from cci_user where id=" & session("userid")
rsinfoinput.Open sql,connObj,1,1
if not rsinfoinput.eof then
username=rsinfoinput("username")
name=rsinfoinput("name")
end if
rsinfoinput.close
%> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="20%" height="66" valign="top" class=tablebody1> <!-- #include file="func_menulist.asp" --></td>
<td valign="top" class=tablebody1>
<table width="100%" cellspacing="1" cellpadding="1" class=tableborder1>
<FORM name=cityForm action="" method=post>
<TR align=middle>
<Th colSpan=2 height=25 > <b>用户密码修改</b></Th>
</TR>
<tr>
<td width="48%" class=tablebody1><b>用户名称：</b></td>
<td width="52%" class=tablebody1><%=username%></td>
</tr>
<tr>
<td height="20" class=tablebody1><b>用户姓名：</b></td>
<td class=tablebody1><%=name%></td>
</tr>
<tr>
<td class=tablebody1><b>用户密码：</b><br>
请输入用户原来的密码。</td>
<td class=tablebody1><input name=oldpass type=password size=30 maxlength=16></td>
</tr>
<tr>
<td class=tablebody1><b>更新密码：</b><BR>
请输入需要更新的密码，区分大小写。 请不要使用任何类似 \'*\'、\' \' 或 HTML 字符。</td>
<td class=tablebody1><input name=password type=password size=30 maxlength=16></td>
</tr>
<tr>
<td class=tablebody1><b>密码确认：</b> <br>
请输入确认密码。</td>
<td class=tablebody1><input name=repassword type=password size=30 maxlength=16><input type=hidden value="1" name=saveflag></td>
</tr>
<tr>
<td class=tablebody1> </td>
<td class=tablebody1><input type="submit" name="Submit" value="更改"></td>
</tr></form>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<!-- #include file="sitefloor.asp" --> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -