asp-classic - vbscript/Classic ASP - 有没有办法以编程方式获取您自己的文件名？

Question

我刚刚审查了一些旧代码并发现了以下内容(在 foo.asp 中):

Const ASP_FILENAME = "foo.asp"  ' TODO: Update this to the name of this file (if changed)

该变量仅用于记录错误。 (即“foo.asp 中的错误 - 无法创建 xxxxx 对象。”)有什么办法可以避免这种情况吗？

谢谢!

Answer 1

您可以解析 Request.ServerVariables("url") 以获取文件名部分。谷歌搜索发现this code ，我不认为这是功劳，它使用 SCRIPT_NAME 服务器变量，这似乎确实更有意义，同时考虑到可能存在的任何 url 重写:

function getFileName(fpath, returnExtension)
        tmp = fpath
        if instrRev(tmp,"/") > 0 then
              tmp = mid(tmp, instrRev(tmp,"/")+1)
        end if
        if returnExtension = false then
              if instrRev(tmp,".") > 0 then
                    tmp = left(tmp, instrRev(tmp,".")-1)
              end if
        end if
        getFileName = tmp
  end function

  filename = request.ServerVariables("SCRIPT_NAME")
  Const ASP_FILENAME = getFileName(filename, true)