【下一篇】 【上一篇】
0

404伪静态函数类

作者：情留メ蚊子  发表于：2009年06月10日 22:18  分类：技术文档  2905 次阅读 

  1. <% 
  2. '404伪静态专用函数类
  3.  
  4. Class Html404 
  5. private regUrl, url 
  6. '作用:获取协议
  7.  
  8. Public Property Get Pertrol() 
  9.     Pertrol = searchStr(2) 
  10. End Property 
  11. '作用:获取域名
  12.  
  13. Public Property Get Domain() 
  14.     Domain = searchStr(4) 
  15. End Property 
  16. '作用:获取端口
  17.  
  18. Public Property Get Port() 
  19.     Port = searchStr(6) 
  20. End Property 
  21. '作用:获取路径
  22.  
  23. Public Property Get Path() 
  24.     Path = searchStr(9) 
  25. End Property 
  26. '作用:获取参数
  27.  
  28. Public Property Get Strings() 
  29.     Strings = searchStr(11) 
  30. End Property 
  31. '作用:获取文件名
  32.  
  33. Public Property Get fname() 
  34.     Dim bAry 
  35.     If Instr(searchStr(9),"/") > 0 Then 
  36.         bAry = Split(searchStr(9),"/") 
  37.         fname = bAry(ubound(bAry)) 
  38.     Else 
  39.         fname = searchStr(9) 
  40.     End If 
  41. End Property 
  42. Private Sub Class_Initialize() 
  43.     regUrl = "((http|ftp|https)\:\/\/)(([^\s\:\?\/]+)(\:([\d]+))?(\/(([^\s\?]+)?(\?([^\s]+))?)?)?)?" 
  44.     url = Split(Request.QueryString,";")(1) 
  45. End Sub 
  46. Private Sub Class_Terminate() 
  47. End Sub 
  48. Private Function searchStr(index) 
  49.     Dim objRegExp 
  50.     Set objRegExp=  New RegExp 
  51.     objRegExp.IgnoreCase = True 
  52.     objRegExp.Global = True 
  53.     objRegExp.Pattern = regUrl 
  54.     searchStr = objRegExp.Replace(url, "$" & index) 
  55.     Set objRegExp = Nothing 
  56. End Function 
  57. '作用:匹配正则，返回匹配替换后的url
  58.  
  59. '参数:source,要搜索的字串；regFrom,要匹配的正则；regTo,要替换匹配内容的字串
  60.  
  61. Public Function isAPI(byval source,ByVal regFrom,byval regTo) 
  62.     Dim objRegExp, Match, Matches 
  63.     Set objRegExp = New RegExp 
  64.     Dim str: str = source 
  65.     objRegExp.IgnoreCase = True 
  66.     objRegExp.Global = True 
  67.     objRegExp.Pattern = regFrom 
  68.     str = objRegExp.Replace(str, regTo) 
  69.     Set objRegExp = Nothing 
  70.     isAPI = str 
  71. End Function 
  72. '作用:获取参数
  73.  
  74. Function getString(index) 
  75.     Dim str 
  76.     str = Split(fname,".")(0) 
  77.     If Instr(str,"_") > 0 Then 
  78.         getString = Split(str,"_")(index) 
  79.     Else 
  80.         getString = "" 
  81.     End If 
  82. End Function 
  83. '作用:获取参数个数，参数是以_来分隔的
  84.  
  85. Function vCount() 
  86.     Dim str 
  87.     str = Split(fname,".")(0) 
  88.     If Instr(str,"_") > 0 Then 
  89.         vCount  = ubound(Split(str,"_")) 
  90.     Else 
  91.         vCount = 0 
  92.     End If 
  93. End Function 
  94. '作用:错误后跳转到url
  95.  
  96. Public Function Redir(url,Desc) 
  97.     Response.write&"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"&vbcrlf & _ 
  98.                 "<html xmlns=""http://www.w3.org/1999/xhtml"" xml:lang=""zh-cn"" lang=""zh-cn"">"&vbcrlf & _ 
  99.                 " <head>"&vbcrlf & _ 
  100.                 "     <meta http-equiv=""Content-Type"" content=""text/html; charset=UTF8"" />"&vbcrlf & _ 
  101.                 "     <meta http-equiv=""Refresh"" content=""3;URL=" & url & """ />"&vbcrlf & _ 
  102.                 "     <title>请稍候,转向中...</title>"&vbcrlf & _ 
  103.                 " </head>"&vbcrlf & _ 
  104.                 " <body>" & Desc & ":3秒后转向" & url & "...</body></html>"&vbcrlf 
  105. End Function 
  106. End Class 
  107. %> 

 

本文固定链接: http://www.94qing.com/technology/404-Class/ | 情留メ蚊子's Blog

作者: 情留メ蚊子
该日志由 情留メ蚊子 于2009年06月10日发表在技术文档分类下， 你可以发表评论，并 在保留原文地址及作者的情况下引用到你的网站或博客。
原创文章转载请注明: 404伪静态函数类 | 情留メ蚊子's Blog
关键词：, ,

您可能还会对这些文章感兴趣！

  1. 静态分页函数（原创）
  2. ASP解析JSON
  3. ASP整合UCenter API ASP For UCenter 增加演示
  4. 2003系统IIS设置404错误页后无效解决方法
  5. 检查图片文件是否合法
  6. ASP学习之Split函数
  7. ASP中模拟PHP的关联数组

404伪静态函数类：目前有0 条评论

    给我评论

    看不清？点击更换

    快捷键：Ctrl+Enter
    Copyright © 2007-2011 情留メ蚊子s Blog. All Rights Reserved . Design by Weisay
    粤ICP备08119471号 | MQBlog | RSS