pwd_modi_ok.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 51 行

<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<!--#include file="../inc/conn.asp"--><%
if session("loginid")="" then
response.redirect "login.asp"
response.end
end if
%>
<%If is_house_ot_user=1 then
Response.Redirect ""&house_ot_modIfypass1&""
end if%>
<%
userid=session("loginid")
if userid="" then
response.end 
else
oldpwd=trim(request("oldpwd"))
pwd=trim(request("pwd"))
opendataconn
set rs=server.createobject("adodb.recordset")
sql="select * from company where userid='"&userid&"'"
rs.open sql,conn,1,1
if not rs.eof then
%>
<%  if oldpwd<>trim(rs("pwd")) then %>
       <script language="JavaScript">
        alert("对不起!您输入的旧密码不正确！")
         history.back()
        </script>
     <%else
	 conn.execute "update company set pwd='"&pwd&"' where userid='"&userid&"'"
	 %>
	 <script language="JavaScript">
        alert("您的密码已修改，请记住新密码！")
         history.back()
        </script>
		<% end if %>		
<%end if%>
<% end if %>