二级域名处理,实现地址栏不变

最新推荐文章于 2021-08-13 13:30:50 发布

lfh103856111

最新推荐文章于 2021-08-13 13:30:50 发布

阅读量1.1k

点赞数

分类专栏： asp 文章标签： browser url border html

asp 专栏收录该内容

19 篇文章 0 订阅

订阅专栏

<%
tURL = Request.ServerVariables("HTTP_HOST")        '请求页面的地址
dURL = left(turl,instr(tURL,".")-1)                               '二级域名名字
sURL = dURL&"."
sURL = replace(tURL,""&sURL&"","")                         '顶级域名，也即abc.com

If dURL="www" or durl="" then
    Response.Redirect("默认首页")
    Response.End()
Else
   Set rs = conn.execute("select id,username from [register] where username='"&dURL&"'")
   If   rs.eof and rs.bof then
       response.Redirect("默认首页")
       response.End()
   Else
    url= ""       '此处url 为二级域名访问的路径
     rs.close
    Set rs = nothing
%>

<noframes>
<body>
<p>This page uses frames, but your browser doesn't support them.</p></body>
</noframes>
</frameset>
</HTML>
<%
end if
end if
%>

lfh103856111

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
二级域名处理,实现地址栏不变

tURL = Request.ServerVariables("HTTP_HOST") 请求页面的地址dURL = left(turl,instr(tURL,".")-1) 二级域名名字sURL = dURL&"."sURL = replace(tURL,""&sURL&"","")
复制链接

扫一扫