del_guanglifw.asp

来自「这是一个很好的图书管理借阅登记系统,有这爱好的可以下载下来看看,很完整的」· ASP 代码 · 共 21 行

<%if session("LHB_MiMa")<>"" then%>
<!--#include file="config.asp"-->
<%
if session("LHB_Group")<> 1 then
response.write "<script language=JavaScript>" & chr(13) & "alert('删除权限不够，请返回');" & "history.back()" & "</script>" 
Response.End
end if
L_GongHao=Request("LouHB_GongHao")
L_XiTongBM=Request("LouHB_XiTongBM")
L_FenLeiBM=Request("LouHB_FenLeiBM")

SQLDEL = "delete from LHB_XiTong where L_GongHao='"&L_GongHao&"' and L_XiTongBM='"&L_XiTongBM&"' and L_FenLeiBM='"&L_FenLeiBM&"'"
Louconn.Execute SQLDEL

set Louconn = nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('删除成功！');"&"window.location.href='LHB_user.asp'"&" </script>"
%>
<%else
response.redirect "index.asp"
end if%>