📄 delmail.asp
字号:
<%
'=====删除文件函数======================================================================================
function FileDel(FileName)
Dim fso, f2
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.Mappath("file/"+FileName)) Then
Set f2 = fso.GetFile(Server.Mappath("file/"+FileName))
f2.Delete
FileDel=1
else
FileDel=2
end if
set f2=nothing
set fso=nothing
end function
'=====删除文件函数结束===========================================================================================
'======清空信箱附件=================================================================================================================
function DelAll(box)
Record2.open("select iaddfile from "+box+rs("username")+" ") 'where iaddfile<>''
while not Record2.eof
FileDel Record2("iaddfile")
Record2.movenext
wend
Record2.close
con2.Execute("DROP TABLE "+box+rs("username"))
end function
'======清空当前信箱结束=================================================================================================================================================================
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -