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=成功更新你的基本资料" %>