admin_upfiles.asp

来自「本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置」· ASP 代码 · 共 57 行

ASP

57 行

<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>
<head>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
id=trim(request("checked"))
If ID="" Then
	ErrCodes = ErrCodes & "<li> 您至少需要选择一条纪录！</li><br>"
	FoundErr=True
End If
if FoundErr=True then
	Call ShowAdminErrMsg(ErrCodes,"javascript:window.close()")
else
viewArray=Split(ID, ",")
Num = UBound(viewArray)
For i=0 To Num
	set rsfile=server.createobject("adodb.recordset") 
	if IsSqlDataBase = 2 then
		strSQL ="select fileurl_name,fileurl_path from filetest where ID ="&viewArray(i)&""
	else
		strSQL ="select fileurl_name,fileurl_path from [filetest] where ID ="&viewArray(i)&""
	end if
	rsfile.open strSQL,conn,1,1
	if not(rsfile.eof and rsfile.bof) then
	do while not rsfile.eof
		file1=server.mappath( rsfile("fileurl_path")&rsfile("fileurl_name") )
		set tfo=Server.CreateObject("Scripting.FileSystemObject")
		if tfo.FileExists(file1) = True Then                                '判断文件是否存在
			set nf=tfo.GetFile(file1)
			nf.delete
		ErrCodes = ErrCodes & "<li> "&rsfile("fileurl_path")&rsfile("fileurl_name")&" 文件删除成功！</li><br>"
		else
		ErrCodes = ErrCodes & "<li> "&rsfile("fileurl_path")&rsfile("fileurl_name")&" 文件已丢失！</li><br>"
		end if
		Set tfo = nothing
	rsfile.movenext
    loop
	end if
	rsfile.close
	set rsfile=nothing
	if IsSqlDataBase = 2 then
		conn.execute"delete from filetest where ID ="&viewArray(i)&""
	else
		conn.execute"delete from [filetest] where ID ="&viewArray(i)&""
	end if
Next
		ErrCodes = ErrCodes & "<li> 所选文件储存数据已全部清理！</li><br>"
call connclose() 
response.write ("<script>opener.location.reload();</script>")
Call ShowAdminSuccessMsg(ErrCodes &"<li>所选操作已经执行成功！</li><br>","javascript:window.close()")
end if%>
</body>
</html>

admin_upfiles.asp - 源码说明

本页面展示了「本人仅业余学习一些基础的ASP知识以供系统设计之用,并非专业人员,相关服务器设置、MSSQL/MySQL数据库方面的专业问题请自行解决。本人仅提供本系统相关的一些技术问题的解释、解答。」中的 admin_upfiles.asp 源码文件，采用 ASP 编程语言编写，共 57 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?