這篇文章是本人發現的關於asp下正規表示式使用詳解說明的文章，推薦大家看。複製代碼代碼如下:
Dim re
Set re = new RegExp '建立RegExp實例
re.Pattern = ab+c '定義正規表示式文字，你可以在這裡取代正規表示式
Dim myString
myString = abcefg '定義要匹配的字串，可以進行替換
Response.write(re.Execute(myString)(0)) '進行配對測試，並寫出結果
複製代碼代碼如下:
<%
Dim re
Set re = new RegExp '建立RegExp實例
re.Pattern = /w+ '定義正規表示式文字
Dim myString
myString = VBScript version 5.6 provides many new features.
'進行匹配測試，並寫出是否匹配成功
If re.Test(myString) Then
Response.write(匹配成功！)
Else
Response.write(匹配不成功！)
End If
%>
複製代碼代碼如下:
<%
Dim re
Set re = new RegExp '建立RegExp實例
re.Pattern = /s '定義正規表示式文字，這裡是符合空白
Dim myString
myString = VBScript version 5.6 provides many new features.
myString = re.replace(myString, -) '用-替換空白，傳回替換後的字串
'寫出結果
Response.write(myString)
%>
複製代碼代碼如下:
<%
Dim re
Set re = new RegExp '建立RegExp實例
re.Global = True
re.Pattern = /s '定義正規表示式文字，這裡是符合空白
Dim myString
myString = VBScript version 5.6 provides many new features.
myString = re.replace(myString, -) '用-替換空白，傳回替換後的字串
'寫出結果
Response.write(myString)
%>
複製代碼代碼如下:
<%
Dim re
Set re = new RegExp '建立RegExp實例
re.Global = True
re.Pattern = (/w+)-(/w+) '定義正規表示式模式文字
Dim myString
myString = flip-flop
myString = re.replace(myString, $1-$2)
'$1表示第一個/w+，$2表示第二個/w+，第一個/w+匹配flip，第二個/w+匹配flop，
'所以$1-$2相當於flip-flop
'寫出結果
Response.write(myString)
%>
複製代碼代碼如下:
<%
Dim re
Set re = new RegExp '建立RegExp實例
re.Global = True
re.Pattern = (/S+)(/s+)(/S+) '定義正規表示式模式文字
Dim myString
myString = flip flop
myString = re.replace(myString, $3$2$1)
'$1表示第一個/S+，$3表示第二個/S+，$2表示/s+，
'所以$3$2$1相當於flop flip
'寫出結果
Response.write(myString)
%>
複製代碼代碼如下:
<%
Dim re
Set re = new RegExp '建立RegExp實例
re.Global = True
re.Pattern = /w+ '定義正規表示式模式文字
Dim myString
myString = VBScript version 5.6 provides many new features.
Set Matches = re.Execute(myString) '執行搜索，該集合用來保存匹配的結果
'進行配對測試，並寫出結果
'迭代Matches集合
For Each Match in Matches
'寫出結果
Response.write(Match.FirstIndex & - & (Match.FirstIndex + Match.Length) & & Match.Value & <br />)
Next
%>
複製代碼代碼如下:
<%
Dim re
Set re = new RegExp '建立RegExp實例
're.Global = True 註解掉這一行
re.Pattern = /w+ '定義正規表示式模式文字
Dim myString
myString = VBScript version 5.6 provides many new features.
Set Matches = re.Execute(myString) '執行搜索，該集合用來保存匹配的結果
'進行配對測試，並寫出結果
'迭代Matches集合
For Each Match in Matches
'寫出結果
Response.write(Match.FirstIndex & - & (Match.FirstIndex + Match.Length) & & Match.Value & <br />)
Next
%>
複製代碼代碼如下:
<%@language=vbscript codepage=65001%>
<%
'建立一個連接，並且建立一個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
'這裡建立一個SQL CREATE TABLE語句
Set oCmd.ActiveConnection = oConn
oCmd.CommandText = CREATE TABLE NewEmployees(firstName nvarchar (50),lastName nvarchar (50),EmpType nvarchar (50))
'執行建立資料表操作
oCmd.Execute
Response.Write(操作成功！)
%>
<%
'明確的關閉連接
oConn.Close
Set oConn = Nothing
%>