Vbscript 从数据库中提取值，并在打印前更改值

好了，我几乎完成了为我经营的一家电子商务商店编写模块的工作。我正在从数据库中提取一个值：

shipChange = rs("ordShipType")

response.write rs("ordID") & vbTab & rs("ordTrackNum") & vbTab &  shipChange & vbTab & OrderDate & vbCrlf

我需要检测shipChange的值是否为=UPS接地，如果是，我需要在打印前将其更改为UPS，如果值为USPS头等，我需要将其更改为仅USPS。结果被放入一个以制表符分隔的文本文件中，将有多个值被提取，因此需要不断检查，直到所有值都被读取和更改。

使用Select Case确定要更改的内容，并拆分以获取UPS*的第一个“字”

Option Explicit

Dim shipChange
For Each shipChange In Array("UPS Ground", "USPS First Class", "Reitender Bote")
   WScript.Stdout.Write shipChange
   Select Case shipChange
     Case "UPS Ground", "USPS First Class"
       shipChange = Split(shipChange)(0)
     Case "Reitender Bote"
       shipChange = "Horse"
     Case Else
       shipChange = "????"
   End Select
   WScript.Echo " =>", shipChange
Next

输出：

cscript 21100431.vbs
UPS Ground => UPS
USPS First Class => USPS
Reitender Bote => Horse

---

那就这么做吧。shipChange=rsOrdShipType如果shipChange=UPS接地，则shipChange=UPS。怎么了？很好。我想OP也想知道如何通过ASP读取文件中的文本。在这个阶段，我猜是经典的ASP。我能够完全理解它，我确实使用了案例方法。工作得很好。谢谢我还没有将更改后的值吐出到文本文件中。

shipChange = Replace(rs("ordShipType"), "USPS First Class", "USPS")
shipChange = Replace(shipChange, "UPS Ground", "UPS")