復(fù)制代碼 代碼如下:
Dim re
Set re = new RegExp '創(chuàng)建RegExp實(shí)例
re.Pattern = "ab+c" '定義正則表達(dá)式文字，你可以在這里替換正則表達(dá)式
Dim myString
myString = "abcefg" '定義要匹配的字符串，可以進(jìn)行替換
Response.write(re.Execute(myString)(0)) '進(jìn)行匹配測(cè)試，并寫出結(jié)果
復(fù)制代碼 代碼如下:
%
Dim re
Set re = new RegExp '創(chuàng)建RegExp實(shí)例
re.Pattern = "\w+" '定義正則表達(dá)式文字
Dim myString
myString = "VBScript version 5.6 provides many new features."
'進(jìn)行匹配測(cè)試，并寫出是否匹配成功
If re.Test(myString) Then
Response.write("匹配成功！")
Else
Response.write("匹配不成功！")
End If
%>
復(fù)制代碼 代碼如下:
%
Dim re
Set re = new RegExp '創(chuàng)建RegExp實(shí)例
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實(shí)例
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實(shí)例
re.Global = True
re.Pattern = "(\w+)-(\w+)" '定義正則表達(dá)式模式文字
Dim myString
myString = "flip-flop"
myString = re.replace(myString, "$1-$2")
'$1表示第一個(gè)\w+，$2表示第二個(gè)\w+，第一個(gè)\w+匹配flip，第二個(gè)\w+匹配flop，
'所以$1-$2相當(dāng)于flip-flop
'寫出結(jié)果
Response.write(myString)
%>
復(fù)制代碼 代碼如下:
%
Dim re
Set re = new RegExp '創(chuàng)建RegExp實(shí)例
re.Global = True
re.Pattern = "(\S+)(\s+)(\S+)" '定義正則表達(dá)式模式文字
Dim myString
myString = "flip flop"
myString = re.replace(myString, "$3$2$1")
'$1表示第一個(gè)\S+，$3表示第二個(gè)\S+，$2表示\s+，
'所以$3$2$1相當(dāng)于flop flip
'寫出結(jié)果
Response.write(myString)
%>
復(fù)制代碼 代碼如下:
%
Dim re
Set re = new RegExp '創(chuàng)建RegExp實(shí)例
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)行匹配測(cè)試，并寫出結(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實(shí)例
'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)行匹配測(cè)試，并寫出結(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)建一個(gè)連接，并且創(chuàng)建一個(gè)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)建一個(gè)SQL CREATE TABLE語(yǔ)句
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
%>
您可能感興趣的文章:- ASP中過濾UBB和Html標(biāo)簽
- HTML標(biāo)簽及ASP函數(shù)速查表
- ASP.NET使用正則表達(dá)式屏蔽垃圾信息
- ASP正則表達(dá)式技巧
- ASP 正則表達(dá)式常用的幾種方法(execute、test、replace)
- ASP超級(jí)鏈接和HTML函數(shù)正則表達(dá)式 修正版
- asp 使用正則表達(dá)式替換word中的標(biāo)簽，轉(zhuǎn)為純文本
- asp.net正則表達(dá)式刪除指定的HTML標(biāo)簽的代碼
- asp的RegExp對(duì)象正則表達(dá)式功能用法[比較全]
- 正則表達(dá)式速查表（ASP.NET）
- asp自動(dòng)補(bǔ)全html標(biāo)簽自動(dòng)閉合(正則表達(dá)式)
- ASP正則表達(dá)式清除HTML指定標(biāo)簽的方法
