麦小偷小偷程序是如何实现原理的

<%
    url = "http://sports.163.com/"

    ComStr = GetPage(url)
    Set Re=new RegExp
    Re.Global = True

    TheBody = GetContent(Comstr,"",1)

    TheBody = replace(TheBody,"http://sports.163.com/","abc.asp?id=")
%>

------解决方案--------------------
意思就是说用正则匹配转换就好啦