快捷導(dǎo)航

asp正則表達(dá)式使用詳解

更新時間：2011年03月08日 00:03:05 作者：

這篇文章是本人發(fā)現(xiàn)的關(guān)于asp下正則表達(dá)式使用詳解說明的文章，推薦大家看下。

 
Dim re 
Set re = new RegExp '創(chuàng)建RegExp實例 
re.Pattern = "ab+c" '定義正則表達(dá)式文字，你可以在這里替換正則表達(dá)式 
Dim myString 
myString = "abcefg" '定義要匹配的字符串，可以進(jìn)行替換 
Response.write(re.Execute(myString)(0)) '進(jìn)行匹配測試，并寫出結(jié)果 

復(fù)制代碼代碼如下:

 
<% 
Dim re 
Set re = new RegExp '創(chuàng)建RegExp實例 
re.Pattern = "\w+" '定義正則表達(dá)式文字 
Dim myString 
myString = "VBScript version 5.6 provides many new features." 
'進(jìn)行匹配測試，并寫出是否匹配成功 
If re.Test(myString) Then 
Response.write("匹配成功！") 
Else 
Response.write("匹配不成功！") 
End If 
%> 

復(fù)制代碼代碼如下:

 
<% 
Dim re 
Set re = new RegExp '創(chuàng)建RegExp實例 
re.Pattern = "\s" '定義正則表達(dá)式文字，這里是匹配空白 
Dim myString 
myString = "VBScript version 5.6 provides many new features." 
myString = re.replace(myString, "-") '用-替換空白，返回替換后的字符串 
'寫出結(jié)果 
Response.write(myString) 
%> 

復(fù)制代碼代碼如下:

 
<% 
Dim re 
Set re = new RegExp '創(chuàng)建RegExp實例 
re.Global = True 
re.Pattern = "\s" '定義正則表達(dá)式文字，這里是匹配空白 
Dim myString 
myString = "VBScript version 5.6 provides many new features." 
myString = re.replace(myString, "-") '用-替換空白，返回替換后的字符串 
'寫出結(jié)果 
Response.write(myString) 
%> 

復(fù)制代碼代碼如下:

 
<% 
Dim re 
Set re = new RegExp '創(chuàng)建RegExp實例 
re.Global = True 
re.Pattern = "(\w+)-(\w+)" '定義正則表達(dá)式模式文字 
Dim myString 
myString = "flip-flop" 
myString = re.replace(myString, "$1-$2") 
'$1表示第一個\w+，$2表示第二個\w+，第一個\w+匹配flip，第二個\w+匹配flop， 
'所以$1-$2相當(dāng)于flip-flop 
'寫出結(jié)果 
Response.write(myString) 
%> 

復(fù)制代碼代碼如下:

 
<% 
Dim re 
Set re = new RegExp '創(chuàng)建RegExp實例 
re.Global = True 
re.Pattern = "(\S+)(\s+)(\S+)" '定義正則表達(dá)式模式文字 
Dim myString 
myString = "flip flop" 
myString = re.replace(myString, "$3$2$1") 
'$1表示第一個\S+，$3表示第二個\S+，$2表示\s+， 
'所以$3$2$1相當(dāng)于flop flip 
'寫出結(jié)果 
Response.write(myString) 
%> 

復(fù)制代碼代碼如下:

 
<% 
Dim re 
Set re = new RegExp '創(chuàng)建RegExp實例 
re.Global = True 
re.Pattern = "\w+" '定義正則表達(dá)式模式文字 
Dim myString 
myString = "VBScript version 5.6 provides many new features." 
Set Matches = re.Execute(myString) '執(zhí)行搜索，該集合用來保存匹配的結(jié)果 
'進(jìn)行匹配測試，并寫出結(jié)果 
'迭代Matches集合 
For Each Match in Matches 
'寫出結(jié)果 
Response.write(Match.FirstIndex & "-" & (Match.FirstIndex + Match.Length) & " " & Match.Value & "<br />") 
Next 
%> 

復(fù)制代碼代碼如下:

 
<% 
Dim re 
Set re = new RegExp '創(chuàng)建RegExp實例 
're.Global = True 注釋掉這一行 
re.Pattern = "\w+" '定義正則表達(dá)式模式文字 
Dim myString 
myString = "VBScript version 5.6 provides many new features." 
Set Matches = re.Execute(myString) '執(zhí)行搜索，該集合用來保存匹配的結(jié)果 
'進(jìn)行匹配測試，并寫出結(jié)果 
'迭代Matches集合 
For Each Match in Matches 
'寫出結(jié)果 
Response.write(Match.FirstIndex & "-" & (Match.FirstIndex + Match.Length) & " " & Match.Value & "<br />") 
Next 
%> 

復(fù)制代碼代碼如下:

 
<%@language="vbscript" codepage="65001"%> 
<% 
'創(chuàng)建一個連接，并且創(chuàng)建一個ADODB.Command用于操作 
Dim oCmd,oConn 
Set oConn = Server.CreateObject("ADODB.Connection") 
Set oCmd = Server.CreateObject("ADODB.Command") 
oConn.ConnectionString = "Provider=SQLOLEDB;server = myhost;Initial Catalog = myDatabase;UID=sa;PWD=verysecret;" 
oConn.Open 
'這里創(chuàng)建一個SQL CREATE TABLE語句 
Set oCmd.ActiveConnection = oConn 
oCmd.CommandText = "CREATE TABLE NewEmployees(firstName nvarchar (50),lastName nvarchar (50),EmpType nvarchar (50))" 
'執(zhí)行創(chuàng)建數(shù)據(jù)表操作 
oCmd.Execute 
Response.Write("操作成功！") 
%> 
<% 
'顯式的關(guān)閉連接 
oConn.Close 
Set oConn = Nothing 
%> 