asp去除表格內容的Regex

 Function GetZhanzhanList(Codes)
  Codes=RegExpTest("<td>.*?</td>", Codes)
  Codes=Replace(Codes,"<td>","")
  Codes=Replace(Codes,"</td>","")
  Codes2=""
  TempArr=Split(Codes,"||")
  For Each Temp In TempArr
   If Temp<>"" And Instr(Temp,"http://")=0 Then
    If Instr(Temp,"<a href=")>0 Then
     Temp=Split(Temp,">")(1)
     Temp=Split(Temp,"<")(0)
    End If
    If Codes2="" Then
     Codes2=Temp
    Else
     Codes2=Codes2&"||"&Temp
    End If
   End If
  Next
  GetZhanzhanList=Codes2
 End Function