我要从数据库里调用文章的前50个字符生成内容简介，可是因为输入进去是的HTML格式的，所以用left（）函数取值后有一些文章前面有很多空格，有的第一行没有几个字就换行了，严重影响了版面，请问有什么好的解决方法啊

输出前replace(title," ", " ")这样咯．．．会好看点．．

楼上的：你说的这句话 replace(title," ", " ")   用在什么地方？

replace(rs("title")," ", " ")
这样明白了吧

哦   早说呀！  哈哈 明白

可是还是有回车换行啊，而且有的地方开头是分标题，用<strong>或者是〈DIV〉标识了
不过还是谢谢你

[此贴子已经被作者于2007-1-24 16:49:19编辑过]

piaoxue告诉你的是替换函数,把换行替换掉就是了.打开原库(不是用程序而是直接进数据库,比如SQL用企业管理器)查看是什么东东在换行,把那个东东替换掉就是了.

是不是只有replace一个方法啊？
类似的函数还有哪些呢？

谢谢各位拉

Function FilterHTML(str,strlen)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"")
set re=Nothing
Dim l,t,c,i
l=Len(str)
t=0
For i=1 to l
c=Abs(Asc(Mid(str,i,1)))
If c>255 Then
t=t+2
Else
t=t+1
End If
If t>=strlen Then
cutStr=left(str,i)&"..."
Exit For
Else
cutStr=str
End If
Next
cutStr=Replace(cutStr,chr(10),"")
cutStr=Replace(cutStr,chr(13),"")
End Function
Function RemoveHTML( strText )
Dim nPos1
Dim nPos2

nPos1 = InStr(strText, "<")
Do While nPos1 > 0
nPos2 = InStr(nPos1 + 1, strText, ">")
If nPos2 > 0 Then
strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)
Else
Exit Do
End If
nPos1 = InStr(strText, "<")
Loop

RemoveHTML = strText
End Function