cnginfo.asp

gdflsdf fkspofql owjlfkjsoijdf sdjfo

<!--#include file="sub/config.asp"-->
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/md5.asp"-->
<!--#include file="sub/inc.asp"-->
<% dim a,b,c,d,e
a=trim(HTMLEncode(request.Form("qq")))
b=trim(HTMLEncode(request.Form("phone")))
c=trim(HTMLEncode(request.Form("email")))
f=trim(HTMLEncode(request.Form("radio")))
d=trim(HTMLEncode(request.Form("sheng")))
e=trim(HTMLEncode(request.Form("pwd")))
if session("userlogin")<>session.sessionid then
  Response.Write "<script language=javascript>{window.alert('对不起,你还没登录会员管理系统请返回!');window.location.href='user.asp';}</script>"
  else
  if a=""or b="" then 
  Response.Write "<script language=javascript>{window.alert('QQ号或电话号码没填,请填写完整!');window.location.href='javascript:history.go(-1)';}</script>"
  else
  if c=""  then
    Response.Write "<script language=javascript>{window.alert('Email没填,请返回填写完整!');window.location.href='javascript:history.go(-1)';}</script>" 
  else
  
  dim userid,rs,sql
  userid = Session("id")
  set rs=server.createobject("adodb.recordset")   '创建纪录集
  sql="select * from ax_user where id="&cint(userid)&" " '查找用户信息
  rs.open sql,cn,3,2
  rs("userqq")=a
  rs("phone")=b
  rs("email")=c
  rs("sex")=f
  rs("sheng")=d
  if e<>"" then
  rs("pwd")=md5(e)
  else
  rs("pwd")=rs("pwd")
  end if
  
  
  rs.update
  Response.Write "<script language=javascript>{window.alert('恭喜您!资料修改成功!');window.location.href='user.asp';}</script>"
 end if 
 end if
  end if
 %>