怎样把从数据库里读出来的文本里的html代码去掉?

jervis82 2004-04-09 08:20:23
如题.
...全文
70 点赞 收藏 18
写回复
18 条回复
切换为时间正序
请发表友善的回复…
发表回复
xxrl 2004-04-13
偶靠 都揭帖了啊
回复
chinalinx 2004-04-11
保存为CHAR.inc文件
<%
function htmlencode(str)
dim result
if isNULL(str) then
htmlencode=""
exit function
end if
result=str
result = replace(result, "&", "&")
result = replace(result, ">", ">")
result = replace(result, "<", "<")
result = replace(result, chr(34),""")
result = replace(result,chr(32)," ",1)
result = replace(result, chr(13)&chr(10), "<BR>",1)
HTMLEncode = result
end function

function HTMLDecode(str)
dim result
if isNULL(str) then
htmlencode=""
exit function
end if
result=str
result = replace(result, ">", ">")
result = replace(result, "<", "<")
result = replace(result," ",chr(32))
result = replace(result, """,chr(34))
result = replace(result, "<BR>", chr(13)&CHR(10))
result = replace(result, "&","&" )
HTMLDecode = result
end function
%>

aa.asp
<!--#include file="CHAR.inc"-->
<%
response.write htmlencode(rs("aa"))
%>
回复
jervis82 2004-04-11
没有人有成功的代码吗?
回复
jervis82 2004-04-11
如果我有图片的话,那么图片也就不再去显示.总之就是只要那些文字.
回复
jervis82 2004-04-11
唉............我是说输出后只是文本.在页面中你查看原文件也看不到那些html的那种.

如:在数据库中有这样的字符串
<body>aaaa</body>

那么我想的效果是显示后只是
aaaa

用记事本打开查看也只是
aaaa
回复
jervis82 2004-04-10
郁闷
回复
wolfsky1994 2004-04-10
Server.HTMLEncode( string )
回复
xrwang 2004-04-10
我的思路是这样的,如果能用正则表达式最好,
不能用可以这么试试(没有测试,很可能有语法错误):
function CutHTMLTag(strHaveHTML)
dim nBeginPos,nEndPos,strHaveHTML,strHTMLTag
strHaveHML="这是一个<STRONG>测试</STRONG>字符串,需要被删除HTML标记"
do while true
nBeginPos=InStr(1,strHaveHTML,"<") '得到HTML标记中"<"的位置
if nBeginPos<1 then '如果没找到,说明已经没有HTML标记了
CutHTMLTag=strHaveHTML
exit function
else
nEndPos=InStr(1,strHaveHTML,">") '得到HTML标记中的">"位置
if nEndPos<1 then '如果没找到,退出
CutHTMLTag=strHaveHTML
exit function
else
strHTMLTag=Mid(strHaveHTMLTag,nBeginPos,nEndPos-nBeginPos) '得到HTML标记
'注意:这里并不严谨,没有判断得到的strHTMLTag是否真为HTML标记,实现的是否可以和现有的所有HTML标记一一比较
StrHaveHTML=Replace(strHaveHTML,strHTMLTag,"") '将该HTML标记用空字符串代替
end if
end if
loop
end function
回复
jervis82 2004-04-10
top
回复
jervis82 2004-04-10
兄弟们,我说的是要把文本里的html代码都去掉.
例如: <body>去掉代码</body>
那么最后得到的结果是: 去掉代码
回复
lystan 2004-04-10
Server.HTMLEncode( string )就可以了
回复
jervis82 2004-04-09
自己再顶.没有人答就算.
回复
chating 2004-04-09
Server.HTMLEncode( string )

Server.URLEncode( string )

第二个,看需要不需要,可以不用的
回复
jervis82 2004-04-09
我不会正则表达式.

谁有代码?我急用.
回复
snowcloud2002 2004-04-09
使用正则表达式替换原数据中的html代码

如ttkkyy的,他的意思是替换所有包含"<",">"标记的内容为空字符串从而达到你要的
回复
jervis82 2004-04-09
有人可以说得详细点吗?
上面那段用不了.
回复
ttkkyy 2004-04-09
<SCRIPT LANGUAGE="VBScript">
<!--
content="<html><head><title>内容编辑</title></head><body>内容111111</body></html>"
function RemoveHTML(fString)
dim re
set re = New RegExp
re.Global = True
re.IgnoreCase = True
're.MultiLine = True
if not isnull(fString) then
re.Pattern = "<(.[^>]*)>"
fString = re.Replace(fString,"")
RemoveHTML = fString
end if
end function

msgbox RemoveHTML (content)
//-->
</SCRIPT>

你改一下应该就可以用了
回复
jervis82 2004-04-09
顶一下
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告