来源帖:http://w.leadbbs.com/a/a.asp?b=10&id=1719639
在来源帖中,没有提供给表情图标加注解的方法,原因是没有很好的解决办法,但现在看来,没有人提出更好的办法,现在就把当时没有公布的方法公布出来。
在修改后的代码中查找下面代码:
----------
dim a_count
-------------
上面插入:
---------------
dim icon_title
icon_title=array("眯笑","鄙视","不耐烦","鬼脸","大笑","迷惑","酷","不理你","问号","不解","生气","难过","亲爱的","","")
-------------
后面自己加喽,按照顺序,一定要加满,有几个表情加几个,不够会出错的。
--------------
title=表情<%=temp_n%>
--------------
修改为:
--------------
title=<%=icon_title(temp_n-1)%>
http://w.leadbbs.com/a/a.asp?b=200&id=1785959 |