利用ASP的RegExp来做伪静态

最新推荐文章于 2025-12-03 14:18:00 发布

转载最新推荐文章于 2025-12-03 14:18:00 发布 · 308 阅读

文章标签：

#asp #server #string #query #regex #正则表达式

Asp 专栏收录该内容

20 篇文章

订阅专栏

本文介绍了一种使用正则表达式从URL中提取参数的方法，并通过一个简单的ASP示例展示了如何实现这一功能。该方法能够有效地从URL字符串中获取用户输入的文本。

＜%
2 Server_Name = Request.ServerVariables("SERVER_NAME")
3 Script_Name = Request.ServerVariables("SCRIPT_NAME")
4 Query_String = Request.ServerVariables("QUERY_STRING") ''这个是必须的。
5 %＞
6 ＜p＞你在“http://＜%=Server_Name&Script_Name%＞”后面加个“?”再加上任何文字，再加上“.html”，下面就显示你输入的文字。＜/p＞
7 ＜p＞例如：＜a href="http://＜%=Server_Name&Script_Name%＞/?测试.html"＞http://＜%=Server_Name&Script_Name%＞/?测试.html＜/a＞＜/p＞
8 ＜%
9 If Query_String ＜＞ Empty Then
10    NiShuRuDeWenZi = ReplaceText(Query_String,"(.*)(.html)","$1") ''利用RegExp提取关键字
11 %＞
12 ＜p＞你输入的文字是：＜%=NiShuRuDeWenZi%＞＜/p＞
13 ＜%
14 End If
15 %＞
16 ＜p＞利用RegExp提取关键字的最大好处就是可以同时提取多个关键字。＜/p＞
17 ＜p＞演示网站：＜a href="http://www.siryy.cn/" target="_blank"＞ http://www.siryy.cn/＜/a＞＜/p＞
18 ＜%
19 ''下面也是必须的代码
20 ''------------------------------↓RegExp代码↓------------------------------
21 Function ReplaceText(fString,patrn,replStr)
22    Set regEx = New RegExp ' 建立正则表达式。
23       regEx.Pattern = patrn ' 设置模式。
24       regEx.IgnoreCase = True ' 设置是否区分大小写。
25       regEx.Global = True ' 设置全局可用性。
26       ReplaceText = regEx.Replace(""&fString&"",""&replStr&"") ' 作替换。
27    Set regEx = nothing
28 End Function
29 ''------------------------------↑RegExp代码↑------------------------------
30 %＞