'函数1：
'将字符串转换成二进制
function stob(varstr)
str2bin = ""
for i = 1 to len(varstr)
varchar = mid(varstr, i, 1)
str2bin = str2bin & chrb(ascb(varchar))
next
stob = str2bin
end function
'函数2：
'将每两个字符前面加"&h"表示是十六进制，然后把"&h??"加到"chr()"里面
'具体功能是什麽，我也说不清，反正是必须的
function ss(varstr)
bb = ""
for i = 1 to len(varstr)/2
varchar = "&h" & mid(varstr, 2*i-1, 2)
bb=bb & chr(varchar)
next
ss = bb
end function
img="00001414faf5f0fb6df0fbadf0fbdd801bfc70e71fe07ce7d0bbfbd0dbfbb0d7fd70b7fdb077f5d0fbebe0fbdbf01ce780c71c
70f7fdf0f7bff0f65df0f5edf00"
'这段字符串的含义参考我以前的帖子
'当然也可以由程序根据数据自动生成这段字符串，前提是你了解这段字符串的含义并有足够的耐心，想想吧，生成一个100x100的
图片，要由1250个类似"f0"的字符组成！
response.contenttype="image/vnd.wap.wbmp"
response.binarywrite stob(ss(img))
'试一下吧，好象不是很象太阳，simple怎麽说是太阳的图案，或许他画图的能力比较差吧：）
%>
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
