我从编辑器里用left 截取一段文字. 发现居然把里面的标签截取了一半,
哪位大哥帮我想个办法,能把标签给去掉.

怎么替换?
有N 多的标签啊!

我试下 谢谢

这个是不是转换好了以后在存数据库?

我想要的是在数据库提取吃来的转换.

我也不知道为什么, 第一次提交的时候是没有问题的,

但是修改的时候就出现问题了. 因为在编辑框中就出现了标签..

解决了 谢谢

后台不做处理
在前台转换下

<%
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"&lt;"
case ">" : result=result+"&gt;"
case chr(34) : result=result+"&quot;"
case "&" : result=result+"&amp;"
case chr(13) : result=result+"<br>"
case chr(9) : result=result+"&nbsp; &nbsp; "
case chr(32) : result=result+"&nbsp;"
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function
%>

用这个字定义函数 就可以了