服务器之家：专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp输出bmp

asp输出bmp

2019-10-18 11:14asp代码网 ASP教程

asp输出bmp的代码分享，需要的朋友可以参考一下。

  1. <%  
  2. Call Com_CreatValidCode("ValidCode")  
  3.  
  4. Sub Com_CreatValidCode(pSN)  
  5.  
  6. 'Author: Layen  
  7. 'QQ: 84815733  
  8. 'E-mail: support@ssaw.net  
  9.  
  10. ' 禁止缓存  
  11. Response.Expires = -9999   
  12. Response.AddHeader "Pragma","no-cache"  
  13. Response.AddHeader "cache-ctrol","no-cache"  
  14. Response.ContentType = "Image/BMP"  
  15.  
  16. Randomize  
  17.  
  18. Dim i, ii, iii  
  19.  
  20. Const cOdds = 8 ' 杂点出现的机率  
  21. Const cAmount = 36 ' 文字数量  
  22. Const cCode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"  
  23.  
  24. ' 颜色的数据(字符，背景)  
  25. Dim vColorData(1)  
  26. vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) ' 蓝0，绿0，红0（黑色）  
  27. vColorData(1) = ChrB(250) & ChrB(236) & ChrB(211) ' 蓝250，绿236，红211（浅蓝色）  
  28.  
  29. ' 随机产生字符  
  30. Dim vCode(4), vCodes  
  31. For i = 0 To 3  
  32.  vCode(i) = Int(Rnd * cAmount)  
  33.  vCodes = vCodes & Mid(cCode, vCode(i) + 1, 1)  
  34. Next  
  35.  
  36. Session(pSN) = vCodes '记录入Session  
  37.  
  38. ' 字符的数据  
  39. Dim vNumberData(35)  
  40. vNumberData(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"  
  41. vNumberData(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"  
  42. vNumberData(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"  
  43. vNumberData(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"  
  44. vNumberData(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"  
  45. vNumberData(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"  
  46. vNumberData(6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"  
  47. vNumberData(7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"  
  48. vNumberData(8) = "1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"  
  49. vNumberData(9) = "1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"  
  50. vNumberData(10) = "1111011111111101111111101011111110101111111010111111101011111100000111110111011111011101111000100011"  
  51. vNumberData(11) = "1000000111110111101111011110111101110111110000111111011101111101111011110111101111011110111000000111"  
  52. vNumberData(12) = "1110000011110111101110111110111011111111101111111110111111111011111111101111101111011101111110001111"  
  53. vNumberData(13) = "1000001111110111011111011110111101111011110111101111011110111101111011110111101111011101111000001111"  
  54. vNumberData(14) = "1000000111110111101111011011111101101111110000111111011011111101101111110111111111011110111000000111"  
  55. vNumberData(15) = "1000000111110111101111011011111101101111110000111111011011111101101111110111111111011111111000111111"  
  56. vNumberData(16) = "1110000111110111011110111101111011111111101111111110111111111011100011101111011111011101111110001111"  
  57. vNumberData(17) = "1000100011110111011111011101111101110111110000011111011101111101110111110111011111011101111000100011"  
  58. vNumberData(18) = "1100000111111101111111110111111111011111111101111111110111111111011111111101111111110111111100000111"  
  59. vNumberData(19) = "1110000011111110111111111011111111101111111110111111111011111111101111111110111110111011111000011111"  
  60. vNumberData(20) = "1000100011110111011111011011111101011111110001111111010111111101101111110110111111011101111000100011"  
  61. vNumberData(21) = "1000111111110111111111011111111101111111110111111111011111111101111111110111111111011110111000000011"  
  62. vNumberData(22) = "1000100011110010011111001001111100100111110101011111010101111101010111110101011111010101111001010011"  
  63. vNumberData(23) = "1000100011110011011111001101111101010111110101011111010101111101100111110110011111011001111000110111"  
  64. vNumberData(24) = "1110001111110111011110111110111011111011101111101110111110111011111011101111101111011101111110001111"  
  65. vNumberData(25) = "1000000111110111101111011110111101111011110000011111011111111101111111110111111111011111111000111111"  
  66. vNumberData(26) = "1110001111110111011110111110111011111011101111101110111110111011111011101001101111011001111110001011"  
  67. vNumberData(27) = "1000001111110111011111011101111101110111110000111111010111111101101111110110111111011101111000110011"  
  68. vNumberData(28) = "1110000011110111101111011110111101111111111001111111111001111111111011110111101111011110111100000111"  
  69. vNumberData(29) = "1000000011101101101111110111111111011111111101111111110111111111011111111101111111110111111110001111"  
  70. vNumberData(30) = "1000100011110111011111011101111101110111110111011111011101111101110111110111011111011101111110001111"  
  71. vNumberData(31) = "1000100011110111011111011101111101110111111010111111101011111110101111111010111111110111111111011111"  
  72. vNumberData(32) = "1001010011110101011111010101111101010111110101011111001001111110101111111010111111101011111110101111"  
  73. vNumberData(33) = "1000100011110111011111101011111110101111111101111111110111111110101111111010111111011101111000100011"  
  74. vNumberData(34) = "1000100011110111011111011101111110101111111010111111110111111111011111111101111111110111111110001111"  
  75. vNumberData(35) = "1100000011110111011111111101111111101111111110111111110111111111011111111011111111101110111100000011"  
  76.  
  77. ' 输出图像文件头  
  78. Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(230) & ChrB(4) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_  
  79.  ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_  
  80.  ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_  
  81.  ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)  
  82.  
  83. ' 输出图像信息头  
  84. Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(176) & ChrB(4) &_  
  85.  ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_  
  86.  ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_  
  87.  ChrB(0) & ChrB(0)  
  88.  
  89. For i = 9 To 0 Step -1 ' 历经所有行  
  90.  For ii = 0 To 3 ' 历经所有字  
  91.  For iii = 1 To 10 ' 历经所有像素  
  92.  ' 逐行、逐字、逐像素地输出图像数据  
  93.  If Rnd * 99 + 1 < cOdds Then ' 随机生成杂点  
  94.  Response.BinaryWrite vColorData(0)  
  95.  Else  
  96.  Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))  
  97.  End If  
  98.  Next  
  99.  Next  
  100. Next  
  101.  
  102. End Sub  
  103. %>  
  • asp
  • 输出
  • BMP

    • 延伸 · 阅读

    精彩推荐
    最近更新
    编辑推荐
    阅读排行
    热门标签
    SQL命令 　 dll文件 　 QueryString 　 对象错误 　 msxml3.dll 　 80072ee7 　 innerHTML 　 回车符 　 ExecuteGlobal 　 CutStrX 　 ScriptTimeOut 　 远程 　 空值 　 批处理 　 XHTML 　 Scripting 　 FileSystemObject 　 目录读写 　 权限检测 　 ASP注入 　 CC攻击 　 Err.Number 　 错误描述 　 禁止 　 源码分享 　 相对路径 　 页面执行效率 　 源程序 　 function 　 like 　
    © 2019-2025 服务器之家 版权所有 www.zzvips.com 关于我们联系我们版权申明网站地图