波斯码BOSSMA Information Technology

asp二级域名转发程序(泛域名支持)

发布时间:2007年2月5日 / 分类:ASP.NET / 9,153 次浏览 / 评论

使用本程序首先确定
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二级域名转发程序(泛域名支持)

关键字:

建议订阅本站,及时阅读最新文章!
【上一篇】 【下一篇】

目前有1 条评论

  1. 林子 沙发:

    这套内容多少与我写的一个组件雷同
    我现在考虑是基于ISAPI好呢,还是COM好
    ISAPI的权限高,不需要默认主机的支持,
    不过一但出问题整个IIS就挂了
    用COM必须得有默认主机来支持
    鱼和熊掌吧