asp去除表格内容的正则表达式

 Function GetZhanzhanList(Codes)
  Codes=RegExpTest(".*?", Codes)
  Codes=Replace(Codes,"","")
  Codes=Replace(Codes,"","")
  Codes2=""
  TempArr=Split(Codes,"||")
  For Each Temp In TempArr
   If Temp<>"" And Instr(Temp,"http://")=0 Then
    If Instr(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