域名停放代码完全共享
[全站通告] 想快速节省您的时间并可接受付费的朋友，可扫右边二维码加博主微信-非诚勿扰！
域名停放代码完全共享
将自己研究出来的一个域名停放页面代码共享一下,
这次希望可以落伍.
说到域名停放,,
可能有很多的停放商可供选择.
但有利也有不足的地方..
所以,
如果要将自己的停放页面,完全挂自己的广告
完全可以自己掌握域名的访问统计情况.
那么,做自己的停放页面,
这是最好的选择.
下面的代码:
自动获取当前访问域名
并可以调取显示在停放页面的任何一个你认为需要的位置
同时,
将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"%>
|
|||
| 请点击联系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 |