动态生成WBMP图象
时间：[2007-11-2 17:37:40] 作者：作者不详
<%@ 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)
%>
<%
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)
%>
【声明】本站刊载的《动态生成WBMP图象》一文如果有侵害你权益的情况，请联系我们。我们将及时采取措施。
QQ：44637339 Email:just6@163.com Tel:13355163107 Lining studios
