文章导航PC6首页软件下载单机游戏安卓资源苹果资源

pc软件新闻网络操作系统办公工具编程服务器软件评测

安卓新闻资讯应用教程刷机教程安卓游戏攻略tv资讯深度阅读综合安卓评测

苹果ios资讯苹果手机越狱备份教程美化教程ios软件教程mac教程

单机游戏角色扮演即时战略动作射击棋牌游戏体育竞技模拟经营其它游戏游戏工具

网游cf活动dnf活动lol周免英雄lol礼包

手游最新动态手游评测手游活动新游预告手游问答

您的位置:首页技术开发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隐藏超级链接的真实地址两个不同数据库表的分页显示解决方案