【www.gdgbn.com--页面特效】

对不起,你无权查看内部站点.
 
源码:
<%@ Language=VBScript %>

<br />本站主页<br />

<%
"本例根据远程主机地址来进行判断,如果为本地
"地址则进入欢迎页面,否则显示出错信息.
dim address
address = request.servervariables("REMOTE_ADDR")
if address="127.0.0.1" then
"如果为本地,则显示欢迎页面.
response.write "你好,欢迎进入本站点."
else
"否则显示出错信息.
response.write "对不起,你无权查看内部站点."
end if
%>


本文来源:http://www.gdgbn.com/wangyetexiao/2894/