波斯马BOSSMA Information Technology

使用本程序首先确定
1、已经进行泛域名解析，并且生效
2、主机空间可以绑定泛域名，并且web站点已进行相关设置（主机头留空等）
——————-2007-4-7————————————-
[如果第二条不符合，解决办法还是有的，见我的另一篇文章“虚拟主机无限二级域名的使用方法”]
—————————————————————–
程序代码：

<%
dim gowhere,gonopage
gowhere=0  '跳转页面
gonopage=0 '显示404页面
sURL=replace(Request.ServerVariables("HTTP_HOST"),"www.","") '去掉www
'对sURL进行过滤
if InStr(sURL,"=")<>0 or InStr(sURL,"`")<>0 or InStr(sURL,"'")<>0 or InStr(sURL," ")<>0 or InStr(sURL,"　")<>0 or InStr(sURL,"'")<>0 or InStr(sURL,chr(34))<>0 or InStr(sURL,"\")<>0 or InStr(sURL,",")<>0 or InStr(sURL,"<")<>0 or InStr(sURL,">")<>0 then 
gonopage=1
end if

if sURL="bossma.cn" then '替换成你自己的域名
gowhere=1
end if

first_name=split(sURL,".") '分解sURL

if gowhere=0 then
if first_name(0)="bossma" then '替换成你自己的
gowhere=1
end if
end if

if gowhere=0 then

if ubound(first_name)>2 then 
gonopage=1
else
gonopage=0
end if

user=first_name(0)
if len(user)<5 then
gonopage=1
else
gonopage=0
end if

end if

if gonopage=1 then
Response.Status= "404 no found"
response.End()
elseif gowhere=0 then
response.redirect("uindex.asp?userid="&uid) '替换成自己的要跳转页面
response.End()
elseif gowhere=1 then
response.redirect("index.asp") '跳转到首页
response.End()
end if
%>

关键字: asp 二级域名