VBScript获取浏览器地址中的查询参数（query param)

今天接到一个小需求，对方有个很老很老很老很老很老很老很老很老很老很老很老很老的ASP网站，还是用VBScript写的，要从浏览器url中取一个参数，根据这个参数查出不同的记录。

目前的版本是这样的:

...
command = "SELECT * FROM clpd.Flight WHERE SN=?"
...

没有参数，所以查出来的永远是第一条记录。

地址：www.xxx.com/index.asp?sn=2

现在用VBScript获取url中的查询参数sn:

dim sn
sn = Request.QueryString("sn")

command "SELECT * FROM clpd.Flight WHERE SN=" & sn 

查询成功，用sn=2查到了对应的记录。

参考：https://stackoverflow.com/questions/15781887/get-the-parameter-from-the-url-of-site-using-asp-with-vbscript

 

题外话，我居然能在2021年改到VBScript的内容，惊呆了。