files_delete.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 30 行

ASP

30 行

<%@ LANGUAGE = VBScript %><!--#include file="utils.asp" -->
<%
Function sql_DeleteDocument(id)
	dim sql
	sql = "DELETE FROM files WHERE id = " & id & ""
	sql_DeleteDocument = sql
End Function
%>
<%  if request("file") = "" then
		response.redirect (Request.ServerVariables("HTTP_REFERER"))
	end if%>
<%  sqlDelete = sql_DeleteDocument(request("file"))
	Call DoSQL(sqlDelete) %>
<%
'***************** Delete file from hard drive************
filename=trim(request("filename"))
response.write filename
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile(Server.MapPath("file") & "\"&filename)

fileObject.Delete

Set fileObject = Nothing
Set fso = Nothing

%>
	
<%	response.redirect "files.asp" %>	
<html></html>

files_delete.asp - 源码说明

本页面展示了「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」中的 files_delete.asp 源码文件，采用 ASP 编程语言编写，共 30 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?