****************************Óû§ÐÞ¸Ä****************************

<%'updateuser.ASP%>

<%response.buffer = true%>

*****************************Ð޸Ĵ¦Àí********************************

<%'updateusercl.ASP%>

<%response.buffer = true%>

<%

dim sc_name,sc_sex,sc_pass,sc_quesstion,sc_answer,sc_email,sc_ip,sc_flag,sc_oldpass,dd

sc_oldpass = request.form("oldpass")

sc_ip = request.servervariables("remote_addr")

sc_name = replace(trim(request.form("name")),"<","<")

sc_sex = replace(trim(request.form("sex")),"<","<")

sc_pass = request.form("pass")

sc_quesstion = request.form("quesstion")

sc_answer = request.form("answer")

sc_email = request.form("email")

set conn=server.createobject("adodb.connection")

conn.open "chat","chat","chat001"

sc_flag = 0

'Õ˺Ų»´æÔÚ

sql1 = "select user_password from user_info_table where user_name = '" + sc_name + "'"

set rs=conn.execute(sql1)

if rs.eof then

sc_flag = 1

else

'¿ÚÁî²»¶Ô

if trim(sc_oldpass) <> trim(rs(0)) then

sc_flag = 2

end if

end if

rs.close

if sc_flag = 0 then

sql1 = "update user_info_table set user_password='" + sc_pass + "',user_sex='" + sc_sex +"',user_email='" + sc_email +"',user_quesstion='" + sc_quesstion + "',user_answer='" + sc_answer + "' where user_name='" + sc_name + "'"

set rs1 = conn.execute(sql1)

end if

conn.close

select case sc_flag

case 0

response.redirect "updateuserok.ASP"

case 1

response.redirect "updateuserno.ASP"

case 2

response.redirect "updateuserps.ASP"

end select

%>

****************************Ð޸ijɹ¦*******************************

<%'updateuserok.ASP%>

HEIGHT="145">Ð޸ijɹ¦£¡£¡ÇëµÇ¼ÁÄÌìÊÒ£¡