gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\person_infobase_updata.asp

    <!--#include file="inc/conn.asp"-->
<!--#include file="per_session.asp"-->
<!--#include file="resultred.asp"-->
<%
 name=Request("name")
 gender=Request("gender")
 mingzhu=Request("mingzhu")
 if mingzhu=0 then
  mingzhu="汉族"
 else
  mingzhu=Request("Nationality")
 end if
 birth=Request("birth")
 cardnumber=Request("cardnumber")
 height=Request("height")
 mari=Request("mari")
 s_hometown=Request("s_hometown")
 c_hometown=Request("c_hometown")
 s_location=Request("s_location")
 c_location=Request("c_location")
 phone=Request("phone")
 email=Request("email")
 homepage=Request("homepage")
 addr=Request("addr")
 zipcode=Request("zipcode")
 intro=Request("intro")
 sql="select * from job_person where username='"&session("username")&"'"
 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Rs.Open sql,conn,3,3
if not rs.eof then
 Rs("name")=name
 Rs("gender")=gender
 Rs("mingzhu")=mingzhu
 Rs("birth")=birth
 Rs("cardnumber")=cardnumber
 Rs("height")=height
 Rs("mari")=mari
 Rs("s_hometown")=s_hometown
 Rs("c_hometown")=c_hometown
 Rs("s_location")=s_location
 Rs("c_location")=c_location
 Rs("phone")=phone
 Rs("email")=email
 Rs("homepage")=homepage
 Rs("addr")=addr
 Rs("zipcode")=zipcode
 Rs("intro")=intro
 Rs.Update
end if
 Rs.Close
 Set Rs=nothing
 Set conn=nothing
 response.redirect"person_myself.asp?result=成功更新你的基本资料"
%>