chang_pas.asp

实现让客户上网就可以挑选自己所想要的装饰物

<!--#include file=cn.asp-->
<!--#include file="func.asp"-->
<%
if session("user")=""   then
response.Redirect "../login.asp"

end if
xyh=session("xyh")
uname=session("user")
id=request.QueryString("id")
jmm=trim(request.Form("jmm"))
mm=trim(request.Form("xmm1"))
set rs=server.CreateObject("adodb.recordset")
select case xyh
'设计师修改密码
case 1
sql= "select uname,mm from sheji where id ="&id
rs.open sql,cn,1,3
if rs("mm")<>md5(jmm) then
response.Write "<script language=javascript>alert('旧密码错误！');history.go(-1);</script>"
response.End()
rs.close
set rs=nothing
cn=nothing
set cn=nothing
else
rs("mm")=md5(mm)
rs.update
response.Write "<script language=javascript>alert('操作成功！');window.location.replace('comnews.asp');</script>"
response.End()
rs.close
set rs=nothing
cn=nothing
set cn=nothing
end if
'普通用户修改密码
case 2
sql= "select uname,mm from users where id ="&id
rs.open sql,cn,1,3
if rs("mm")<>md5(jmm) then
response.Write "<script language=javascript>alert('旧密码错误！');history.go(-1);</script>"
response.End()
rs.close
set rs=nothing
cn=nothing
set cn=nothing
else
rs("mm")=md5(mm)
rs.update
response.Write "<script language=javascript>alert('操作成功！');window.location.replace('comnews.asp');</script>"
response.End()
rs.close
set rs=nothing
cn=nothing
set cn=nothing
end if
'公司修改密码
case 3
sql= "select cname,commm from company where id ="&id
rs.open sql,cn,1,3
if rs("commm")<>md5(jmm) then
response.Write "<script language=javascript>alert('旧密码错误！');history.go(-1);</script>"
response.End()
rs.close
set rs=nothing
cn=nothing
set cn=nothing
else
rs("commm")=md5(mm)
rs.update
response.Write "<script language=javascript>alert('操作成功！');window.location.replace('comnews.asp');</script>"
response.End()
rs.close
set rs=nothing
cn=nothing
set cn=nothing
end if
end select
%>