| 注册用户资料修改 |
|
<%
main()
connclose()
sub main()
dim backInput, homeInput
backInput= " " homeInput=" " if request.form="" then %> <% else dim name, pass, npass1, npass2,male,face,email,qq,url name=Encodestr(request.form("name")) pass=Encodestr(request.form("pass")) npass1=Encodestr(request.form("npass1")) npass2=Encodestr(request.form("npass2")) male=int(request.form("male")) face=Encodestr(request.form("face")) email=Encodestr(request.form("email")) qq=Encodestr(request.form("qq")) url=Encodestr(request.form("url")) if name="" or pass="" then response.write "发生错误 请输入用户名和密码！！！" response.write backInput exit sub end if if npass1<>npass2 then response.write "发生错误 新密码和确认密码要相同！！！" response.write backInput exit sub end if pass=MD5(pass) exec="select * from blyh where name='"&name&"' and pass='"&pass&"'" set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,3 if rs.eof then rsclose() response.write "发生错误 用户名不存在或密码错误！！！" response.write backInput exit sub end if if npass1<>"" then pass=MD5(npass1) rs("pass")=pass end if if rs("male") and male="0" or not rs("male") and male="1" then rs("male")=male exec="update ly set male="&male&" where bl=1 and name='"&name&"'" conn.execute(exec) end if if rs("face")="" or rs("face")<>face then rs("face")=face exec="update ly set face='"&face&"' where bl=1 and name='"&name&"'" conn.execute(exec) end if if isNull(rs("email")) or rs("email")<>email then rs("email")=email exec="update ly set email='"&email&"' where bl=1 and name='"&name&"'" conn.execute(exec) end if if isNull(rs("qq")) or rs("qq")<>qq then rs("qq")=qq exec="update ly set qq='"&qq&"' where bl=1 and name='"&name&"'" conn.execute(exec) end if if isNull(rs("url")) or rs("url")<>url then rs("url")=url exec="update ly set url='"&url&"' where bl=1 and name='"&name&"'" conn.execute(exec) end if rs.update rsclose() response.write "修改成功！！！" response.write homeInput response.cookies("gbook")("username")=name response.cookies("gbook")("password")=pass end if end sub %> |