del.asp

来自「办公自动化系统」· ASP 代码 · 共 39 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
'判断用户是否登录
if isempty(Session("ID")) then
Response.Redirect "../login.asp"
end if
'判断用户是否具有财务管理员身份
if Session("IsFinancialManager")=False then
Response.Redirect "Finance.asp"
end if
%>
<%if Session("Department")="财务部" and Session("Position")="主管" then
aa=request.QueryString("id")
  set Fs=Server.CreateObject("Scripting.FileSystemObject")
  set rs=server.createobject("adodb.recordset")
  sql = "select * from  FinancialProject "
  rs.Open sql,conn,1,3
  conn.execute("delete from FinancialProject where FinancialProjectID="&aa&"")
  set rs=nothing
  aa=aa & "信息已经删除！"
  %>
  <script language="vbscript">
  alert ("<%=aa%>")
  window.location.href = "AddFinancialProject.asp"
</script>
  <%
  else
  %>
  <script language="vbscript">
  alert ("您不是财务部主管，无权删除此财务项目")
  </script>
  <%
  end if

  %>