域名停放代碼完全共享

[重要通告]如您遇疑難雜癥,本站支持知識付費業務,掃右邊二維碼加博主微信,可節省您寶貴時間哦!

域名停放代碼完全共享
將自己研究出來的一個域名停放頁面代碼共享一下,
這次希望可以落伍.

說到域名停放,,
可能有很多的停放商可供選擇.
但有利也有不足的地方..
所以,
如果要將自己的停放頁面,完全掛自己的廣告
完全可以自己掌握域名的訪問統計情況.
那么,做自己的停放頁面,
這是最好的選擇.

下面的代碼:
自動獲取當前訪問域名
并可以調取顯示在停放頁面的任何一個你認為需要的位置
同時,
將WWW前綴取消了,不顯示.
即www.abc.com訪問的話,
頁面直接可以顯示abc.com
演示:
www.mm8.com.cn
www.c2tv.cn
www.pifajia.com
www.9a99.com
www.7ccc.com.cn
www.2mmm.com.cn
他們打開的都是同一停放頁面,
但顯示域名跟訪問的域名一樣.
我的源代碼如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<% Function GetUrl() dim url url=Request.ServerVariables("SERVER_NAME") Set reg = New RegExp reg.Pattern = "^(?:http)?s?(?::\/\/)?(?:www.|\*.|\.)?(.*)$" reg.Global = True reg.IgnoreCase = True GetUrl = reg.Replace(url,"$1") End Function %><br /> <%=GetUrl%>此域名誠征代理、合作，歡迎洽談！

<% Function GetUrl() dim url url=Request.ServerVariables("SERVER_NAME") Set reg = New RegExp reg.Pattern = "^(?:http)?s?(?::\/\/)?(?:www.|\*.|\.)?(.*)$" reg.Global = True reg.IgnoreCase = True GetUrl = reg.Replace(url,"$1") End Function %>
<%=GetUrl%> The Domain Is For Sale! 此域名誠征代理、合作，歡迎洽談！

請點擊聯系QQ：1974889 mail:1974889@QQ.com

Copyright ? 2007 <% Function GetUrl() dim url url=Request.ServerVariables("SERVER_NAME") Set reg = New RegExp reg.Pattern = "^(?:http)?s?(?::\/\/)?(?:www.|\*.|\.)?(.*)$" reg.Global = True reg.IgnoreCase = True GetUrl = reg.Replace(url,"$1") End Function %>
<%=GetUrl%> All Rights Reserved