asp-classic - 经典 ASP : run some code at the start of every request before processing actual . asp 文件

Question

这是经典的 ASP，在 IIS 8.5 上运行。

我需要在对这些 *.asp 文件的每个 Http 请求开始时运行一些对我的所有 *.asp 页面通用的 VBScript。

目前我在每个 *.asp 文件的顶部使用 #include 标记。我引用了一个包含我要运行的代码的文件。

它可以解决问题，但它既丑陋又危险:如果其中一个 *.asp 文件碰巧缺少 #include 标记，代码将不会运行。

有没有办法让某些代码针对每个 *.asp 请求运行，而不必在每个 *.asp 文件中编写代码？

在 ASP.NET 中，我们有 HttpApplication.BeginRequest 事件。我正在寻找的是与此等效的东西，但在经典 ASP 中。我需要运行一些能够在每个 *.asp 请求开始时访问经典 ASP 对象的 VBScript。

编辑:根据@Kul-Tigin 的要求，这就是我想要这样做的原因:我的 *.asp 文件是用 ANSI 编码的。但是 URL 请求以 UTF-8 编码，这会产生问题。

如果我什么都不做，ASP 引擎会像在 ANSI 中一样解码 url(和查询字符串)。例如:查询字符串 ?value=ç 将由浏览器作为 ?value=%C3%A7 发送。 C3A7 是以 UTF-8 编码的 'ç' 字节。但是 ASP 引擎将 2 个字节读取为 2 个单独的 ANSI 字符。因此，如果我什么都不做，Request.QueryString("value") 将是一个长度为 2、内容为“ç”的字符串。

为了解决这个问题，我创建了以下可行的解决方法:

Sub Workaround()
    Response.CodePage = 65001 ' Temporarally set the Response CodePage to UTF-8. Originally it was 1252 (ANSI).
    Dim foo
    foo = Request.QueryString("foo") 'ASP engine uses the Response.CodePage to decode the querystring
    Response.CodePage = 1252 ' Set the Response CodePage back to ANSI.
End Sub
Workaround()

我不关心“foo”查询字符串，它甚至可能不存在。我这样做只是为了“接触”ASP 查询字符串反序列化引擎。显然，它在请求处理期间第一次使用时解码所有查询字符串值。因此，即使在将 CodePage 设置回 1252 之后，在我之前的示例中，如果我读取具体查询字符串 Request.QueryString("value") 它将是一个长度为 1 的字符串，其中包含“ç”，按照预期。

我已将解决方法代码放在 workaround.inc 文件中，并将其包含在我的大多数 *.asp 文件的开头，这暂时解决了问题。但是有超过一千个 *.asp 文件，还有更多有待开发。不可能确保所有这些都包含 workaround.inc，这就是为什么我想为所有 *.asp 请求运行代码而不考虑 include 标记。

感谢您对我的问题的关心。如果您能提出更好的解决方案，我将非常高兴。谢谢!

Answer 1

为简单起见，我将使用一个通用的#include，它本身可以根据页面条件#include 其他文件。