利用ASP的RegExp来做伪静态

＜%
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 %＞