How to implement the principle of the Wheat Thief Thief program

Michael Thief Thief program is how to achieve the principle of
The address in the address bar of the program is how to convert the address of the website domain

------Solution--------------------

VB Code

<%    url = "http://sports.163.com/"    comstr = getpage (URL)    Set re=new RegExp    re.global = True    Thebody = GetContent (comstr,
  <>< html="">"
   ", 1)    thebody = replace (thebody, "/HTTP/ sports.163.com/"," abc.asp?id= ")%>
   
------Solution--------------------
   
It means it's good to use regular matching. 
   

  <>