正则提取 input 中的 value 值

[qq_16421073]

Function RegExpTest(patrn, strng)
  Dim regEx, Match, Matches      ' 建立变量。
  Set regEx = New RegExp         ' 建立正则表达式。
   regEx.Pattern = patrn         ' 设置模式。
   regEx.IgnoreCase = True         ' 设置是否区分字符大小写。
   regEx.Global = True         ' 设置全局可用性。
  Set Matches = regEx.Execute(strng)   ' 执行搜索。
  For Each Match In Matches      ' 遍历匹配集合。
     'RetStr = RetStr & "Match found at position "
     'RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
     RetStr = RetStr & Match.Value
  Next
   RegExpTest = RetStr
End Function

<input type="text" name="carNo" id="carNo" maxlength="30"
value="SLX5104" title="" readonly="readonly"
class='input12' />

请问怎么写可以提取到 SLX5104

[浪子回头8]

carNo=trim(request("carNo"))