editpersoninfindb.asp

企业办公自动化管理系统 asp+sql server 2005

<!--#include file="include/sqlstr.asp"-->
<!--#include file="include/bgsub.asp"-->
<!--#include file="include/opendb.asp"-->
  <%
'-----------------------------------------
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
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
      <div align="center">
        <p>信息已经修改成功！！</p>
        <p><a href="upload/index.asp?id=<%=id%>" target="_blank">上传照片</a></p>
        <p><a href="javascript:history.go(-1)">返回</a></p>
      </div>
    </td>
  </tr>
</table>
<p>&nbsp;</p>