首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > ASP >

◆asp检测文件是否存在有关问题

2012-03-07 
◆asp检测文件是否存在问题以下是我的两个检测文件的函数,我目录下明明是有test.txt这个文件的,但是检测时

◆asp检测文件是否存在问题
以下是我的两个检测文件的函数,我目录下明明是有test.txt这个文件的,
但是检测时两个函数都检测不出来。
请问是哪里错了,请帮忙修改一下,谢谢了。

<%
Function       ReportFileStatus(filespec)          
            Dim       fso,       msg      
            Set       fso       =       CreateObject( "Scripting.FileSystemObject ")      
            If       (fso.FileExists(filespec))       Then      
                    msg       =       filespec       &       "       存在。 "      
            Else      
                    msg       =       filespec       &       "       不存在。 "      
            End       If      
            ReportFileStatus       =       msg      
    End       Function      

Function   FolderExits(Folder)
Folder=Server.Mappath(Folder)
Set   FSO=   Server.CreateObject( "Scripting.FileSystemObject ")
IF   FSO.FolderExists(Folder)   Then
      FolderExits=true
Else
      FolderExits=false
End   IF  
End   Function


%>


<%
ee=ReportFileStatus( "test.txt ")
ff=FolderExits( "test.txt ")
%>
<%=ee%> <br>  
<%=ff%>

[解决办法]
Set fso = Server.CreateObject( "Scripting.FileSystemObject ")
[解决办法]
路径不对.如果是当前目录下try:ee=ReportFileStatus(Server.mappath( "test.txt "))ff=FolderExits(Server.mappath( "test.txt "))

热点排行