asp 去除字段内的 html代码并截取只显示前100个字符
我要调用一个字段的内容,但是要去除里面的html代码,我用下面的方式哪里错了,服务器提示错误:...
我要调用一个字段的内容,但是要去除里面的html代码,我用下面的方式哪里错了,服务器提示错误:
展开
2个回答
展开全部
你没把代码发完整啊,提示错误也没有说是什么错误?
这个正则没有问题,我怀疑是你前面的错误,如果前面的变量没有,你调用就是错的
这个正则没有问题,我怀疑是你前面的错误,如果前面的变量没有,你调用就是错的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
哎....
1. 把这段代码领存为一个文件,比如叫a.asp放在和你这个页面的同一级目录下
<%
'去除html标记
Function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="<[^<>]*>"
str=re.replace(str,"")
nohtml=str
End Function
Function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then exit for
next
if i < l then
gotTopic=left(str,i) & "..."
else
gotTopic=str
end if
'gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<")
End Function
%>
2. 然后你的这个显示页面包含一这个文件
<!--#include file="a.asp"-->
3. 再然后
把你页面上的<%function ....%>删了
1. 把这段代码领存为一个文件,比如叫a.asp放在和你这个页面的同一级目录下
<%
'去除html标记
Function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="<[^<>]*>"
str=re.replace(str,"")
nohtml=str
End Function
Function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then exit for
next
if i < l then
gotTopic=left(str,i) & "..."
else
gotTopic=str
end if
'gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<")
End Function
%>
2. 然后你的这个显示页面包含一这个文件
<!--#include file="a.asp"-->
3. 再然后
把你页面上的<%function ....%>删了
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询