取得網址網域
使用時機，我的網站前陣子加上了來源參照的功能(從那一頁連結過來的)，因為每篇文章我只有存最後一筆參照資訊(不想存太多資料)；
但我又想知道參照網址的排名(那個網站連過來的最多)所以多建了一個參照資料表，一旦有參照資料就加一筆新的重覆就累計值加一；但參照的網址通常都有帶一堆有的沒有的參數，所以我需要將參照的網址變成最簡短的網域就寫了以下函式來達到我的需求