各位大虾，请教个问题：
我这有一组代码，是显示在数据库中的，我从数据库中读出并想显示在文本框中，但是有这样一些代码，怎么能既能正常显示
又能显示有限字数如：10个字符呢？
代码如下：&lt;DIV align=center&gt;&lt;B&gt;成为普铭威员工所具备的基本素养&lt;/B&gt;&lt;B&gt;&lt;/B&gt;&lt;/DIV&gt;<br>&lt;DIV&gt;&amp;nbsp;&lt;/DIV&gt;<br>&lt;DIV&gt;一、普铭威人才基本标准： 忠诚、勤奋、创新、团队精神&lt;/DIV

把那些代码都去除了呢？谢谢啊！

<%
dim str
str="&lt;DIV align=center&gt;&lt;B&gt;成为普铭威员工所具备的基本素养&lt;/B&gt;&lt;B&gt;&lt;/B&gt;&lt;/DIV&gt;<br>&lt;DIV&gt;&nbsp;&lt;/DIV&gt;<br>&lt;DIV&gt;一、普铭威人才基本标准： 忠诚、勤奋、创新、团队精神&lt;/DIV&gt; "
if instr(str,"&lt;")>0 then
str =replace(str,"&lt;","<")
elseif instr(str,"&gt;")>0 then
str =replace(str,"&gt;",">")
end if
//response.write str &VbCrlf
response.write leftb(str,10)
%>
不知道楼主是这个意思吗？

哦，不好意思，错了是这样的过程：
1.获取内容：rs("content")
2.在文本框内显示：<input name="1" value="<%=rs("content")%>"
3.当前显示在文本框的内容如下：【DIV align=center&gt;&lt;B&gt;成为普铭威员工所具备的基本素养&lt;/B&gt; &lt;B&gt;&lt;/B&gt;&lt;/DIV&gt;<br>&lt; DIV&gt; &lt】
4.希望显示在文本框的结果和字数：【成为普铭威员工所具备】
目的就是把这些多余的字符滤掉该怎么去做，才能达到期望的效果？
请帮忙，谢谢！

用replace把前面的内容替换，再用left函数应该可以实现的

用正则表达式一次搞定：
'========获取ＨＴＭＬ中的汉字======
Public Function GetTextFromHtml(strHtml)

        Dim strPatrn

            strpatrn="<.*?>"

        Dim regEx

        Set regEx = New RegExp

        regEx.Pattern = strPatrn

        regEx.IgnoreCase = True

        regEx.Global = True

        GetTextFromHtml = regEx.Replace(strHtml,"")

End Function

'========获取ＨＴＭＬ中的汉字======

正则掌握的不好，学习

[quote]原帖由 [bold][underline]gdk2006[/underline][/bold] 于 2008-1-7 12:15 发表 [url=http://bbs.][/url]
用正则表达式一次搞定：
非常感谢你的答复，但是还有些代码没有滤掉，该怎么办啊？
请指教！
谢谢。代码样本如下：
<%=left(GetTextFromHtml(aa),20)%>
结果：<FONT size=2>为普铭威员工所具备的基<P align=center><STRO
多了很多这样的代码没有略过。