hysql.org技术站
当前位置:首页 > 编程10000问 > 正文

如何动态生成WBMP?

如何动态生成WBMP?

 

<%@ Language=VBScript %>
<%
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
img=chr(0) & chr(0) & chr(5) & chr(2) & chr(0) & chr(&Hf8)

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

版权保护: 本文由 首页 原创,转载请保留链接: http://www.hysql.org/biancheng/20180610/2088.html

博客主人YeLongCu
男,文化程度不高性格有点犯二,已经20来岁至今未婚,闲着没事喜欢研究各种代码,资深技术宅。
  • 文章总数
  • 1148771访问次数
  • 建站天数
  • 标签