update.asp

21世纪人才www.51zy.net 网站源码

<% Response.Buffer=True %>
<!--#include file="../inc/person.inc"-->
<% uname=session("puid") 
   modify=request("modify")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from person where uname='"&uname&"'"
rs.open sql,conn,3,3 %>


<%
set rs=server.createobject("adodb.recordset")
sql="select * from person where uname='"&uname&"'"
rs.open sql,conn,3,3

id=rs("id")
uname1=rs("uname")
pwd1=rs("pwd")
email1=rs("email")
idate1=rs("idate")
iname1=rs("iname")
sex1=rs("sex")
bday1=rs("bday")
code1=rs("code")
mzhu1=rs("mzhu")
marry1=rs("marry")
hka1=rs("hka")
zzmm1=rs("zzmm")
zchen1=rs("zchen")
edu1=rs("edu")
zye1=rs("zye")
school1=rs("school")
language1=rs("language")
lanlevel1=rs("lanlevel")
pthua1=rs("pthua")
computer1=rs("computer")
othertc1=rs("othertc")
gznum1=rs("gznum")
gzjl1=rs("gzjl")
jobtype1=rs("jobtype")
job1=rs("job")
gzdd1=rs("gzdd")
otheryq1=rs("otheryq")
yuex1=rs("yuex")
cname1=rs("cname")
phone1=rs("phone")
callnum1=rs("callnum")
oicq1=rs("oicq")
http1=rs("http")
address1=rs("address")

%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from person where uname='"&uname&"'"
rs.open sql,conn,3,3
rs.addnew


rs("uname")=uname1
rs("pwd")=pwd1
rs("email")=email1
rs("idate")=date()
rs("iname")=iname1
rs("sex")=sex1
rs("bday")=bday1
rs("code")=code1
rs("mzhu")=mzhu1
rs("marry")=marry1
rs("hka")=hka1
rs("zzmm")=zzmm1
rs("zchen")=zchen1
rs("edu")=edu1
rs("zye")=zye1
rs("school")=school1
rs("language")=language1
rs("lanlevel")=lanlevel1
rs("pthua")=pthua1
rs("computer")=computer1
rs("othertc")=othertc1
rs("gznum")=gznum1
rs("gzjl")=gzjl1
rs("jobtype")=jobtype1
rs("job")=job1
rs("gzdd")=gzdd1
rs("otheryq")=otheryq1
rs("yuex")=yuex1
rs("cname")=cname1
rs("phone")=phone1
rs("callnum")=callnum1
rs("oicq")=oicq1
rs("http")=http1
rs("address")=address1


if language1<>"" then
	   rs("language")=language1
	   	else
	   rs("language")=null
	   	end if

if lanlevel1<>"" then
	   rs("lanlevel")=lanlevel1
	   	else
	   rs("lanlevel")=null
	   	end if
		
if pthua1<>"" then
	   rs("pthua")=pthua1
	   	else
	   rs("pthua")=null
	   	end if
		
if computer1<>"" then
	   rs("computer")=computer1
	   	else
	   rs("computer")=null
	   	end if
		
if yuex1<>"" then
	   rs("yuex")=yuex1
	   	else
	   rs("yuex")=null
	   	end if
		
if otheryq1<>"" then
	   rs("otheryq")=otheryq1
	   	else
	   rs("otheryq")=null
	   	end if
		
if callnum1<>"" then
	   rs("callnum")=callnum1
	   	else
	   rs("callnum")=null
	   	end if
		
if oicq1<>"" then
	   rs("oicq")=oicq1
	   	else
	   rs("oicq")=null
	   	end if
		
if http1<>"" then
	   rs("http")=httpn1
	   	else
	   rs("http")=null
	   	end if
		



rs.update
rs.close
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from person where id="&id
rs.open sql,conn,3,3
if not rs.eof then
rs.delete
rs.update
rs.close
end if
response.redirect "modify.asp"%>