modifydept.asp

公文下发和上报管理： 在发布和上报文件时

<!--#include file="asp/opendb.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='default.asp';")
	response.write("</script>")
	response.end
end if
if request("id")<>"" then
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.CreateObject("adodb.recordset")
sql="select dept from dept where id="&request("id")
rs.Open sql,conn,1
%><link rel="stylesheet" href="css/css.css">

<form name="form1" method="post" action="modifydept.asp">
  <p align="center">修改所选部门</p>
  <div align="center">
    <input type="text" name="dept" size="50" value="<%=rs("dept")%>">
    <input type="submit" name="Submit" value="确定">
    <input type="hidden" name="hid" value="<%=request("id")%>">
    <input type="hidden" name="olddept" value="<%=rs("dept")%>">
  </div>
</form>
<%rs.Close
set rs=nothing
set conn=nothing
else
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.CreateObject("adodb.recordset")
sql="select dept from dept where dept='"&request("dept")&"'"
rs.open sql,conn,1
if not rs.eof then
Response.Write "该系统部门已存在.....请检查......"
'response.write("<br><script language=""javascript"">")
response.write("<br>[<a href='javascript:parent.history.back()'>返回</a>]")
'response.write("</script>")

else
rs.close
'set rs=server.CreateObject("adodb.recordset")
sql="update dept set dept='"&request("dept")&"' where id="&request("hid")
conn.execute sql
sql="update userinf set userdept='"&request("dept")&"' where userdept='"&request("olddept")&"'"
'rs.Open sql,conn,1
conn.execute sql
'rs.close
set rs=nothing
set conn=nothing
'response.write("<script language=""javascript"">")
'response.write("window.location.href='stafdayrep.asp';")
'response.write("</script>")
Response.Redirect "stafdayrep.asp"
end if
end if%>