chgsave.asp

ASP仿QQ程序 web版的

<!--#include file="checklogin.asp" -->
<!--#include file="right.asa" -->
<%
pwd=request.Form("pwd")
oldpwd=request.Form("oldpwd")
cname=request.Form("name")
sex=request.Form("sex")
old=request.Form("old")
turename=request.Form("turename")
face=request.Form("faceimg")
star=request.Form("star")
prov=request.Form("prov")
city=request.Form("city")
mail=request.Form("mail")
home=request.Form("home")
code=request.Form("code")
addr=request.Form("addr")
phone=request.Form("phone")
job=request.Form("job")
school=request.Form("school")
content=request.Form("content")
sql="select * from userinfo where user_id="&session("nmb")
on error resume next
rs.open sql,conn,1,3
if oldpwd<>"" and oldpwd<>rs("pwd") then
response.Write("<script>alert('   旧密码验证错误，你无权更改该用户资料！');window.close();</script>")
rs.close()
response.End()
elseif oldpwd<>"" and oldpwd=rs("pwd") then
rs("pwd")=pwd
end if
rs("name")=cname
rs("sex")=sex
rs("old")=old
rs("turename")=turename
rs("face")=face
rs("star")=star
rs("prov")=prov
rs("city")=city
rs("mail")=mail
rs("home")=home
rs("code")=code
rs("addr")=addr
rs("phone")=phone
rs("job")=job
rs("school")=school
rs("content")=content
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
if err.number<>0 then
response.Write("<script>alert('   未知错误，更改资料失败  \n请与管理员联系！');history.back(1);</script>")
else
response.Write("<script>alert('更改资料成功！');window.close();</script>")
end if
%>