位置：首页>> 网络编程>> Asp编程>> 404错误伪静态类封装class RewriteBase（2）

404错误伪静态类封装class RewriteBase（2）

作者：hayden　来源：烦恼blog　发布时间：2009-06-29 16:19:00　

标签：错误,404,伪静态,封装

有兴趣的朋友可以下载RewriteBase类源码玩玩：

压缩包类包括：404.asp、cls_RewriteBase.asp

下载地址：404Rewrite.rar （2.89 KB）

404.asp源码：

<％@ LANGUAGE="VBSCRIPT" CODEPAGE="65001"％>
<％
Option Explicit
Session.CodePage = 65001
％>

<％
Dim Rewrite
Set Rewrite = new RewriteBase
'Rewrite.Char "utf-8" '设置编码默认为utf-8
'Rewrite.ourl '这里可以测试最初所接收的地址，如我的空间是这样的：http://202.91.239.125/404.asp?404;http://pjskin.mysuc.com:80/style_1149=
Rewrite.ReSetUrl "http[^;]*;([^=]*)=","$1" '通过正则转换
'Rewrite.ourl '这里可以测试是否成功转换为所点击的地址。如：http://pjskin.mysuc.com/style_1149.shtml
'**************************
'伪静态正则规则开始。
'**************************
Rewrite.Rule "(http:[^:]*):80\/style_([0-9]+)\.shtml","$1/?styleid=$2"
'Rewrite.ourl '这里可以测试是否已转换到最后地址,将上一步格式的地址转化成如下：http://pjskin.mysuc.com/styleid=1149
'Rewrite.Rule "^\/article\/([0-9]+)\.htm","/article.asp?id=$1"
'Rewrite.Rule "^\/class_([0-9]+)\.html$","/default.asp?cateID=$1"
'Rewrite.Rule "^\/tag\.htm$","/tag.asp"
'Rewrite.Rule "^\/GuestBook\.html$","/LoadMod.asp?plugins=GuestBookForPJBlog"
'Rewrite.Rule "^\/AboutMe\.html$","/LoadMod.asp?plugins=AboutMeForPJBlog"
'Rewrite.Rule "^\/tag_([^\.])*\.html$","/default.asp?tag=$1"

'**************************
'转换页面中存在的动态地址
'**************************
Rewrite.Src "(href=""[^\?]*)\?styleid=([0-9]+)","$1style_$2.shtml" '将页面里的地址转成伪静态格式的地址。
Set Rewrite = Nothing
％>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta http-equiv="Content-Language" content="UTF-8" />
<title>404错误</title>
<meta name="robots" content="all" />
<meta name="generator" content="editplus" />
<meta name="author" content="hayden@yeah.net,hayden" />
<meta name="Copyright" content="mysuc.com" />
<meta name="keywords" content="" />
<meta name="description" content="" />
<link rel="stylesheet" rev="stylesheet" href="" type="text/css" media="all" />
<style type="text/css">
</style>
<script type="text/javascript" src=""></script>
</head>
<body>
404错误，您所查看的页面已失效。
</body>

下面是cls_RewriteBase的源码：

<％
Class RewriteBase
'===========利用404错误伪静态类==========
'      Author:hayden
'      Copryright www.mysuc.com
'      Update: 2009-06-12
'===========================================
Dim WebUrl,regEx,IsTransfer,Char,pagehtml
Dim srt_sPattern,str_sContent
Private Sub class_initialize()
  Set regEx = New RegExp ' 建立正则表达式。
  regEx.IgnoreCase = True ' 设置是否区分大小写。
  regEx.Global = True ' 设置全局可用性。
  IsTransfer = False
  Char = "utf-8"
  GetUrl
  srt_sPattern = ""
  str_sContent = ""
end sub
'编码设置
Public Function Setchar(ByVal sChar)
  If Len(sChar)>0 Then Char = sChar
End Function

'debug 输出真实地址
Public Function ourl()
  Response.Status="200 OK"
  response.write WebUrl
  response.End
End Function
'正则处理伪静态
Public Function rule(ByVal sPattern,ByVal sContent)
  If IsTransfer Then Exit Function
  IsTransfer = ReSetUrl(sPattern,sContent)
End Function
'正则式处理
Public Function ReSetUrl(ByVal sPattern,ByVal sContent)
  ReSetUrl = False
  regEx.Pattern = sPattern ' 设置模式。
  If regEx.Test(WebUrl) Then
   WebUrl = regEx.Replace(WebUrl, sContent)
   ReSetUrl = True
  End If
End Function

'整理正则式页面链接规则
Public Function Src(ByVal sPattern,ByVal sContent)
  srt_sPattern = srt_sPattern & "|**|" & sPattern
  str_sContent = str_sContent & "|**|" & sContent
End Function

'正则式页面链接
Private Function reSrc(ByVal sPattern,ByVal sContent)
  regEx.Pattern = sPattern ' 设置模式。
  pagehtml = regEx.Replace(pagehtml, sContent)
End Function
'获取取目标URL地址的HTML代码
Private Function steal(ByVal src_)
  steal = ""
  If Not IsTransfer Then Exit Function
  dim Http
  set Http=server.createobject("MSXML2.XMLHTTP")
  Http.open "GET",src_ ,false
  Http.send()
  if Http.readystate<>4 then
   exit Function
  end if
  steal=BytesToBSTR(Http.responseBody)
  set http=nothing
  if err.number<>0 then err.Clear
end Function
'处理页面内容
Private Function checkpage()
  If Not IsTransfer Then Exit Function
  pagehtml = steal(WebUrl)
  Dim i
  Dim arr_sPattern,arr_sContent
  If Len(srt_sPattern)>0 And Len(str_sContent)>0 Then
   arr_sPattern = Split(srt_sPattern,"|**|")
   arr_sContent = Split(str_sContent,"|**|")
   For i = 1 To UBound(arr_sPattern)
    If Len(arr_sPattern(i))>0 Then reSrc arr_sPattern(i),arr_sContent(i)
   Next
  End If
End Function

'中文处理
Private Function BytesToBstr(ByVal sbody)
  dim objstream
  set objstream = Server.CreateObject("adodb.stream")
  objstream.Type = 1
  objstream.Mode =3
  objstream.Open
  objstream.Write sbody
  objstream.Position = 0
  objstream.Type = 2
  objstream.Charset = Char
  BytesToBstr = objstream.ReadText
  objstream.Close
  set objstream = nothing
End Function
'获取当前网址
Private Sub GetUrl()
  Dim strHostName,strScriptName,strSubUrl,strRequestItem
  strHostName = CStr(Request.ServerVariables("LOCAL_ADDR"))
  strScriptName = CStr(Request.ServerVariables("SCRIPT_NAME"))
  strSubUrl=""
  If Request.QueryString <> "" Then
   strScriptName = strScriptName & "?"
   For Each strRequestItem In Request.QueryString
    If InStr(strScriptName,strRequestItem) = 0 Then
     If strSubUrl = "" Then
      strSubUrl = strSubUrl & strRequestItem & "=" & Server.URLEncode(Request.QueryString("" & strRequestItem & ""))
     Else
      strSubUrl = strSubUrl &"&" & strRequestItem & "=" & Server.URLEncode(Request.QueryString("" & strRequestItem & ""))
     End If
    End If
   Next
  End If
  WebUrl = "http://" & strHostName & strScriptName & strSubUrl
End Sub
'建立跳转并关闭对象
Private Sub class_terminate()
  checkpage
  Set regEx = Nothing
  If IsTransfer Then
   response.write pagehtml
   response.End
  End If
end sub
End Class
％>

第一页上一页 1

投稿

404错误伪静态类封装class RewriteBase（2）

猜你喜欢