📄 deletemoban.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../fn/function.asp"-->
<!--#include file="seeadmin.asp"-->
<%
call gadmin
%>
<%Response.Buffer="True"%>
<html>
<head>
<title>删除模板</title>
</head>
<body>
<%
'下面开始成员过滤，非管理员不能登陆此界面
if session("admin")="" or session("step")<1 then
response.redirect "admin_login.asp"
end if
%>
<%
strsql1="select mobanfile from moban where id="&request("moban3")
set rs=conn.execute(strsql1)
filename1=rs("mobanfile")
file1=server.mappath( "../moban" )
file2=file1&"\"&filename1
set tfo=Server.CreateObject("Scripting.FileSystemObject")
set nf=tfo.GetFile(file2)
nf.delete
strsql="Delete From moban where id="&Request("moban3")
dim number
conn.Execute strsql,number
''''添加到系统日志
set rsn=Server.CreateObject("ADODB.RECORDSET")
rsn.open "select *from sysdong",conn,1,3
rsn.addnew
rsn("koyee_user")=Session("admin")
rsn("koyee_dong")="删除模板["& filename1 &"]"
rsn("arttime")=now()
rsn.update
rsn.close
set rsn=nothing
''''添加系统日志完毕
If number=0 Then
call errormsg("删除失败，找不到记录")
Else
call OkMsg("删除成功","admin_moban.asp")
End If
'
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -