<%@ Language=VBScript %>
<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%
 
   set rs=server.CreateObject ("ADODB.recordset")
  
    rs.Supports ( adUpdate )
   sql="select * from user where user_name='"&session("Current_user")&"'"
   rs.Open sql,conn1,2,3
  if rs.RecordCount<>0 then
   'rs("user_name")=Request("user_name")
   rs("passwd")=Request("Password")
   rs("nickname")=Request("nickname")
   rs("passwd_question")=Request("question")
   rs("passwd_answer")=Request("answer")
   'rs("weight")=0
   'rs("counter")=1
  ' rs("visited_counter")=0
   'rs("charisma")=0
   rs("sex")=Request("sex")
   rs("byear")=Request("byear")
   rs("bmonth")=Request("bmonth")
   rs("bday")=Request("bday")
   '///////////////////////
   rs("nation")=Request("nation")
    rs("friend_object")=Request("friend_object")
     rs("shengxiao")=Request("shengxiao")
      rs("work_status")=Request("work_status")
       rs("work_position")=Request("work_position")
        rs("work_province")=Request("work_province")
   rs("work_city")=Request("work_city")
        rs("dangwei")=Request("dangwei")
   rs("house")=Request("house")
  '//////////////////////
   
   rs("email")=Request("email")
   rs("telephone")=Request("telephone")
   rs("province")=Request("place")
   rs("city")=Request("city")
   rs("vocation")=Request("job")
   rs("employment")=Request("jobtitle")
   rs("education")=Request("edu")
   rs("salary")=Request("income")
   rs("constellation")=Request("constellation")
   rs("blood")=Request("blood")
   rs("married")=Request("martial")
   rs("relation")=Request("relation")
  rs("public_select")=cint(Request("public_select"))
   rs.Update 
  end if
''''''''''///////////////////////////////////////////''''''''
  dim language_array(12)
  language=""
  for i=1 to 12
  language_array(i)=0
  next
  for i=1 to 12
    temp="lans"&cstr(i)
    if  Request(cstr(temp))=cstr(i) then
		language_array(i)=1
     end if
  next
  for i=1 to 12
	if language_array(i)=1 then
		language="1"&language
	else 
		language="0"&language
	end if
   next
   
   'dim characters(60)
   character=""
   for i=0 to 59
		temp1="characters"&cstr(i)
		if  Request(cstr(temp1))=cstr(i) then
			character="1"&character
		else
			character="0"&character
		end if
   next
   set rs1=server.CreateObject ("ADODB.recordset")
   'rs1.Supports (adAddNew)
   rs1.Supports ( adUpdate )
   sql="select * from user_info where user_name='"&session("Current_user")&"'"
   rs1.Open sql,conn1,2,3
   'if rs1.RecordCount<>0 then
    rs1("language")=language
   rs1("height")=Request("height")
    rs1("shape")=Request("shape")
    '/////////////////////
  
    rs1("weight")=Request("weight")
    rs1("health")=Request("health")
    rs1("icq")=Request("icq")
    
    '//////////////////////////
    rs1("smoking")=Request("smoking")
    rs1("drinking")=Request("drinking")
    rs1("oicq")=Request("oicq")
    rs1("graduated_school")=Request("graduated_school")
    rs1("school_date")=Request("school_date")
  '  rs1("homepage")=Request("homepage")
   ' rs1("homeintro")=Request("homeintro")
    rs1("character")=character
    
    rs1.Update 
  ' end if
   
   conn1.close
   
	Response.Redirect "my_information.asp"
	
%>
 