提取HTML代码中的文字的ASP实现

用ewebeditor编辑完成的内容存到数据库是html代码，有时候需要在主页显示前多少个字符用做预览。如果直接读取存到数据库的部分会含有html代码，这样就会显示错误。这个函数的功能就是读取html代码中间的文字内容，可以设定读取的前length个字符。还是比较有用的。
函数代码如下：

'**************************************************'函数名：distill'作 用：提取网页中的内容'参 数：content ---- 要提取的内容，length ---- 从开头数要提取的字符数'返回值：提取的内容'**************************************************function distill(content,length) ON ERROR RESUME NEXT dim isWord,okContent,i i=1 isWord=false content=replace(content," ","") do while len(okContent)<length if mid(content,i,1)<>"<" then isWord=true else i=i+1 do while mid(content,i,1)<>">" i=i+1 loop i=i+1 if mid(content,i,1)<>"<" then isWord=true else isWord=false end if end if if i>len(content) then distill=okContent exit function end if if isWord then okContent=okContent+mid(content,i,1) i=i+1 end if loop distill=okContent if err.number<>0 then err.clearend function