快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

ASP动态生成WBMP图片的程序

<%@ 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="00001414faf5f0fb6df0fbadf0fbdd801bfc70e71fe07ce
7d0bbfbd0dbfbb0d7fd70b7fdb077f5d0fbebe0fbdbf01ce780c71c
70f7fdf0f7bff0f65df0f5edf00"
\\\'这段字符串的含义参考我以前的帖子
\\\'当然也可以由程序根据数据自动生成这段字符串,前提是你了解这段字符串的含义并有足够的耐心,想想吧,生成一个100X100的
图片,要由1250个类似"F0"的字符组成!

Response.ContentType="image/vnd.wap.wbmp"
Response.BinaryWrite stob(ss(img))

\\\'试一下吧,好象不是很象太阳,simple怎麽说是太阳的图案,或许他画图的能力比较差吧:)
%>
返回类别: 教程
上一教程: 用CDONTS发送邮件的两个函数
下一教程: ASP基本语法

您可以阅读与"ASP动态生成WBMP图片的程序"相关的教程:
· 用ASP动态生成JAVASCRIPT的表单验证代码
· 随机数字直接生成图片的ASP代码
· 如何用ASP动态生成XML文件
· ASP动态生成的JAVASCRIPT表单验证代码
· 如何使用ASP制作模似动态生长的表单?
    微笑服务 优质保证 索取样品