Êý¾Ý¿âÖÐÓÐÈçÏÂÄÚÈÝ£º
<p> <IMG src="/jp4/upload/2009111121518378.jpg" border=1> </p>
´æÔÚbContent×Ö¶ÎÖÐ
ÓÃasp´ÓÊý¾Ý¿âÀï¶Á³ö£¬Óï¾äÈçÏ£º
dim mvarbContent
set rs=server.CreateObject("adodb.recordset")
msql="select * from Ay_Content where bId=" & request("id")
rs.open msql,conn,1,3
mvarbContent=Juncode(trim(rs("bContent")&""))
ÏÔʾÓï¾äÈçÏ£º
<%=mvarbContent%>
µ«½á¹ûÖ»ÊÇ»»ÐРûÓÐÏÔʾͼƬ ҲûÓмÓÔØÊ§°ÜµÄ±êÖ¾ ͼƬȷʵ´æÔÚ
Íû¸÷λ¸ßÊÖ°ï°ïæ ллÁË Êý¾Ý¿âÓõÄÊÇACCESS ×Ö¶ÎÀàÐÍÊÇMEMO
Juncode()Õâ¸ö·½·¨ÊǸÉʲôµÄ£¿
Function Juncode(byVal iStr)
if isnull(iStr) or isEmpty(iStr) then
Juncode=""
Exit function
end if
dim F,i,E
E=array("Jn0;","Jn1;","Jn2;","Jn3;","Jn4;","Jn5;","Jn6;","Jn7;","Jn8;","Jn9;","Jn10;","Jn11;","Jn12;","Jn13;","Jn14;","Jn15;","Jn16;","Jn17;","Jn18;","Jn19;","Jn20;","Jn21;","Jn22;","Jn23;","Jn24;","Jn25;")
F=array(chrw(12468),chrw(12460),c