第1个回答 2008-09-19
<%=nohtml(left(rs("xx"),34))%>
function nohtml(str)
if trim(str)<>"" then
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(<.+?>)"
str=re.replace(str,"")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
str=replace(str," ","")
str = replace(str, " ", "")
str = Replace(str, CHR(32), "")
str = Replace(str, CHR(9), "")
str = Replace(str, CHR(34), "")
str = Replace(str, CHR(39), "")
str = Replace(str, CHR(13), "")
str = Replace(str, CHR(255), "")
str = Replace(str, CHR(10), "")
str = Replace(str, CHR(11), "")
str = Replace(str, CHR(12), "")
nohtml=str
set re=nothing
end if
end function
加上这个函数
第3个回答 2008-09-19
<%=left(replace(rs("xx")," ","")),34)%>