<%
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%>