请问各个大虾,.我在用 <%if len(trim(rs("content")))>150 then response.write(left(trim(rs("content")),150)&"......>>><a href='goto.asp?id="&rs("id")&"' style='color:#628CA6;'>查看全文</a>") else response.write(rs("content")) end if%>
函数时遇到图片该怎么办?
最新回答
陪你到世界的终结
2024-10-23 17:22:45
先用下面的这个函数去掉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