构建Web数据库应用的异步与定时操作

### 构建 Web 数据库应用的异步与定时操作 在 Web 数据库应用开发中，异步操作和定时操作是非常重要的功能。它们可以帮助我们处理一些耗时的任务，提高系统的性能和响应速度。本文将介绍后端部署的替代方案、异步操作的需求场景、定时操作的应用场景，以及如何构建一个定时任务服务器。 #### 后端部署替代方案 在处理需要异步处理的请求时，有两种后端部署方案可供选择： - **按需启动 Visual FoxPro 实例**：针对每个需要异步处理的请求，启动一个独立的 Visual FoxPro 可执行文件。如果这类请求不频繁，启动和停止 Visual FoxPro 实例的开销是可以接受的。 - **持续运行的应用程序**：创建一个持续运行的应用程序，定期轮询新的异步请求。一旦发现请求，就进行处理。这种方式可以消除每次请求时启动 Visual FoxPro 的开销，更适合处理频繁的异步请求。此外，还可以设计后端应用程序具有可扩展性，让其他服务器或工作站分担处理负载。 对于偏好使用 Microsoft SQL Server 存储所有数据的开发者，`wwAsyncWebRequest` 类有一个子类 `wwSQLAsyncWebRequest`，它能实现相同的功能，并且将异步队列维护在 SQL Server 数据库中。具体使用方法可参考相关文档。 #### 异步操作的需求场景 异步操作通常在以下场景中需要使用： - **潜在的长时间运行查询**：例如需要多次连接表的查询，或者包含全文搜索、非优化查询条件的查询。 - **与其他组件交互的方法**：可能涉及与其他服务器上的组件交互，如生成动态 PDF 文件。 - **维护请求**：如对数据库进行重新索引或打包操作。 - **与其他服务交互**：例如信用卡处理服务。 #### 定时操作 定时操作与异步操作不同，它用于处理需要定期执行的任务。由于这些任务不是由特定的 Web 请求触发的，因此需要其他机制来触发它们。 以下是一些常见的定时任务示例： - **发送队列消息到邮件服务器**：为避免邮件丢失，采用存储 - 转发策略，由定时任务服务器（STS）在确认与邮件服务器的连接后发送消息。 - **数据库实时备份**：除了磁带备份，定期使用基本的 `COPY TO` 命令对特定数据库进行实时备份，提供额外的数据保护。 - **将错误日志发送给管理员**：Web Connection 会将一些难以处理的通信问题记录在 `wcErrors.TXT` 文件中，通过定时任务每天将该文件以邮件形式发送给管理员。 - **删除临时文件**：虽然 Web Connection 通常会清理临时文件，但在测试和解决问题期间，临时文件可能会堆积，影响系统性能。通过定时任务每天删除剩余的临时文件。 - **维护请求日志**：在繁忙的网站上，Web Connection 请求日志可能会迅速增长。为了分析网站的使用情况，每天创建一个无索引的新请求日志，并将日期编码在日志文件名中。每天晚上，定时任务将前一天的日志追加到有索引的存档中，并删除旧的日志文件。 - **运行特定于应用程序的任务**：每个应用程序都有自己的特定需求。例如，TODO 应用程序可以在任务接近截止日期时发送电子邮件提醒；Web 商店可以通知客户订单的延迟或发货情况；订阅服务可以在数据库有新信息时通过电子邮件通知用户。 #### 定时任务服务器（STS） 定时任务服务器（STS）是一个简单的引擎，它扫描作业表，查找处于调度窗口内的任务。该应用程序内置了对电子邮件的支持，并共享应用程序 INI 文件中的配置设置，方便维护。 以下是构建 STS 应用程序的一般步骤： 1. **将配置类放在单独的文件中**：将应用程序主程序中的各种配置类代码移到一个单独的文件（如 `ToDoConfig.PRG`）中。这样做是为了在 STS 应用程序中重用这些配置类，以共享应用程序 INI 文件中的配置设置。同时，要调整主程序，使其包含 `SET PROCEDURE TO ToDoConfig ADDITIVE` 语句。需要注意的是，迁移到单独的配置文件后，将无法使用 New Process Wizard，若无法接受此限制，可以手动使用 `wwAPI::GetProfileString` 方法读取设置。 以下是 `ToDoConfig.PRG` 文件的示例代码： ```foxpro * ToDoCONFIG.PRG *************************************************************** DEFINE CLASS TodoServerConfig AS wwServerConfig oTodo = .NULL. oqeconfig = .NULL. odebug = .NULL. oSchedule = NULL FUNCTION INIT THIS.oTodo = CREATEOBJECT("todoConfig") THIS.oqeconfig = CREATEOBJECT("QEConfig") THIS.odebug = CREATEOBJECT("debugconfig") THIS.oSchedule = CREATEOBJECT("ScheduleConfig") ENDFUNC ENDDEFINE DEFINE CLASS todoConfig AS wwConfig cHTMLPagePath = "" cDatapath = "" cTempPath = "" cAdminPagePath="" lDebugPerformance = .F. ENDDEFINE DEFINE CLASS QEConfig AS wwConfig cEntityTable = "e:\webradsource\todosource\todo\data\querydefs" cDataSource="VFP" ENDDEFINE DEFINE CLASS debugconfig AS wwconfig cSHOWDEBUGINFO="NO" cDEBUGIP="" cSHOWMEMORY="NO" cSHOWSTATUS="NO" cDebugAdminPath="e:\webradsource\todosource\wwwroot\todo\admin\" ENDDEFINE *** Configuration class for Schedule Task Server: DEFINE CLASS ScheduleConfig AS wwConfig cExecutable = "ToDoSTS.EXE" cFullURL = "http://www.yourdomain.com/todo/" && supports URL creation cTitle = "TODO Scheduler" nLoopSleep = 10 && pause between loops (seconds) n ```