域名停放代碼完全共享
[重要通告]如您遇疑難雜癥,本站支持知識付費業(yè)務(wù),掃右邊二維碼加博主微信,可節(jié)省您寶貴時間哦!
域名停放代碼完全共享
將自己研究出來的一個域名停放頁面代碼共享一下,
這次希望可以落伍.
說到域名停放,,
可能有很多的停放商可供選擇.
但有利也有不足的地方..
所以,
如果要將自己的停放頁面,完全掛自己的廣告
完全可以自己掌握域名的訪問統(tǒng)計情況.
那么,做自己的停放頁面,
這是最好的選擇.
下面的代碼:
自動獲取當(dāng)前訪問域名
并可以調(diào)取顯示在停放頁面的任何一個你認(rèn)為需要的位置
同時,
將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"%>
|
|||
| 請點擊聯(lián)系QQ：1974889 mail:1974889@QQ.com |
![]("tol/c8tvlogo.gif")
|
|
|
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 |