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