Vbscript 返回空白的经典ASP类函数

我继承了一个经典的asp网站，它有一个相当健壮的自定义cms。我们最近将该站点转移到了我们的一台主机上，最近注意到在包含文件中获取frmo函数值时出现了一些问题（至少我认为是这样）。有许多嵌套的include文件，但我确信它们都被正确地包含

我确信Include功能正常，因为我已经测试了更改路径，它显示了一个错误

以下是包含代码：

<!--#include virtual="/admin/core/functions/fncGlobal.asp" -->

用于去除字母数字字符的函数：

Function StripNonAlphaNum(inString)
    Dim oRE, strOutput, theString
    If inString <> Null Then    
        inString = Replace(inString, "'", "")
        inString = Replace(inString, "&amp;", "")
        inString = Replace(inString, "&reg;", "")
        inString = Replace(inString, "&trade;", "")
        inString = Replace(inString, "&copy;", "")
        inString = Replace(inString, "&quote;", "")
        Set oRE = New Regexp
        oRE.Global = True
        oRE.IgnoreCase = True
        oRE.Pattern = "[\W_]"
        strOutput = oRE.Replace(inString, " ")
        StripNonAlphaNum = strOutput
    Else
        StripNonAlphaNum = ""
    End If
End Function

我得到的结果是

测试URL:

---

有什么明显的我做错了吗？我对ASP不是很有经验。

可能下面显示的行有问题：

NewString = StripNonAlphaNum(NewString)

你有没有试着注释掉这一行，看看会发生什么

我已经把这句话注释掉了，效果很好

这个代码没有问题

Module Module1

    Function FormatURL(ByRef in_str)
        Dim BadChars, RepChars, NewString, i
        NewString = Trim(in_str)
        NewString = Trim(NewString)
        NewString = Replace(NewString, " ", "-")
        NewString = Replace(NewString, "----", "-")
        NewString = Replace(NewString, "---", "-")
        NewString = Replace(NewString, "--", "-")
        FormatURL = LCase(NewString)
    End Function


    Sub Main()
        Console.WriteLine(FormatURL("Format URL Title Test"))
        Console.Read()
    End Sub

End Module

---

问题在于

stripnanalphanum（）中的这一行：

.
我试着用那句话注释掉了，但仍然是同一个问题。我将创建一个单独的测试页面，其中只包含函数，以消除任何其他可能性。
NewString = StripNonAlphaNum(NewString)

Module Module1

    Function FormatURL(ByRef in_str)
        Dim BadChars, RepChars, NewString, i
        NewString = Trim(in_str)
        NewString = Trim(NewString)
        NewString = Replace(NewString, " ", "-")
        NewString = Replace(NewString, "----", "-")
        NewString = Replace(NewString, "---", "-")
        NewString = Replace(NewString, "--", "-")
        FormatURL = LCase(NewString)
    End Function


    Sub Main()
        Console.WriteLine(FormatURL("Format URL Title Test"))
        Console.Read()
    End Sub

End Module

If inString <> Null Then

If not IsNull(inString) then