一大片文字,取它的前一段.

Function text1(fString1)'选取段落函数
  num=2 '定义显示几段
  If Not IsNull(fString1) Then
     str=split(fString1,chr(13))
     for i=0 to num
     fString=fString&str(i)&"<br>"
     next
     text1 = fString
  End If
End Function

在显示调用这个函数即可 如: text1(显示的文字)

一个字也没改,按你这程序,结果是全部数据都出来了
是哪里出错了吗>

你保存在数据库里面的文字采用的应该是HTML格式吧！我想可能用split函数做分离的时候就不应该用回车符做分隔符了。