delete.asp

来自「这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链」· ASP 代码 · 共 49 行

ASP

49 行

<!--#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>

delete.asp - 源码说明

本页面展示了「这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链接查看最新文章的列表没有生成,因为我觉得没必要生成,浪费空间大小,那是一个很少用到的功能!这次去掉了很多功能,这个版本主」中的 delete.asp 源码文件，采用 ASP 编程语言编写，共 49 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与高效率相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?