" '把表格读到这个变量里 Set re = New RegExp re.Global = True re.IgnoreCase = True re.MultiLine = True re.Pattern = "
]*>([^<]+)
" Set Matches = re.Execute(tHTML) i = 1 For Each Match In Matches s = s & "A" & i & "=" & Match.SubMatches(0) & "&" i = i + 1 Next If Len(s) > 0 Then s = Left(s, Len(s)-1) Response.Write s %>