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