当Session结束时，Session_onEnd过程被激发，我们能不能在其中写代码删除本站点的临时目录下的文件？

[woshihuzi]

我的global.asa文件内容如下，可是不能完成本帖题目所说的功能，请高手帮我看看错在什么地方？

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Session_onStart
session.timeout=5
End Sub

'==========================================================================
' 删除指定目录下的指定文件
' Path是指定的目录，fileName是指定的文件，可以包含通配符
'==========================================================================
Sub deleteFilesFromPath(Path,fileName)
dim fso,filePathNames
filePathNames = Path+"\"+fileName
set fso = server.CreateObject("scripting.filesystemobject")
fso.DeleteFile filePathNames,false
end Sub

'==========================================================================
' 取得脚本所在站点的虚拟目录
'==========================================================================
Function getWebsitePath()
getWebsitePath = trim(Request.ServerVariables("APPL_PHYSICAL_PATH"))
getWebsitePath = left(getWebsitePath,len(getWebsitePath)-1)
End Function

Sub Session_onEnd
' 在用户Session失效时就删除本站点download目录下的文件
call deleteFilesFromPath(getWebsitePath()+"\download", "*.txt")
End Sub

</SCRIPT>

[zmy0611]

可以

[moodboy1982]

应该可以吧。

[woshihuzi]

能否给出具体的办法？

[BIGbeard]

不行的，看我的global.asa文件：

<SCRIPT LANGUAGE=VBScript RUNAT=Server>


Sub Application_onStart

End Sub


Sub Session_onStart

'-----------------------------------------------------------------
' 在Session_onStart当中创建、删除文件是可以的,下面的代码是做实验用的
call CreateFileInPath(getWebsitePath(),"test1.txt","test1",true,false) '遇错继续,不覆盖已存在文件
call CreateFileInPath(getWebsitePath() ,"test2.txt","test2",true,false) '遇错继续,不覆盖已存在文件
call deleteFilesFromPath(getWebsitePath(), "test1.txt",false,true) '遇错停止,删除只读文件
'-----------------------------------------------------------------

Session("WebSitePath") = getWebsitePath()

End Sub


'==========================================================================
' 在指定目录下创建一个指定名字的文本文件
' Path是指定的目录，
' fileName是指定的文件名，
' strContents是文本文件的内容
' onErrorResumeNext是布尔变量，是否允许遇到错误继续执行
' overwriteExistFile是布尔变量，如果要覆盖现有文件，则该值为 True
'==========================================================================
Sub CreateFileInPath(Path,fileName,strContents,onErrorResumeNext,overwriteExistFile)

if onErrorResumeNext then
on error resume next
end if

dim fso,filePathName
filePathName = Path+"\"+fileName
set fso = server.CreateObject("scripting.filesystemobject")
set mFile = fso.CreateTextFile(trim(filePathName),overwriteExistFile)
mFile.WriteLine(strContents)
mFile.Close
set fso = nothing

end Sub


'==========================================================================
' 删除指定目录下的指定文件
' Path是指定的目录
' fileName是指定的文件，可以包含通配符
' onErrorResumeNext是布尔变量，是否允许遇到错误继续执行
' deleteReadOnlyFile是布尔变量，如果要删除只读文件，则该值为 True
' 这种操作危险性特别大，一般不要用
'==========================================================================
Sub deleteFilesFromPath(Path,fileName,onErrorResumeNext,deleteReadOnlyFile)

if onErrorResumeNext then
on error resume next
end if

dim fso,filePathNames
filePathNames = Path+"\"+fileName
set fso = server.CreateObject("scripting.filesystemobject")
fso.DeleteFile filePathNames,deleteReadOnlyFile
end Sub


'==========================================================================
' 取得脚本所在站点的虚拟目录
'==========================================================================
Function getWebsitePath()

getWebsitePath = trim(Request.ServerVariables("APPL_PHYSICAL_PATH"))
getWebsitePath = left(getWebsitePath,len(getWebsitePath)-1)

End Function


Sub Session_onEnd

'---------------------------------------------------------------------------------
' 本来想在在用户Session失效时删除有关的文件
' 后来发现,这是不可能的:
' 根本删除不了任何文件，而创建文件则是可能的，详细情况参见本过程下面的实验
call CreateFileInPath(Session("WebSitePath"),"test3.txt","test3",true,false) '遇错继续,不覆盖已存在文件
call deleteFilesFromPath(Session("WebSitePath"), "test2.txt", false, true)
'---------------------------------------------------------------------------------

End Sub


</SCRIPT>

[woshihuzi]

嗬嗬,谢谢各位的关注.经过几天的探讨,我得出的结论跟 BIGbeard(比戈比尔德)老兄一致:

我明白了两点:
1. 在Session_onEnd里头,不能使用Request.ServerVariables("APPL_PHYSICAL_PATH")
也就不能得到站点的虚拟目录.
2. 即使直接指定文件的位置,在Session_onEnd里头,也不能删除文件,创建文件是可以的.