之前我就想做二级域名指向同一个IP同一个程序无非是在路由匹配规则上做文章也就是对Url的重写的一种思路。我用了半天时间上网查阅了相关资料并做了Demo测试是完全以的,在这分享给大家...假如网站主域名是:www.abc.com实现二级域名是: tianjin.abc.com , shanxi.abc.com 这个样子。首先定义DomainData、DomainRoute类 public class DomainRoute : Route{private Regex domainRegex;private Regex pathRegex;public string Dom...
自己做了asp的二级域名转向已经使用当中,但用到另一种方法:前台JS加ASP的转向程序却转不了,程序调试已经通过但不能转向不知道为什么请帮忙指出原因,谢谢!!! <% Dim whkDbq,whkSql,whkRs,whkCount Set whkConn = Server.CreateObject("ADODB.Connection") whkDbq = Server.MapPath("SqlTaoFun.mdb") whkConn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&whkDbq whkSql = "select bh,id from UserInfo where State=...
前几天,为了增强本站的SEO,着手把另一个域名:www.gxlsystem.com下的所有页面301转向到www.gxlsystem.com下。 由于本站目前只有一个博客,于是从博客上入手。 思路很简单,获取当前浏览页面的域名,如果是需要转向的域名,再替换域名部分,做为新地址来301转向。 代码如下:代码如下:<%
Dim toDomain,fromDomain,curDomain,q,p,url
toDomain=www.gxlsystem.com
fromDomain="kanshule.com"
curDomain=Request.ServerVariables...
同一空间多绑一个域名 代码如下:<% CheckDomain Sub CheckDomain() dim sDomain sDomain = Request.ServerVariables("HTTP_HOST") If Instr(sDomain,"a.xxx.com")>0 then Response.Redirect "a/" End Sub %> 同一空间多绑二个域名 代码如下:<% CheckDomain Sub CheckDomain() dim sDomain sDomain = Request.ServerVariables("HTTP_HOST") If Instr(sDomain,"a.xxx.com")>0 then Re...
写的很简单,只是实现了功能 <% Function formaturl(yes) If mid(yes,5,1)<>"" then yes1 = left(yes,3) yes2 = right(yes,cint(len(yes))-3) formaturl = yes1 & "." & yes2 else formaturl=yes end if End Function '取得远程网页二进制源代码 Function getBoy(url) 'on error resume next Set objXml = Server.CreateObject("Microsoft.XmlHttp") with objXml .open "get",url,false,"","" .send getBoy = .re...
<% host=lcase(request.servervariables("HTTP_HOST")) SELECT CASE host Just change the CASE to your domains CASE "www.gxlsystem.com.au" Below is the redirect command response.redirect "au/" CASE "designbliss.com.au" response.redirect "au/" CASE "e.free-bliss.com" response.redirect "front.asp" CASE "www.gxlsystem.com" response.redirect "wda/" CASE "website-design-australia.com" response...
二级域名原理以及程序,申请即可开通 [普通框架式二级域名]
要达到二级名的效果,必须一下条件以及流程:
1、必须有一个顶级域名,而且此域名必须做好泛解析并做好指向。
2、必须有一台独立的服务器。泛解析的域名指向该服务器。
3、在服务器上的IIS建一个空的主机头名的web站点。
4、将默认的页面设置为你的二机解析程序(比如:freedns.asp)
5、二级域名系列程序(包括申请页:shenqing.htm,添加页add.asp,解析页,) 此程序的...
代码如下:<% Dim Domain Set Domain = New Cls_DomainFunctionClass Cls_DomainFunction Private vListURL Private Thief_ Private vDomainArr, vDomainName Private vLoopI Private vDomainsName, vDomainMainBody Private TLDCode Private Rs, Sql Private ExtraDataArr Private WhoisArr, WhoisCreationDate, WhoisExpirationDate, WhoisORG, WhoisName, WhoisBaiduSite, WhoisBaiduBody, ...
将多个域名绑定到一个空间,访问不同的首页。这样设立更多的子站点:) 空间内默认首页(通常是 index.asp 或 default.asp )使用 Request.ServerVariables("HTTP_HOST") 获取用户访问时所使用域名,然后使用 Select 调用不同文件,可用 Response.Redirect 或 Server.Transfer 代码如下:Dim cc_str_host_namecc_str_host_name = LCase(Request.ServerVariables("HTTP_HOST"))'判断主机名进行跳转Select Case cc_str_host_name Case ...