断网

这些天寝室断网了,上不了网的日子真不好过。眼看我的空间代理平台的访问量直线下降,还有我的网店的访问量也是直线下降。这电信的也真是够黑的了,打电话要来给修,可他们来个人影都不见,真TMD缺德!

买票

今天下午去买票了,到火车站一看,我靠,这么多人,要从售票厅门口开始排队。昨天的天还热的要命,售票厅就门口有那么个空调,里面就是那么几个风扇,里面更是热的要死。我一看这么多人,当时心里就没了底,就怕买不到票,因为按以往的经验,都是票很不好买。
排了大概一个多小时,终于买到了,呵呵,20号早晨的,运气还不错。

博客换空间

今天终于把博客换了个空间,这个空间明显比速展的快多了,呵呵,用的是广西站长的空间,是要先写申请,之后他们审核通过才有的,我很幸运的通过了他们的审核

失眠

昨天晚上失眠了,一直到晚上两点多才睡的。可能是这几天的事情比较烦吧,昨天晚上学院开会,把搬家的事给定下来了,8月31号之前搬,不过放假之前就要把东西都打包统一寄存,寝室不给住,要想留校的话就要写申请,批下来之后由学校统一安排,这就意味着不能在原来的寝室上网上,那留下来也没多大意义了。

ASP二级域名程序(对,没错,不是URL转发)V2

级域名与与转发的区别就在于,比如:
http://www.0411ln.cn/index.asp
二级域名将转向到http://www.0411ln.cn/index.asp
URL转发会到http://www.0411ln.cn/

也就是说二级域名也可以当作一个域名来看待,现在网上有好多URL转发的程序,我写了个二级域名的程序,好了,闲话少说,代码说话~~

实现原理很简单:
首先,网站根目录下要放一个index.asp文件用于地址的转发
其次,要有个404.htm,名字可以随便取,但在虚拟主机上一定要把它设成默认404错误页,我们主要的域名解析就靠它了,呵呵~
最后,要有个真正的404错误页,叫它true404.htm

第一版代码:
404.htm

<script language=vbscript>
    const Domain="0411ln.cn" //改成你的域名(需支持泛解析)
</script>
<script language=javascript>
    function getURL()
    {
        return location.href;
    }
    function href(val)
    {
        if (val=="")
        {
            return location.href;
        }
        else
        {
            location.href=val;
        }
    }
</script>

<script language=vbscript>
    url=geturl()
    url=replace(url,"http://","")
    host=left(url,instr(url,"/")-1)
    secDomain=left(host,len(host)-len(Domain)-1)
    extUrl=right(url,len(url)-len(host))
    exturl=replace(exturl,"&","%26")
    href("index.asp?secDomain="+secDomain+"&extUrl="+extUrl)
</script>

index.asp

const Domain="0411ln.cn" //改成你的域名(需支持泛解析)
const frontURL="http://domain.0411ln.cn/" //改成你的网站地址

serverName=Request.ServerVariables("SERVER_NAME")
extURL=Request.ServerVariables("SCRIPT_NAME")


if request("extURL")="" and request("secDomian")="" then
    secDomain=left(serverName,len(serverName)-len(Domain)-1)
else
    secDomain=request("secDomain")
    extURL=request("extUrl")
end if


select case secDomain
case ""
    response.redirect frontURL&extURL
case "www"
    response.redirect frontURL&extURL
case "ftp"
    response.redirect "ftp://172.16.69.81"
case "05jb"
    response.redirect frontURL&"05jb"&extURL
case else
    response.redirect "true404.htm" //404错误页面
end select

修正第一版中的一些Bug:
1、二级域名后不跟地址只会转到 域名+index.asp
2、不存在的地址不会显示404错误
3、输入不存在的地址造成404转向死循环
第二版代码:
404.htm

<script language=vbscript>
    const Domain="royee.com"
    const frontURL="http://domain.0411ln.cn/"
</script>

<script language=javascript>
    function getURL()
    {
        return location.href;
    }
    function href(val)
    {
        if (val=="")
        {
            return location.href;
        }
        else
        {
            location.href=val;
        }
    }
</script>


<script language=vbscript>
    url=geturl()
    url=replace(url,"http://","")
    host=left(url,instr(url,"/")-1)
    secDomain=left(host,len(host)-len(Domain)-1)
    extUrl=right(url,len(url)-len(host))
    exturl=replace(exturl,"&","%26")
    href(frontURL&"index.asp?secDomain="+secDomain+"&extUrl="+extUrl)
</script>

index.asp

const Domain="0411ln.cn" //改成你的域名(需支持泛解析)
const frontURL="http://domain.0411ln.cn/" //改成你的网站地址

secDomain=request("secDomain")
extURL=request("extUrl")

select case secDomain
case ""
    url= frontURL&extURL
case "www"
    url= frontURL&extURL
case "ftp"
    url= "ftp://172.16.69.81"
case "05jb"
    url= frontURL&"05jb"&extURL
case "nod32"
    url= frontURL&"nod32"&extURL
case else
    url= "true404.htm" //404错误页面
end select


if url<>frontURL then
    response.redirect (url)
else
    host=request.servervariables("http_host")
    response.redirect (frontURL&left(host,len(host)-len(Domain)-1))
end if

trur404.htm自己制作

请各位指正

---------------------------------以上内容来自http://blog.gu999.com.cn--------------------
-----------------------------------------转载请标明出处,谢谢:)---------------------

分类

最新文章

最近回复

归档

标签云

C# .net core asp.net 情感 SQL mongodb sql server EasyUI linux 身份验证 typecho .net sql注入 安全 kms 激活 MVC https IIS 高并发 IE 坑爹 服务器 mysql Combobox Datagrid 口语 数据抓取 远程下载

其它