·您的位置: 首页 » 资源教程 » 编程开发 » ASP » ASP中SPLIT 函数的一例

ASP中SPLIT 函数的一例

类别: ASP教程  评论数:0 总得分:0
本例是一个数据库查询的例子,通过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("mywebdatabaseGuestBook.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
%>

  你可以根据实际情况配置数据库路径、字段查询等。
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1