预处理（经典）ASP页面

Question

我正在运行带有SQL2008数据库的经典vbscript ASP站点。 有一些页面占用大量处理器，但实际上并不经常更改。 理想情况下，我希望服务器每晚处理一次，也许要处理成HTML页面，然后可以从服务器上飞走，而不必为每个用户进行处理。

有什么想法可以实现这一目标吗？

该应用程序本身运行良好，因此即使经典的asp有点麻烦，我也不希望用另一种脚本语言重写整个内容！

Answer 1

是的：

您没有指定页面的哪些部分“占用大量处理器”，但是我假设这是对SQL数据的查询和处理。 一种想法是检索数据并将其存储为文件系统中的缓存文件。 XML是数据格式的不错选择。

而您的原始代码是这样的：

 (psuedocode)
 get results from database
 process results to generate html file

...您修改后的代码如下所示：

check if cache file exists
if not exist
   get results from database
   store results in cache file
get results from cache file
process results to generate html file. 

这是一种通用的缓存方法，可以应用于具有确定输出的查询参数的情况。 只需根据所有组成参数生成缓存文件的名称。 因此，如果结果取决于名为p1和p2的查询参数，则当p1和p2具有值1234和blue ，缓存文件可能会命名为cache-1234-blue.xml 。 如果您有5个不同的查询，则可以将它们缓存为query1-1234-blue.xml ， query2-1234-blue.xml等。

您不必“每晚”执行此操作。 您可以在代码中包含一个缓存生存期，并且代替“如果存在缓存文件”测试，请使用“如果缓存文件存在并且是最新的”。 为此，只需获取缓存文件上最后修改的时间戳，然后查看它是否早于缓存生存期。

Function FileOlderThan(fname, age)
    'function returns True if the file is older than the age,
    '  specified in minutes.
    Dim LastModified, FSO, DateDifference

    Set FSO = CreateObject("Scripting.FileSystemObject")
    LastModified = FSO.GetFile(fname).DateLastModified
    DateDifference = DateDiff("n", LastModified, Now())
    If DateDifference > age Then
        FileAge = False
    Else
        FileAge = True
    End If
End Function


fname = Server.MapPath(".") & cacheFileName
If FileOlderThan(fname, 10) Then
   ... retrieve fresh data ...
End If 

您可以随意设置10分钟10小时10个请求。

上面我说过，对于缓存文件中的数据格式，XML是一个不错的选择。 ADO具有SaveAsXML方法，您还可以使用附加到查询的FOR XML子句直接从SQL2008生成XML。

---

如果“处理器负担大”的部分不是查询和检索，而是html页面的生成，那么您可以应用相同的方法，而只是直接缓存html文件。