ASP中Split 函數的一例

來源:互聯網
上載者:User
函數

  本例是一個資料庫查詢的例子,通過Split函數對查詢欄位進行了切割。用於想靈活控制查詢或開發更深層應用的一個例子。

<%
     Dim Conn
     Dim Rs
     Dim j
     Dim i
     Set Conn = Server.CreateObject("adodb.connection")
     Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("myweb\database\GuestBook.mdb")
     Set Rs = Server.CreateObject("Adodb.RecordSet")
     'StrSql="Select * From GuestBook" '等同於下句。
     StrSql=SplitText("Title Content"," ","Select "," From GuestBook",",")
     Rs.Open StrSql, Conn, 1, 3
     Call RsFieldShow("Title Content"," ","標題: 內容:","<br/> <br/>")
     'j=Rs.Fields.count
     'For i=0 to (j-1)
     ' Response.Write("第" & i+1 & "個欄位名:" & Rs.Fields(i).Name & "<br><br>")
     'Next
%>
<%
'ASP中把要查詢的欄位(Content)以字串形式傳遞,附有首碼(PreText)、尾碼(LastText)。
'要求前尾碼產生數組後,與查詢欄位的數目相同。
Sub RsFieldShow(Byval Content,Byval SplitMark,Byval PreText,Byval LastText)
On Error Resume Next
EveryString=Split(Content,SplitMark)'獲得字串數組,並賦值。
EveryPreText=Split(PreText,SplitMark)
EveryLastText=Split(LastText,SplitMark)
For i=LBound(EveryString) to UBound(EveryString)
Response.Write EveryPreText(i) & Rs(EveryString(i)) & EveryLastText(i) '輸出結果
Next
End Sub
'按照指定的格式輸出字串。
Function SplitText(Byval Content,Byval SplitMark,Byval PreText,Byval LastText,Byval SplitChar)
On Error Resume Next
Dim StrQ
StrQ=Split(Content,SplitMark) '獲得字串數組,並賦值。
For i=LBound(StrQ) to UBound(StrQ) '利用函數取得數組上限和下限。
SplitText=SplitText & StrQ(i) & SplitChar '進行組合
Next
SplitText=Left(SplitText,Len(SplitText)-1) '去掉最後一個符號。
SplitText=PreText & SplitText & LastText '加上前尾碼並返回。
End Function
%>

  你可以根據實際情況設定資料庫路徑、欄位查詢等。

  輸出結果:

  標題:ASP中Split 函數的一例
  內容:www.webjx.com越來越多的內容了!



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。