asp正則表達式使用詳解
更新時間：2011年03月08日 00:03:05 作者：
這篇文章是本人發(fā)現(xiàn)的關于asp下正則表達式使用詳解說明的文章，推薦大家看下。
復制代碼 代碼如下:
Dim re
Set re = new RegExp '創(chuàng)建RegExp實例
re.Pattern = "ab+c" '定義正則表達式文字，你可以在這里替換正則表達式
Dim myString
myString = "abcefg" '定義要匹配的字符串，可以進行替換
Response.write(re.Execute(myString)(0)) '進行匹配測試，并寫出結果
復制代碼 代碼如下:
<%
Dim re
Set re = new RegExp '創(chuàng)建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 '創(chuàng)建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 '創(chuàng)建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 '創(chuàng)建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 '創(chuàng)建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 '創(chuàng)建RegExp實例
re.Global = True
re.Pattern = "\w+" '定義正則表達式模式文字
Dim myString
myString = "VBScript version 5.6 provides many new features."
Set Matches = re.Execute(myString) '執(zhí)行搜索，該集合用來保存匹配的結果
'進行匹配測試，并寫出結果
'迭代Matches集合
For Each Match in Matches
'寫出結果
Response.write(Match.FirstIndex & "-" & (Match.FirstIndex + Match.Length) & " " & Match.Value & "<br />")
Next
%>
復制代碼 代碼如下:
<%
Dim re
Set re = new RegExp '創(chuàng)建RegExp實例
're.Global = True 注釋掉這一行
re.Pattern = "\w+" '定義正則表達式模式文字
Dim myString
myString = "VBScript version 5.6 provides many new features."
Set Matches = re.Execute(myString) '執(zhí)行搜索，該集合用來保存匹配的結果
'進行匹配測試，并寫出結果
'迭代Matches集合
For Each Match in Matches
'寫出結果
Response.write(Match.FirstIndex & "-" & (Match.FirstIndex + Match.Length) & " " & Match.Value & "<br />")
Next
%>
復制代碼 代碼如下:
<%@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("操作成功！")
%>
<%
'顯式的關閉連接
oConn.Close
Set oConn = Nothing
%>
相關文章
asp中利用CSW中文分詞組件來實現(xiàn)自己網(wǎng)站的內(nèi)容關鍵詞自動提取
asp中利用CSW中文分詞組件來實現(xiàn)自己網(wǎng)站的內(nèi)容關鍵詞自動提取...2007-03-03
隨機提取Access/SqlServer數(shù)據(jù)庫中的10條記錄的SQL語句
隨機提取Access/SqlServer數(shù)據(jù)庫中的10條記錄的SQL語句...2006-07-07
讓 Asp 與 XML 交互...2006-08-08
asp類加存儲過程分頁方法，查詢使用非常方便 new 一個類，加幾個參數(shù)，就可以分頁顯示、多條件查詢、多個字段排序等功能、連表查詢等，一氣呵成！2008-12-12
以下僅提供相關思路和關鍵代碼，并且只提供一種最簡單的算法實現(xiàn)，稍復雜的本文不做介紹。2009-05-05
做文章系統(tǒng)時, 如何讓長篇的文章自動換行...2006-09-09
asp獲取當前網(wǎng)址，或獲取當前頁面的所以參數(shù)2008-06-06
ASP的Server.MapPath()不同參數(shù)返回路徑總結
這篇文章主要介紹了ASP的Server.MapPath()不同參數(shù)返回路徑總結,也就是在Server.MapPath()中填入絕對路徑、相對路徑等情況的返回值總結,需要的朋友可以參考下2014-07-07
asp中用數(shù)據(jù)庫生成不重復的流水號的實現(xiàn)代碼，需要的朋友可以參考下實現(xiàn)原理其它程序一樣。2006-09-09
LINE9的目錄瀏覽源程序...2006-08-08