'-----------------------------------------
oabusyname=request("oabusyname")
oabusysuid=request("oabusysuid")
oabusyuserdept=request("oabusyuserdept")
oabusyuserlevel=request("oabusyuserlevel")
'--------------------------------------
%>
dim a(33)
for i=1 to 33
a(i)=request.form("a"&i)
'response.write a(i)
next
id=request("id")
if id="" then id=oabusysuid
set conn=opendb()
set rs=server.createobject("ADODB.recordset")
sql = "select * from personinf where suid=" & sqlstr(id)
rs.Open sql,conn,1,3
'如果没有相应的纪录
if not rs.eof then
for i=1 to 33
rs("a" & i)=a(i)
next
rs("updatedate")=now()
rs.update
end if
rs.close
set rs=nothing
set conn=nothing
%>
信息已经修改成功！！
上传照片
返回
