您的位置:首页技术开发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是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 VB.NET 2005编写定时关 Jquery get/post下乱码解决方法 前台gbk gb如何使用数据绑定控件显示数据ASP脚本循环语句ASP怎么提速

人气排行 轻松解决"Server Application Error"和iis"一起学习DataGridView调整列宽用ASP随机生成文件名的函数Jquery get/post下乱码解决方法 前台gbk gbODBC Drivers错误80004005的解决办法返回UPDATE SQL语句所影响的行数的方法用Javascript隐藏超级链接的真实地址两个不同数据库表的分页显示解决方案