����λ�ã���ҳ������������ASP������ asp��̬����wbmpͼƬ�ij���

asp��̬����wbmpͼƬ�ij���

ʱ�䣺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()"����

'���幦����ʲ�ᣬ��Ҳ˵���壬�����DZ����



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��ʲô

��������

�鿴����0������>>

��������

����˵����...

�ύ����