如何在输出的文本里嵌入图片，就像网上的图片新闻一样！！？？在线等待答案！！

[Iris]

如何在输出的文本里嵌入图片，就像网上的图片新闻一样！！？？
谢谢！！

[Iris]

可是现在后台页面结构已经固定，目前改不了程序，原先的页面没有发布嵌图片的信息，如今加了这么一个功能，所以就想了一个暂且的办法，起一文件夹放需要发布的图片，在发布的内容里嵌入图片的地址！！按理刚才那样说应该可以实现这样的功能，可是撞邪了，它就是不出来！！头都大了！！

[Iris]

我试过将信息内容print出来：
是文字<img src=http://www.csdn.net/images/csdn.gif align=left>文字的形式，为什么不能识别html代码呢？？？？用了Content =Server.HTMLEncode("Contend")也不好使！！好不容易有一点意思了，可图片显示不出来，地址是对的！！！！烦死了！！求助！！！！！！！！！！

[ssm1226]

写入库时，不能替换<或>
读出来时，只需<%=rs("NewsContent")%>

[Iris]

不行◎！现在的情况是，用ssm1226(雨中人-№☆精华区☆) 的方法，哪么图片显示不出，就像我先前一样！！还需要求助~!~~~~~~~~~~~~~~~~~~!~~~~~

[Iris]

不行◎！现在的情况是，用ssm1226(雨中人-№☆精华区☆) 的方法，哪么图片显示不出，就像我先前一样！！还需要求助~!~~~~~~~~~~~~~~~~~~!~~~~~

[meizz]

你的那个替换语句是将所有HTML标记替换掉，也包括<img ...>，所以不可能会有图片出来的
你若是不能改到后台程序的话，现唯一的办法是将这个标记自重新替换回去。
<%
dim ss
ss = "aslkj&cxkjlt;l<img src=http://www.csdn.net/images/csdn.gif align=left>sdf;fsd>kdskjl"

function rr(ss)
dim a,b,c,d,e
a = instr(ss,"img") 'img标签出现的第一个位置
b = left(ss,a-5) 'b为img标签前的字符串
c = right(ss,len(ss)-len(b)) 'c为ss字符串除去b后的剩下的字符串
a = instr(c,">") '在c里找到img标签结束的位置
d = left(c,a+3) 'd为整个img标签的字符串
e = right(c,len(c)-len(d)) 'e为c字串除去d后的字符串
d = replace(replace(replace(replace(d,"<","<"),">",">"),"<br>",chr(13))," "," ")
'将img标签的字符串重新替换回去
rr = b&d&e '函数返回已经替换好的字符串
end function

Response.write rr(ss)
%>
写这种程序的感觉很怪怪的，累呀！

[meizz]

你的那个替换语句是将所有HTML标记替换掉，也包括<img ...>，所以不可能会有图片出来的
你若是不能改到后台程序的话，现唯一的办法是将这个标记自重新替换回去。
<%
dim ss
ss = "aslkj&cxkjlt;l<img src=http://www.csdn.net/images/csdn.gif align=left>sdf;fsd>kdskjl"

function rr(ss)
dim a,b,c,d,e
a = instr(ss,"img") 'img标签出现的第一个位置
b = left(ss,a-5) 'b为img标签前的字符串
c = right(ss,len(ss)-len(b)) 'c为ss字符串除去b后的剩下的字符串
a = instr(c,">") '在c里找到img标签结束的位置
d = left(c,a+3) 'd为整个img标签的字符串
e = right(c,len(c)-len(d)) 'e为c字串除去d后的字符串
d = replace(replace(replace(replace(d,"<","<"),">",">"),"<br>",chr(13))," "," ")
'将img标签的字符串重新替换回去
rr = b&d&e '函数返回已经替换好的字符串
end function

Response.write rr(ss)
%>
写这种程序的感觉很怪怪的，累呀！

[meizz]

你的那个替换语句是将所有HTML标记替换掉，也包括<img ...>，所以不可能会有图片出来的
你若是不能改到后台程序的话，现唯一的办法是将这个标记自重新替换回去。
<%
dim ss
ss = "aslkj&cxkjlt;l<img src=http://www.csdn.net/images/csdn.gif align=left>sdf;fsd>kdskjl"

function rr(ss)
dim a,b,c,d,e
a = instr(ss,"img") 'img标签出现的第一个位置
b = left(ss,a-5) 'b为img标签前的字符串
c = right(ss,len(ss)-len(b)) 'c为ss字符串除去b后的剩下的字符串
a = instr(c,">") '在c里找到img标签结束的位置
d = left(c,a+3) 'd为整个img标签的字符串
e = right(c,len(c)-len(d)) 'e为c字串除去d后的字符串
d = replace(replace(replace(replace(d,"<","<"),">",">"),"<br>",chr(13))," "," ")
'将img标签的字符串重新替换回去
rr = b&d&e '函数返回已经替换好的字符串
end function

Response.write rr(ss)
%>
写这种程序的感觉很怪怪的，累呀！

[Iris]

可是图片框已经出来了，就是打个叉的那种不能正常显示图片的图框，说明它已识别<img src=http://www.csdn.net/images/csdn.gif align=left>形式了，可我的地址并没有写错，我核对再三，那么究竟错在哪呢？？？不好意思，继续CALL HELP！！！

[Iris]

可是图片框已经出来了，就是打个叉的那种不能正常显示图片的图框，说明它已识别<img src=http://www.csdn.net/images/csdn.gif align=left>形式了，可我的地址并没有写错，我核对再三，那么究竟错在哪呢？？？不好意思，继续CALL HELP！！！

[meizz]

看看图片的连接地址，如果还不行的话，你换一个本地的图片试试。

[meizz]

再看看你的图片连接地址是否正确，我这边测试是正确的。
如果你还是不行的话，将图片的链接改成本地的图片链接。

[meizz]

再看看你的图片连接地址是否正确，我这边测试是正确的。
如果你还是不行的话，将图片的链接改成本地的图片链接。

[Iris]

嗯！！非常感谢各位！！问题结了！！^_^

[Iris]

不好意思！！分比较少！！

[meizz]

你设置一个属性:
<img src=**.gif align=left | right>

[Iris]

试过了！！可它将<img src=**.gif align=left | right>这段完全输出

[manmanchong]

直接写啊。
文字<img src="*.gif">文字

[Iris]

对呀！！就是直接写的！！！文字<img src="*.gif">文字，我还试过用html格式转换，还是不行！！！

[Iris]

up!!紧急