ASP生成任意大小BMP图片的问题

来源：百度知道 编辑：UC知道 时间：2024/06/01 02:03:36
全部中文能够正常显示，“中国1234”也可以正常显示。但是单独数字（字母）或中文汉字加单个数字或字母就出现问题，无法正常显示。

以下为生成单行任意长度文字的代码。

'========================
经调试，已能实现ASP生成多行任意宽度的BMP图片，仅此问题如果解决就完全OK了
'========================

CreatValidCode "中国12345"

Sub sPri(S)
For i=1 To Len(S)
If Mid(s,i,1)="1" then
Response.BinaryWrite ChrB(0)&ChrB(0)&ChrB(0)
Else
Response.BinaryWrite ChrB(255)&ChrB(255)&ChrB(255)
End If
Next
end Sub

Sub CreatValidCode(pSN)
Set sText=Server.CreateObject("Scripting.Dictionary")
sText.add "f国","011111111110 010000000010 010111111010 010001000010 010111111010 010001000010 010001010010 010001001010 011111111110 010000000010 011111111110 000000000000 "
sText.add "f民","011111111100 010000000100 010000000100 011111111100 010001000000 011111111110 010001000000 010000100000 010010100010 010100010010 011000001110 00000000

你要想把其他数字 字母还有想要的汉字都转成图象就要象上面代码里的一样把这些都用2进位表示
Set sText=Server.CreateObject("Scripting.Dictionary")
sText.add "f国","011111111110 010000000010 010111111010 010001000010 010111111010 010001000010 010001010010 010001001010 011111111110 010000000010 011111111110 000000000000 "
sText.add "f民","011111111100 010000000100 010000000100 011111111100 010001000000 011111111110 010001000000 010000100000 010010100010 010100010010 011000001110 000000000000 "
sText.add "f人","000001000000 000001000000 000001000000 000001000000 000001000000 000010100000 000010100000 000100010000 000100010000 001000001000 110000000110 000000000000 "
sText.add "f中","000001000000 000001000000 011111111100 010001000100 010001000100 010001000100 011111111100 000001000000 000001000000 000001000000 000001000000 000000000000 "
sText.add "f0","0000000 0000000 0011100 0100010 0100010 010001