在后台一篇一篇添加的文章，生成，没有错误，但是采集的文章则会出现如下错误提示，还有，生成的文章列表都不指向规定的栏目，而指向网站根目录，如“www.xxxx.com/23568775.html”一样，实际上文章仍然在各自的栏目中，但是如果将这些出错的文章在后台一篇一篇单独打开修改（什么也不改）后再保存，则就正常了，我不会asp，哪位朋友能帮我改一下？先感谢了！
错误如下：

错误类型：
Server.MapPath(), ASP 0171 (0x80004005)
必须为 MapPath 方法指定路径参数。
/Refresh/Function.asp, 第 402 行


原Function.asp文件部分代码如下：
Sub CheckFolderExists2(Path,FileName) '检查目录
    Dim FSOObj,TempPath,FolderObj,FileObj,ItemObj
    Set FSOObj = Server.CreateObject("Scripting.FileSystemObject")
    'if path="" then path="/"
    'response.write path
    [b][color=FF0000]TempPath = Server.MapPath(Path)[/color][/b]   （[i]这就是402行[/i]）
    if FSOObj.FolderExists(TempPath) = False then FSOObj.CreateFolder(TempPath)
    'TempPath = TempPath & "\" & ClassEName
    if FSOObj.FolderExists(TempPath) = False then
        FSOObj.CreateFolder(TempPath)
    else
        Set FolderObj = FSOObj.GetFolder(TempPath)
        Set FileObj = FolderObj.Files
        for Each ItemObj in FileObj
            if InStr(LCase(ItemObj.name),FileName) then
                FSOObj.DeleteFile TempPath & "\" & ItemObj.name
            end if
        Next
    end if
    Set FSOObj = Nothing
End Sub




Sub CheckFolderExists(Path,ClassEName,FileName) '检查目录
    Dim FSOObj,TempPath,FolderObj,FileObj,ItemObj
    Set FSOObj = Server.CreateObject("Scripting.FileSystemObject")
    'if path="" then path="/"
    'response.write path
    TempPath = Server.MapPath(Path)
    if FSOObj.FolderExists(TempPath) = False then FSOObj.CreateFolder(TempPath)
    TempPath = TempPath & "\" & ClassEName
    if FSOObj.FolderExists(TempPath) = False then
        FSOObj.CreateFolder(TempPath)
    else
        Set FolderObj = FSOObj.GetFolder(TempPath)
        Set FileObj = FolderObj.Files
        for Each ItemObj in FileObj
            if InStr(LCase(ItemObj.name),FileName) then
                FSOObj.DeleteFile TempPath & "\" & ItemObj.name
            end if
        Next
    end if
    Set FSOObj = Nothing
End Sub