deletemoban.asp

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

ASP

54 行

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

deletemoban.asp - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?