在数据库里掉的数据如何换行和空格

用replace函数,不过要在数据输入数据库之前!
a=replace(a," "," ")

现在酷吧!
nei=replace(nei,"<","&lt;")
nei=replace(nei,">","&gt;")
nei=replace(nei,"'","<|>")
nei=replace(nei,vbCrLf,"<br>")
nei=replace(nei," ","&nbsp")


--------------------------------------------------------------------------------
大好男儿光争日月,精忠魂魂气壮山河!
happyyou
 
终级用户
积分:1269
发贴:332
来自:北京
注册:2000-08-03
  发表于 2001-03-19 17:06:51       
--------------------------------------------------------------------------------

下面的一段代码可以很好的解决也些这方面的问题
function htmlencode2(str)
dim result
dim l
if isNULL(str) then
htmlencode2=""
exit function
end if
l=len(str)
result=""
    dim i
    for i = 1 to l
     select case mid(str,i,1)
     case "<"
     result=result+"&lt;"
     case ">"
     result=result+"&gt;"
case chr(13)
     result=result+"<br>"
     case chr(34)
     result=result+"&quot;"
     case "&"
     result=result+"&amp;"
case chr(32)    
     'result=result+"&nbsp;"
     if i+1<=l and i-1>0 then
     if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then    
     result=result+"&nbsp;"
     else
     result=result+" "
     end if
     else
     result=result+"&nbsp;"    
     end if
     case chr(9)
     result=result+" "
     case else
     result=result+mid(str,i,1)
end select
next
htmlencode2=result
end function
%>


那你再用那个函数再倒着搞一次不就得了吗?

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值