|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)函数 本例是一个数据库查询的例子,经由过程Split函数对查询字段举行了切割。用于想天真把持查询或开辟更深层使用的一个例子。
<%
DimConn
DimRs
Dimj
Dimi
SetConn=Server.CreateObject("adodb.connection")
Conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&Server.MapPath("mywebdatabaseGuestBook.mdb")
SetRs=Server.CreateObject("Adodb.RecordSet")
StrSql="Select*FromGuestBook"同等于下句。
StrSql=SplitText("TitleContent","","Select","FromGuestBook",",")
Rs.OpenStrSql,Conn,1,3
CallRsFieldShow("TitleContent","","题目:内容:","<br/><br/>")
j=Rs.Fields.count
Fori=0to(j-1)
Response.Write("第"&i+1&"个字段名:"&Rs.Fields(i).Name&"<br><br>")
Next
%>
<%
ASP中把要查询的字段(Content)以字符串情势传送,附有前缀(PreText)、后缀(LastText)。
请求前后缀发生数组后,与查询字段的数量不异。
SubRsFieldShow(ByvalContent,ByvalSplitMark,ByvalPreText,ByvalLastText)
OnErrorResumeNext
EveryString=Split(Content,SplitMark)取得字符串数组,并赋值。
EveryPreText=Split(PreText,SplitMark)
EveryLastText=Split(LastText,SplitMark)
Fori=LBound(EveryString)toUBound(EveryString)
Response.WriteEveryPreText(i)&Rs(EveryString(i))&EveryLastText(i)输入了局
Next
EndSub
依照指定的格局输入字符串。
FunctionSplitText(ByvalContent,ByvalSplitMark,ByvalPreText,ByvalLastText,ByvalSplitChar)
OnErrorResumeNext
DimStrQ
StrQ=Split(Content,SplitMark)取得字符串数组,并赋值。
Fori=LBound(StrQ)toUBound(StrQ)使用函数获得数组下限和上限。
SplitText=SplitText&StrQ(i)&SplitChar举行组合
Next
SplitText=Left(SplitText,Len(SplitText)-1)往失落最初一个标记。
SplitText=PreText&SplitText&LastText加上前后缀并前往。
EndFunction
%>
你能够依据实践情形设置数据库路径、字段查询等。
输入了局:
题目:ASP中Split函数的一例
内容:www.webjx.com愈来愈多的内容了!
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |
|