update.asp

来自「21世纪人才www.51zy.net 网站源码」· ASP 代码 · 共 53 行

<!--#include file="../inc/company.inc"-->
<!--#include file="../inc/html.inc"-->

<%id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from zp where id="&id
rs.open sql,conn,3,3
uname1=rs("uname")
zptext1=rs("zptext")
job1=rs("job")
gznx1=rs("gznx")
xlyq1=rs("xlyq")
sex1=rs("sex")
salary1=rs("salary")
quanzhi1=rs("quanzhi")
zpnum1=rs("zpnum")
gzdd1=rs("gzdd")
xgyq1=rs("xgyq")
cname1=rs("cname")
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from zp where id="&id
rs.open sql,conn,3,3
rs.addnew
rs("uname")=uname1
rs("zptext")=zptext1
rs("job")=job1
rs("gznx")=gznx1
rs("xlyq")=xlyq1
rs("sex")=sex1
rs("salary")=salary1
rs("quanzhi")=quanzhi1
rs("zpnum")=zpnum1
rs("gzdd")=gzdd1
rs("xgyq")=xgyq1
rs("idate")=date()
rs("cname")=cname1
rs.update
rs.close
%>
<%id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from zp where id="&id
rs.open sql,conn,3,2
if not rs.eof then
rs.delete
rs.update
rs.close
end if
response.redirect "publish.asp"%>