您的位置：首页 → 技术开发 → ASP技巧 → asp动态生成wbmp图片的程序

asp动态生成wbmp图片的程序

时间：2004/11/7 4:03:00来源：本站整理作者：蓝点我要评论(0)

<%@ Language=VBScript %>

<%



'函数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怎麽说是太阳的图案，或许他画图的能力比较差吧：）

%>

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论