可用于伪静态的301重定向ASP类

<
%'***************************************************************'    文件名:     Redirection.cls.asp'    描述:       可用于伪静态的301重定向ASP类'    @作者:      执笔勾勒流年(BackMouse) <
94126162@qq.com>
'    @版本:      0.1 Beta <
2012 年 11 月 19 日>
'***************************************************************'【使用说明】'========================jUrls属性（带参数传入的静态页面）========================'值：脚本文件名，"|"分隔多个文件名'注意：为了正确性，请在文件名前加"/"，请使用小写'示例：实例名.jUrls = "/news_index.asp|/book_index.asp"'================================================================================='========================jStrs属性（带参数传入的静态页面）========================'值：传入的GET参数名称，"|"分隔每个页面的参数，","分隔多个参数'注意：分隔符内容对应jUrls属性的分隔符内容，请使用小写'示例：实例名.jStrs = "NewsType,ListPage|id"'================================================================================='========================lStrs属性（带参数传入的静态页面）========================'值：转换后的静态页面名，"|"分隔多个文件名'具体："
#数字"代表参数，按顺序对应jStrs的参数名，数字从0开始，按1增加'注意：分隔符内容对应jUrls属性的分隔符内容，请使用小写'示例：实例名.lStrs = "/news_index_
#0_
#1.html|/book_index_
#0.html"'================================================================================='========================jUrl属性（不带参数传入的静态页面）======================='值：脚本文件名，"|"分隔多个文件名'注意：为了正确性，请在文件名前加"/"，请使用小写'实例：实例名.jUrl = "/login.asp|/reg.asp|/loginout.asp|/protocol.asp|/index.asp"'================================================================================='========================PastUrl属性======================='值：原来的域名'示例：实例名.PastUrl = "xxx.com"'=========================================================='========================ToUrl属性========================='值：重定向的域名'示例：实例名.ToUrl = "www.xxx.com"'=========================================================='========================NotPath属性======================='值：不进行伪静态的文件目录，多个用"|"分隔'注意：为了正确性，请在文件名和文件后前加"/"，请使用小写'示例：实例名.NotPath = "/admin/|/demo/"'=========================================================='========================ToHtml属性======================='值：静态页面后缀'示例：实例名.ToHtml = ".html"'=========================================================='=====================Redirection()方法===================='说明：开始伪静态的301重定向'示例：实例名.Redirection()'==========================================================Class Redirection_BackMouse  Private ScriptName     '获取当前文件脚本名称    Public jUrls           '带参数静态页面 的脚本名字符串  Private aUrls          '带参数静态页面 的脚本名数组    Public jStrs           '带参数静态页面 的GET参数字符串  Private aStrs          '带参数静态页面 的GET参数数组  Private aStrss         '带参数静态页面 的各个GET参数名数组    Public lStrs           '带参数静态页面 的静态地址规则字符串  Private alStr          '带参数静态页面 的静态地址规则数组    Private iUrls          '带参数静态页面 第一层循环变量  Private iStrs          '带参数静态页面 第二层循环变量  Public jUrl            '不带参数静态页面 的脚本名字符串  Private aUrl           '不带参数静态页面 的脚本名数组  Private iUrl           '不带参数静态页面 第一层循环变量    Public PastUrl         '原来的域名  Public ToUrl           '301重定向后的域名  Public ToHtml          '转换后的后缀    Public NotPath         '不进行静态重定向的目录  Private aNotPath       '不进行静态重定向的目录数组  Private iNotPath       '判断目录第一层循环  Private vNotPath       '目录判断变量    Private Sub Class_Initialize()    vNotPath = 0  End Sub    Private Sub Class_Terminate()    Set ScriptName = Nothing    Set jUrls = Nothing    Set aUrls = Nothing    Set jStrs = Nothing    Set aStrs = Nothing    Set aStrss = Nothing    Set lStrs = Nothing    Set alStr = Nothing    Set iUrls = Nothing    Set iStrs = Nothing    Set jUrl = Nothing    Set aUrl = Nothing    Set iUrl = Nothing    Set PastUrl = Nothing    Set ToUrl = Nothing    Set NotPath = Nothing    Set aNotPath = Nothing    Set iNotPath = Nothing    Set vNotPath = Nothing  End Sub    Public Sub Redirection()    If Request.ServerVariables("HTTP_HOST")=PastUrl Then      ScriptName = LCase(Request.ServerVariables("SCRIPT_NAME"))            aNotPath = split(NotPath,"|")      For iNotPath=0 To Ubound(aNotPath)        '判断当前目录是否在不进行静态重定向数组中存在，总返回值为0则不存在        vNotPath = vNotPath + Instr(ScriptName,aNotPath(iNotPath))      Next                  If vNotPath = 0 then           '当获取的路径为前台时，执行进行伪静态页面判断，并301重定向伪静态页面。                '进行带参数的伪静态页面301重定向        aUrls = split(jUrls,"|")        aStrs = split(jStrs,"|")        alStr = split(lStrs,"|")        For iUrls=0 To Ubound(aUrls)          If Instr(ScriptName,aUrls(iUrls)) >
 0 then            aStrs