400-1100-266
9:00-24:00(工作日)
如何动态生成WBMP?
%@ Language=VBScript %>%Function StoB(varstr)str2bin = ""For i = 1 To Len(varstr)varchar = Mid(varstr, i, 1)str2bin = str2bin ChrB(AscB(varchar))NextStoB = str2binEnd Functionimg=chr(0) chr(0) chr(5) chr(2) chr(0) chr(Hf8)Response.ContentType="image/vnd.wap.wbmp"Response.BinaryWrite stob(img)%>
标签:乐山 河南 红河 沈阳 沧州 新疆 上海 长治
上一篇:如何一行行地读取文件?
下一篇:如何处理超时事件?