asp在读取数据库时,如何让数据库里备注型的字段只显示文字不显示图片?
说明:content字段(备注型)里包含文字和图片(这些文字和图片是用Editor编辑器写入的)我想在读取content字段时只显示前100个文字,不显示图片?请高手帮忙...
说明:content字段(备注型)里包含文字和图片(这些文字和图片是用Editor编辑器写入的)我想在读取content字段时只显示前100个文字,不显示图片?请高手帮忙!帮忙附上代码!谢谢!
展开
展开全部
先将内容读取到ASP变量
Dim Content,Content1,Content2
Content=Rs("content") '读取数据到变量
Content1=LoseHtml(Content) '过滤掉了HTML代码
If Len(Content1)>100 Then
Content2=Left(Content1,100) '取前100个字符
Else
Content2=Content1
End If
'去HTML的函数
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
Dim Content,Content1,Content2
Content=Rs("content") '读取数据到变量
Content1=LoseHtml(Content) '过滤掉了HTML代码
If Len(Content1)>100 Then
Content2=Left(Content1,100) '取前100个字符
Else
Content2=Content1
End If
'去HTML的函数
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
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
TableDI
2024-07-18 广告
作为上海悉息信息科技有限公司的工作人员，我们可以采用以下方法来匹配两个Excel表格中的数据：1. **使用VLOOKUP函数**：在目标单元格中输入VLOOKUP函数，并设置正确的参数，包括要查找的值、查找区域、返回值的列号和是否启用近似...
点击进入详情页
本回答由TableDI提供
展开全部
mystr=cstr(rs(content))
if mystr.length>100 then
mystr=substr(mystr,0,100)
end if
由于很久没有接触asp了
以上是乱写的!需要自己取加工!
思路:
取出content字段的值,通过cstr转换成字符串
如果转换后的字符串超过100就通过sbustr取前100个,不足100个就直接全部显示
注:substr取子串
substr(mystr,0,100)表示从mystr的第一个字符开始取,取100个字符
if mystr.length>100 then
mystr=substr(mystr,0,100)
end if
由于很久没有接触asp了
以上是乱写的!需要自己取加工!
思路:
取出content字段的值,通过cstr转换成字符串
如果转换后的字符串超过100就通过sbustr取前100个,不足100个就直接全部显示
注:substr取子串
substr(mystr,0,100)表示从mystr的第一个字符开始取,取100个字符
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
