📄 delete.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../fn/function.asp"-->
<%Response.Buffer="True"%>
<html>
<head>
<title>删除新闻</title>
</head>
<body>
<!--#include file="seeadmin.asp"-->
<%
call nadmin
%>
<%
strsql1="select title,filename,type from art_file where id="&Request("id")
set rs=conn.execute(strsql1)
title=rs("title")
filename1=rs("filename")
file1=server.mappath( "../news" )
file2=file1&"\"&rs("type")&"\"&filename1
set tfo=Server.CreateObject("Scripting.FileSystemObject")
set nf=tfo.GetFile(file2)
nf.delete
strsql="Delete From art_file where id="&Request("id")
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")="删除文章["& title &"]"
rsn("arttime")=now()
rsn.update
rsn.close
set rsn=nothing
''''添加系统日志完毕
If number=0 Then
call errormsg("删除失败，找不到记录")
Else
call OkMsg("删除成功","admin_list.asp")
End If
'
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -