ResolveUrl/Url.Content在Classic Asp中等效

Question

在webform/mvc中我们可以使用脚本和链接,脚本src ="Url.Content("〜/ Scripts/util.js")"

谁能告诉我经典asp中的等价物是什么？

Answer 1

没有直接的等价物,甚至没有直接的方法来确定应用程序的虚拟路径.以下几个VBScript函数应该提供以下功能:

Function UrlContent(sUrl)
    If InStr(1, sUrl, "~/") = 1 Then
        UrlContent = ApplicationPath & Mid(sUrl, 2)
    Else
        UrlContent = sUrl
    End If
End Function

Function ApplicationPath()

    Dim pos: pos = Len(Request.ServerVariables("INSTANCE_META_PATH")) + 6

    ApplicationPath = Mid(Request.ServerVariables("APPL_MD_PATH"), pos)

End Function