有没有人知道如何将<和>改成<>

fwy12 2008-03-30 07:57:23
有没有人知道如何将<和>改成<>

谢谢了
...全文
357 16 打赏 收藏 转发到动态 举报
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
a95470000 2008-03-30
  • 打赏
  • 举报
回复

该下上面的:



<%
set rs=server.createobject("adodb.recordset")
sqlStr="select content from msg"
rs.open sqlStr,conn,1,1
varContent=rs("content")
newStr = changechr(varContent) '调用function "changechr"
'----newStr就是转换好的字符串


function changechr(str)
changechr=replace(str,"<","<") '----将"<"转换为"<"
changechr=replace(changechr,">",">")
changechr=replace(changechr," <br>",chr(13)) '----将回车符(换行)转换为"<br>"
changechr=replace(changechr," "," ") '----将空格符(空格)转化为" "
changechr=replace(changechr," <img src=","[sayyes]")'----将"[sayyes]"转换为"<img src="
changechr=replace(changechr," <b>","")
changechr=replace(changechr," <font color=CC0000>","[red]")
changechr=replace(changechr," <font size=7>","[big]")
changechr=replace(changechr,"> </img>","[/sayyes]")
changechr=replace(changechr," </b>","")
changechr=replace(changechr," </font>","[/red]")
changechr=replace(changechr," </font>","[/big]")
end function
%>
a95470000 2008-03-30
  • 打赏
  • 举报
回复

考验我的耐心啊......

<%
set rs=server.createobject("adodb.recordset")
sqlStr="select content from msg"
rs.open sqlStr,conn,1,1
varContent=rs("content")
newStr = changechr(varContent) '调用function "changechr"
'----newStr就是转换好的字符串


function changechr(str)
changechr=replace(str,"<","<") '----将"<"转换为"<"
changechr=replace(changechr,">",">")
changechr=replace(changechr,chr(13)," <br>") '----将回车符(换行)转换为"<br>"
changechr=replace(changechr," "," ") '----将空格符(空格)转化为" "
changechr=replace(changechr,"[sayyes]"," <img src=")'----将"[sayyes]"转换为"<img src="
changechr=replace(changechr,""," <b>")
changechr=replace(changechr,"[red]"," <font color=CC0000>")
changechr=replace(changechr,"[big]"," <font size=7>")
changechr=replace(changechr,"[/sayyes]","> </img>")
changechr=replace(changechr,""," </b>")
changechr=replace(changechr,"[/red]"," </font>")
changechr=replace(changechr,"[/big]"," </font>")
end function
%>
fwy12 2008-03-30
  • 打赏
  • 举报
回复
如何从数据库中抓取的时候转换回来呢
a95470000 2008-03-30
  • 打赏
  • 举报
回复
[Quote=引用 7 楼 fwy12 的回复:]
function changechr(str)
changechr=replace(replace(replace(replace(str," <","<"),">",">"),chr(13)," <br>")," "," ")
changechr=replace(replace(replace(replace(changechr,"[sayyes]"," <img src="),""," <b>"),"[red]"," <font color=CC0000>"),"[big]"," <font size=7>")
changechr=replace(replace(replace(replace(changechr,"[/sayyes]","> </img>"),""," </b>"),"[/red]"," </font…
[/Quote]


function changechr(str)
changechr=replace(str,"<","<") '----将"<"转换为"<"
changechr=replace(changechr,">",">")
changechr=replace(changechr,chr(13)," <br>") '----将回车符(换行)转换为"<br>"
changechr=replace(changechr," "," ") '----将空格符(空格)转化为" "
changechr=replace(changechr,"[sayyes]"," <img src=")'----将"[sayyes]"转换为"<img src="
changechr=replace(changechr,""," <b>")
changechr=replace(changechr,"[red]"," <font color=CC0000>")
changechr=replace(changechr,"[big]"," <font size=7>")
changechr=replace(changechr,"[/sayyes]","> </img>")
changechr=replace(changechr,""," </b>")
changechr=replace(changechr,"[/red]"," </font>")
changechr=replace(changechr,"[/big]"," </font>")
end function

这样应该明白吧,我想应该是无法把一些特殊符号和html标签存入数据库,
在存的时候先进行过转换,从数据库抓出来的时候又将特殊的符号转换回来
Atai-Lu 2008-03-30
  • 打赏
  • 举报
回复
[Quote=引用 9 楼 fwy12 的回复:]
我想解决的问题是,我用eWebEditor输入数据库的是"<",类型的代码,怎样让输出的内容正常显示呢,
[/Quote]
你用代码视图来写
fwy12 2008-03-30
  • 打赏
  • 举报
回复
输出的是html代码,那也没什么意义,我想让html代码改为正常的显示,如图片,应该在网页显示图片而不是<img...
的代码。请问该怎么办啊。
rentj1 2008-03-30
  • 打赏
  • 举报
回复
输出正常就麻烦了 别人就可以注入了
fwy12 2008-03-30
  • 打赏
  • 举报
回复
我想解决的问题是,我用eWebEditor输入数据库的是"<",类型的代码,怎样让输出的内容正常显示呢,
Atai-Lu 2008-03-30
  • 打赏
  • 举报
回复
字符替换...
这么难看的代码,无语...
fwy12 2008-03-30
  • 打赏
  • 举报
回复
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")
changechr=replace(replace(replace(replace(changechr,"[sayyes]","<img src="),"","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>")
changechr=replace(replace(replace(replace(changechr,"[/sayyes]","></img>"),"
","</b>"),"[/red]","</font>"),"[/big]","</font>")
end function




这段代码是什么意思呢
Atai-Lu 2008-03-30
  • 打赏
  • 举报
回复
rentj1老兄,不好意思,csdn的聊天工具我这里打开太慢了,网速不好,每次打开浏览器都要进入假死状态,所以没法直接回复你的信息了...
rentj1 2008-03-30
  • 打赏
  • 举报
回复
replace(rs("content"),"<",">")
replace(rs("content"),">"," <")
fwy12 2008-03-30
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 luxu001207 的回复:]
直接用
replace(字符串,"<",">")
replace(字符串,">"," <")
[/Quote]

字符串是什么,如果我表中的字段是content,那么这个字段是否就是content.
rentj1 2008-03-30
  • 打赏
  • 举报
回复
用替换好了replace("字符串内容","<",">")
replace(字符串内容,">","<")
Atai-Lu 2008-03-30
  • 打赏
  • 举报
回复
直接用
replace(字符串,"<",">")
replace(字符串,">","<")
a95470000 2008-03-30
  • 打赏
  • 举报
回复
不太明白意思,再说清楚点

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧