empmain_delete_kfinfo.asp

来自「是一个简单的客户资料管理系统」· ASP 代码 · 共 41 行

<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->

<%if fncheckupart(1)=true or fncheckupart(2)=true or fncheckupart(3)=true then
 id=request("kid")
 if id="" then
  response.write("删除不成功，未正确选择!")
response.end()
end if
  if request("k1")="ok" then
  Set MM_editCmd = Server.CreateObject("ADODB.Command")
  MM_editCmd.ActiveConnection = MM_EmpMain_STRING
  MM_editQuery = "delete from kufu where id = " & id & ""
  MM_editCmd.CommandText = MM_editQuery
  MM_editCmd.Execute

  end if
   if request("k2")="ok" then
  Set MM_editCmd = Server.CreateObject("ADODB.Command")
  MM_editCmd.ActiveConnection = MM_EmpMain_STRING
  MM_editQuery = "delete from tj where companyid = " & id & ""
  MM_editCmd.CommandText = MM_editQuery
  MM_editCmd.Execute

  end if

    if request("k3")="ok" then
  Set MM_editCmd = Server.CreateObject("ADODB.Command")
  MM_editCmd.ActiveConnection = MM_EmpMain_STRING
  MM_editQuery = "delete from fahuo where companyid = " & id & ""
  MM_editCmd.CommandText = MM_editQuery
  MM_editCmd.Execute

  end if

else
response.Write("没有权限访问该页!")
response.end
end if
 response.write("删除成功!")
%>