📄 delete.asp
字号:
<%@ LANGUAGE = VBScript codepage ="936" %><HTML><HEAD><TITLE>Deleting</TITLE><link rel="stylesheet" type="text/css" href="ase.css"></HEAD><body onload="closeit()"><script language="JavaScript">function closeit() {setTimeout("self.close()",1000)}</script><%function getUpfoldersString(temp)temps=StrReverse(temp)temps=replace(temps,"/","\")if left(temp,1)="\"thentemps=mid(temps,2)end iftemps=StrReverse(mid(temps,inStr(temps,"\")+1))getUpfoldersString=tempsEnd functionsPath=request("sPath")If sPath="" thensPath="."End Ifselect case request("aim"):case "floders"deletefloders(sPath)case "files"deletefiles(sPath)end selectresponse.write "<a href=files.asp?sPath="&getUpfoldersString(sPath)&">返回</a>"function deletefloders(path)'on error resume nextSet fs=Server.CreateObject("Scripting.FileSystemObject")if fs.FolderExists(path) thenfs.DeleteFolder path,Trueresponse.write "成功删除目录"&pathelseresponse.write "目录不存在!"end ifSet fs=nothingend functionfunction deletefiles(path)'on error resume nextSet fs=Server.CreateObject("Scripting.FileSystemObject")if fs.FileExists(path) thenfs.DeleteFile path,Trueresponse.write "成功删除"&pathelseresponse.write "文件不存在!"end ifSet fs=nothingend function%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -