ADODB 无连接 RecordSet 实战：用 TaoToken 统一 Key 打通离线数据校验

1. 经典 ASP 数据层的老问题：ADODB 无连接 RecordSet 到底解决什么

如果你还在维护十多年前的 ASP/VBScript 系统，大概率遇到过这种场景：页面要展示一批数据，但数据库连接池紧张，或者数据来自多个库、多个来源，甚至需要在没有数据库的环境里做一次数据校验。这时候 ADODB 的无连接 RecordSet（Disconnected RecordSet）就是一把老而好用的刀。

先说清楚它是什么。ADODB.Recordset 默认是「连着」数据源的，你打开它、读它、改它，背后都挂着一条 Connection。而无连接 RecordSet 的核心思路是：先把数据一次性拉到客户端游标（adUseClient）里，然后主动把 ActiveConnection 置为 Nothing，断开与数据库的连接。断开之后，这个 Recordset 依然保留全部数据，你还能继续增删改查、排序、过滤、序列化，只是这些操作发生在内存里，不再回写数据库——除非你重新挂上连接做批量更新。

它能做什么？适合谁？适合三类人：一是维护经典 ASP/VBScript 数据层的老开发者，二是需要在无数据库环境下做离线数据校验的场景，三是想把数据从数据库「搬」到内存里做二次加工、再统一提交的批处理任务。我试过在一个老系统里用它做导入前的数据预校验，几万行数据先在内存里跑一遍规则，不合格的直接标红，合格的一次性提交，比逐行查库快得多。

但这里有个现实问题：老系统往往没有统一的 API 通道，校验规则、模型调用、外部服务对接都是散的。这篇就结合 TaoToken 的统一 Key/API 通道，把「无连接 RecordSet 构建 → 离线读写 → 端到端验证」这条链路走通。TaoToken 在这里的角色不是替代数据库，而是给离线校验环节提供一个统一的模型/接口入口，让校验逻辑可以调用外部能力，而不用在每个老页面里硬编码一堆地址和密钥。

下面从构建字段定义开始，一步步给出可复制的配置。

2. TaoToken 前置准备：统一 Key 与 API 通道配置

在动手写 RecordSet 之前，先把 TaoToken 这条通道准备好。它的作用是给离线校验提供一个统一的 API 入口，你只需要一个 Key，就能在 VBScript 里通过 XMLHTTP 或 ServerXMLHTTP 发起请求，不用为每个服务单独维护地址和凭证。

第一步，拿到 Key。访问 API Keys 管理页：https://taotoken.net/api-keys?utm_source=taotoken_aicg_blog_end&utm_content=api_keys&utm_campaign=rewrite ，登录后创建一个新的 Key，复制保存。注意这个 Key 只在创建时完整显示一次，丢了就重新建。

第二步，确认 Base URL。TaoToken 的 API 根地址是 https://taotoken.net/api ，所有请求都基于这个地址拼接。比如模型对话接口、coding-plan 相关接口，都是在它后面加路径。

第三步，选模型 ID。离线校验里如果要用到模型能力（比如对文本字段做语义判断），需要指定 Model ID。你可以在模型对话页先试一下：https://taotoken.net/models?utm_source=taotoken_aicg_blog_end&utm_content=models&utm_campaign=rewrite ，选一个适合你场景的模型，记下它的 ID。

第四步，如果你要做长期编码或 Agent 类任务，可以看 Coding Plan：https://taotoken.net/coding-plan?utm_source=taotoken_aicg_blog_end&utm_content=coding_plan&utm_campaign=rewrite ，它更适合持续性的开发场景。控制台入口在 https://taotoken.net/console?utm_source=taotoken_aicg_blog_end&utm_content=console&utm_campaign=rewrite ，可以查看调用记录和用量。

这里要强调一个三件套概念：Base URL + Key + Model ID。无论你后面用 Cline MCP、Codex 的 auth.json，还是 Claude Code 接入，这三个要素缺一不可。在 VBScript 里我们手动拼请求头，同样遵循这个结构。

配置建议放在一个独立的 include 文件里，比如taotoken_config.asp，内容如下：

<% ' TaoToken 统一配置 Const TAOTOKEN_BASE_URL = "https://taotoken.net/api" Const TAOTOKEN_API_KEY = "sk-你的Key" Const TAOTOKEN_MODEL_ID = "你的模型ID" ' 通用请求封装 Function TaoTokenPost(path, jsonBody) Dim http Set http = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0") http.Open "POST", TAOTOKEN_BASE_URL & path, False http.setRequestHeader "Content-Type", "application/json" http.setRequestHeader "Authorization", "Bearer " & TAOTOKEN_API_KEY http.Send jsonBody TaoTokenPost = http.responseText Set http = Nothing End Function %>

这样任何老页面只要 include 这个文件，就能用TaoTokenPost发请求。注意 ServerXMLHTTP 在老服务器上可能版本不同，如果报错就换成MSXML2.ServerXMLHTTP或Microsoft.XMLHTTP，逐个试。

3. 可复制配置：CreateRecordSet 字段定义与断开连接

这一节是核心，给出完整的无连接 RecordSet 构建代码。关键点有三个：CursorLocation 必须是 adUseClient，ActiveConnection 要置为 Nothing，CursorType 用 adOpenStatic、LockType 用 adLockOptimistic 才能支持离线增删改。

先看字段定义。无连接 RecordSet 可以完全凭空创建，不需要任何数据库。用Fields.Append逐个加字段，指定名称、类型、大小：

<% Function CreateDisconnectedRecordSet() Dim rst Set rst = Server.CreateObject("ADODB.Recordset") ' 关键：客户端游标，才能断开连接后继续操作 rst.CursorLocation = 3 ' adUseClient rst.CursorType = 3 ' adOpenStatic rst.LockType = 3 ' adLockOptimistic ' 定义字段：名称, 类型, 大小, 可空 rst.Fields.Append "ID", 3, , 1 ' adInteger rst.Fields.Append "Name", 202, 100, 1 ' adVarWChar rst.Fields.Append "Amount", 5, , 1 ' adDouble rst.Fields.Append "Status", 202, 20, 1 rst.Fields.Append "Remark", 203, 500, 1 ' adLongVarWChar rst.Open Set CreateDisconnectedRecordSet = rst End Function %>

字段类型编号对照表，方便你查：

创建好之后，ActiveConnection 本来就是 Nothing（因为没连过），但如果你是从数据库 Execute 出来的 Recordset，就必须手动断开：

<% ' 从数据库取数后断开 Dim cnn, rst Set cnn = Server.CreateObject("ADODB.Connection") cnn.CursorLocation = 3 cnn.Open "Provider=SQLOLEDB;Data Source=.;Initial Catalog=TestDB;User ID=sa;Password=xxx;" Set rst = Server.CreateObject("ADODB.Recordset") rst.CursorLocation = 3 rst.Open "SELECT * FROM Orders", cnn, 3, 3 ' 断开连接的关键两步 Set rst.ActiveConnection = Nothing cnn.Close Set cnn = Nothing ' 此时 rst 仍持有全部数据，可继续操作 %>

注意顺序：先Set rst.ActiveConnection = Nothing，再cnn.Close。反过来会报错，因为 Recordset 还引用着连接。

断开后的增删改查：

<% ' 新增 rst.AddNew rst("ID") = 1001 rst("Name") = "测试订单" rst("Amount") = 299.5 rst("Status") = "pending" rst.Update ' 修改 rst.MoveFirst Do While Not rst.EOF If rst("Status") = "pending" Then rst("Status") = "checked" rst.Update End If rst.MoveNext Loop ' 删除 rst.MoveFirst Do While Not rst.EOF If rst("Amount") < 0 Then rst.Delete Else rst.MoveNext End If Loop ' 查询：用 Filter 做内存过滤 rst.Filter = "Status = 'checked'" %>

序列化方面，无连接 Recordset 支持Save到流或文件，格式是 ADTG 或 XML：

<% ' 保存为 XML rst.Save "C:\temp\orders.xml", 1 ' adPersistXML ' 从 XML 恢复 Dim rst2 Set rst2 = Server.CreateObject("ADODB.Recordset") rst2.Open "C:\temp\orders.xml" %>

这套配置在无数据库连接时完全可用，实测下来几万行数据的内存操作响应很快。

4. 验证请求：端到端跑通离线校验与 TaoToken 调用

配置写好了，得验证它真的能跑。这一节做一次端到端验证：构建无连接 RecordSet → 填充数据 → 调用 TaoToken 做一次校验 → 确认结果。

先写一个完整的验证页面verify.asp：

<!--#include file="taotoken_config.asp"--> <% ' 1. 构建无连接 RecordSet Dim rst Set rst = CreateDisconnectedRecordSet() ' 2. 填充测试数据 Dim i For i = 1 To 5 rst.AddNew rst("ID") = i rst("Name") = "订单" & i rst("Amount") = i * 100 rst("Status") = "pending" rst("Remark") = "离线校验测试数据 " & i rst.Update Next ' 3. 断开确认（本就没连，这里显式置空） Set rst.ActiveConnection = Nothing ' 4. 内存过滤：只取 Amount >= 300 的 rst.Filter = "Amount >= 300" Response.Write "过滤后记录数：" & rst.RecordCount & "<br>" ' 5. 调用 TaoToken 做一次校验请求 Dim jsonBody, resp jsonBody = "{""model"":""" & TAOTOKEN_MODEL_ID & """,""messages"":[{""role"":""user"",""content"":""请判断以下订单数据是否合规：订单3，金额300，状态pending""}]}" resp = TaoTokenPost("/v1/chat/completions", jsonBody) Response.Write "TaoToken 返回：<br>" Response.Write Server.HTMLEncode(resp) & "<br>" ' 6. 序列化验证 rst.Save Server.MapPath("orders.xml"), 1 Response.Write "已序列化到 orders.xml<br>" ' 7. 恢复验证 Dim rst2 Set rst2 = Server.CreateObject("ADODB.Recordset") rst2.Open Server.MapPath("orders.xml") Response.Write "恢复后记录数：" & rst2.RecordCount & "<br>" Set rst2 = Nothing Set rst = Nothing %>

成功结果应该看到：过滤后记录数 3（Amount 300/400/500），TaoToken 返回一段 JSON，序列化文件生成，恢复后记录数 3。

如果你只想验证模型通道，可以直接在模型对话页手动发一条：https://taotoken.net/models?utm_source=taotoken_aicg_blog_end&utm_content=models&utm_campaign=rewrite ，确认 Key 和 Model ID 有效，再回到代码里。

这里有个细节：rst.Filter之后RecordCount反映的是过滤后的数量，但底层数据没丢，把 Filter 设为空字符串""就能恢复全部。序列化时保存的是全部数据还是过滤后的？实测保存的是当前视图，所以序列化前记得清空 Filter。

5. 本篇常见错排查：401、local proxy failed、reading choices、OAuth

老系统对接新 API，报错五花八门。这一节把最常见的几个列出来，对照排查。

401 Unauthorized。最常见的原因是 Key 没带对或格式错。检查Authorization头是不是Bearer sk-xxx，中间有空格，Bearer 首字母大写。另外确认 Key 没有多余换行——从网页复制时容易带上。如果用的是taotoken_config.asp里的常量，检查有没有被其他 include 覆盖。

local proxy failed。这个报错通常出现在本地开发环境，说明请求根本没发出去，卡在本地网络层。排查顺序：先确认服务器能不能访问外网，用ServerXMLHTTP的setTimeouts设置超时，避免无限等待：

http.setTimeouts 5000, 5000, 10000, 10000

如果服务器在内网且有限制，需要联系网络管理员放行taotoken.net域名。注意不要用任何非正规的网络工具，合规访问即可。

reading choices 相关报错。这通常发生在解析返回 JSON 时，代码假设返回结构里有choices数组，但实际返回的是错误对象。先打印原始resp看结构，再决定怎么解析。VBScript 没有内置 JSON 解析，可以用ScriptControl或手写简单解析，但更稳的做法是先判断返回里有没有error字段。

OAuth 相关报错。如果你用的是 Claude Code 或 Codex 这类工具接入，可能涉及 OAuth 流程。Codex 的auth.json里需要配置 Base URL、Key、Model ID 三件套，缺一个都会失败。Claude Code 接入时，Anthropic 兼容端点要指向正确路径，参考文档：https://taotoken.net/doc?utm_source=taotoken_aicg_blog_end&utm_content=doc&utm_campaign=rewrite 。如果出现 OAuth 回调失败，检查回调地址是否和配置一致。

再补一个 RecordSet 特有的坑：断开连接后调用Requery会报错，因为没连接可查。还有AbsolutePage在 adOpenStatic 下才可用，adOpenForwardOnly 不支持。字段类型用错也会出问题，比如给 adInteger 字段赋字符串，会静默截断或报类型不匹配。

6. 把统一 Key 通道用起来：从离线校验到长期编码

走到这里，无连接 RecordSet 的构建、离线读写、序列化、TaoToken 调用都验证过了。回到实际场景：老系统的数据校验往往不是一次性的，而是持续迭代的。今天校验订单，明天校验用户，后天要加语义判断。如果每个页面都硬编码 API 地址和 Key，维护成本会爆炸。

统一 Key 通道的价值就在这里。把taotoken_config.asp作为唯一入口，所有校验逻辑都通过TaoTokenPost走，换 Key、换模型、换地址只改一个文件。对于长期编码任务，Coding Plan 更适合：https://taotoken.net/coding-plan?utm_source=taotoken_aicg_blog_end&utm_content=coding_plan&utm_campaign=rewrite ，它面向持续性的开发场景，配合控制台 https://taotoken.net/console?utm_source=taotoken_aicg_blog_end&utm_content=console&utm_campaign=rewrite 看用量。

如果你要把这套逻辑接到 Cline MCP 或 Claude Code 里，记住三件套：Base URL 用https://taotoken.net/api，Key 用你创建的，Model ID 按场景选。接入文档在 https://taotoken.net/doc?utm_source=taotoken_aicg_blog_end&utm_content=doc&utm_campaign=rewrite ，里面有各工具的配置示例。

最后给一个实用技巧：无连接 RecordSet 的Save出来的 XML 可以直接当缓存用。下次页面加载时先尝试从 XML 恢复，恢复失败再查库，能省不少数据库压力。恢复代码就三行，前面验证过。老系统改造不用大动干戈，从一个小校验页面开始，把通道跑通，再逐步铺开。