当前位置:编程学习 > asp >>

asp判断文件是否存在的函数,如存在就跳转显示的功能

给一个asp的小项目添加判断文件是否存在,如存在就跳转显示的功能

封装函数如下:


Function CheckFile(ByVal FilePath)
    Dim fso
    FilePath=Server.MapPath(FilePath)
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(FilePath) then '如果文件存在则真
        CheckFile = True
    Else
        CheckFile = False 
    End if
    Set fso = nothing
End Function


ByVal是传递值 源数据不会被修改,你可以把这个值当作自己的局部变量来使用;


dim filepaths
filepaths="/a/"&id&".htm"
 
if CheckFile(filepaths) then '文件存在则跳转

Response.Redirect "https://zzzyk.com/?"&filepaths

Response.End
end if

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,