<%option explicit%> <%dim startime startime=timer() %> 网页中的Windows自带字体特效大全_IT学习者

网页中的Windows自带字体特效大全

<% Dim OutStr Dim i OutStr = "" OutStr = OutStr & "" for i=33 to 42 OutStr = OutStr & "" OutStr = OutStr & "" OutStr = OutStr & "" OutStr = OutStr & "" OutStr = OutStr & "" OutStr = OutStr & "" OutStr = OutStr & "" next OutStr = OutStr & "
字体WebdingsWingdingsWingdings 2Wingdings 3
"&chr(i)&""&chr(i)&""&chr(i)&""&chr(i)&""&chr(i)&"
" Response.write OutStr %>

使用说明:

当html代码为

<font face='Webdings'>!</font>时,实际显示:!

<font face='Webdings'>3</font>时,实际显示:3

<font face='Wingdings'>3</font>时,实际显示:3

<font face='Wingdings 2'>3</font>时,实际显示:3

<font face='Wingdings 3'>3</font>时,实际显示:3

...

对照着左表显示你想要显示的字符吧:)

<% OutStr = "" OutStr = OutStr & "" for i=43 to 128 OutStr = OutStr & "" OutStr = OutStr & "" OutStr = OutStr & "" OutStr = OutStr & "" OutStr = OutStr & "" OutStr = OutStr & "" OutStr = OutStr & "" next OutStr = OutStr & "
字体WebdingsWingdingsWingdings 2Wingdings 3
"&chr(i)&""&chr(i)&""&chr(i)&""&chr(i)&""&chr(i)&"
" Response.write OutStr %>

<% dim endtime endtime=timer() if endtime-startime>0 then response.write "页面执行时间:"&formatnumber((endtime-startime)*1000,2)&"毫秒" end if %>
作者:ITlearner 最后修改时间: