万企互联-专注高端网站建设
扫描关注万企互联微信公众账号

扫一扫微信二维码

会员生成二级域名

网络编程2015/9/23 4403

<%
Dim hostname
hostname=Request.ServerVariables("SERVER_NAME")
hostname=Replace(hostname,"www.","")                 '去掉前面的www
if Instr(hostname,"ip00.cn")<2 then                  '判断域名中包含xxx.com则正常显示网站,否则其他域名均显示以下文字提示
response.write "必须是二级域名才可以"                '防止aspbc.com这个域名进入
Response.end
end if
username=Split(hostname,".")(0)                      '得到用户名
username=Replace(Replace(username,"'",""),";","")    '过滤掉单引号和分号
%>

二级域名:<%=hostname%>

会员账号:<%=username%>

文章分类
网络编程
打开微信,点击底部的“发现”,使用“扫一扫”即可将网页分享至朋友圈。
万企互联 咸阳网站建设 咸阳微信营销 IDC主机测评 IP地址查询 万企工具 四六互联 四六技术网 品多技术网 超越彼岸BEYOND 六佰号 秦川云 秦川云影院