Dim Reg,a
a="id=123&aid=234&bid=345"
Set Reg = New RegExp
'Reg.Pattern = "^[0]*(86)[0]*([0-9]+)"
Reg.Pattern = "(.*?)[^ab]?id=[0-9]+(.*?)"
Response.Write(Reg.Replace(a,"$1$2"))
正则表达式解决不了这个问题,因为bid,cid中都有id字串
str="id=123&aid=234&bid=345"
str=split(str,"&")
tmpstr=""
for i=lbound(str) to ubound(str)
if split(str(i),"=")(0)="id" then tmpstr=tmpstr+replacestr else tmpstr=tmpstr+str(i)
next