老蛇的博客-163cs

下面说一下如何从数据库里面 把有html代码的内容,传化成纯文本格式：（针对asp程序）

转化函数：

<%
Function LoseHtml(ContentStr)
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = "<\/*[^<>]*>"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
LoseHtml = ClsTempLoseStr
End function

%>

然后再把 过滤一下就可以了。。。

当然 <META name=description content=(把关键字写在这里) > 关键性的描述也不要太多，100-150个字就差不多了，再多百度也收录不了。。

实例：

====实例开始

<%
Function LoseHtml(ContentStr)
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = "<\/*[^<>]*>"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
LoseHtml = ClsTempLoseStr
End function

meta1=left(replace(LoseHtml(other)," "," "),100)  '直接转化成纯文本的

%>

<META name=description content="<%=matts%>" >

<META name=keywords content="建筑|建设|工程|招标|施工组织设计|秘书|<%=title%>" >

====实例结束

如些优化一下： 如页面：http://www.51jsms.com/smallclass1.asp?id=25063
里面的代码就出现了：
<title>2008年前历年线路搬迁下地工程竣工结算资料编制项目||建筑|建设|工程|招标|施工组织设计|秘书|</title>
<link href="images/font.css" rel="stylesheet" type="text/css">
<META  name=keywords  content="建筑|建设|工程|招标|施工组织设计|秘书|2008年前历年线路搬迁下地工程竣工结算资料编制项目" >
<META  name=description content=" 招 标 公 告 福建省招标中心受福州广播电视信息网络中心委托，对2008年前历年线路搬迁下地工程竣工结算资料编制项目进行竞争性谈判采购，现欢迎国内合格的报价人前来提交密封的报价。 1. 项目编号：F" >