captcha_image.asp

简单的asp论坛源码系统,很适用于初学者!界面简洁,功能齐全

'Declare variables
Dim strHexImage(240,1)	'Holds the images as hex format
Dim intRandomNumber	'Used to select the security code to be used
Dim strSID

'Get the session ID for this user
strSID = Trim(Request.Querystring("SID"))


'Set so the CAPTCHA image is not cached
Response.Clear 
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.CacheControl = "No-Store"
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"


'Set the content type for the CAPTCHA image
Response.ContentType = "image/gif"




'Array holding CAPTCHA image in hex format, stored in file so no extra components required
strHexImage(0,0) = "47 49 46 38 39 61 70 00 23 00 91 00 00 00 66 00 66 cc 33 2d 93 16 53 b9 29 21 f9 04 04 14 00 ff 00 2c 00 00 00 00 70 00 23 00 00 02 ff 8c 8f a9 cb ed 0f a3 9c b4 da 8b b3 ce a3 ef 0f 86 ce 00 94 a5 30 88 ea 8a 91 a6 99 36 82 f0 02 33 ca e6 d7 5c bf 71 42 eb f5 70 ba e2 63 c0 13 02 7e 06 97 72 c8 34 4a 0f 4e 65 87 66 78 fe 90 26 c1 f4 db ac 25 61 40 71 34 10 b4 9d c1 ac 34 20 fc 62 78 1a d5 35 5b 54 a5 d6 30 ee bb d1 89 c0 65 b2 e3 e3 f7 b7 d0 57 b1 67 a8 d1 61 47 57 28 51 e5 c5 d8 22 36 91 27 19 87 f7 a8 d0 e9 e0 76 42 79 30 b3 10 f9 90 36 fa e1 86 83 44 14 e0 41 12 15 f4 ea 19 5a 82 70 82 38 08 91 2a 72 7b f9 52 0b 5b 33 b7 20 b8 e9 a2 8a 90 06 e1 b4 bc 01 2c 3c c4 5c 7c 03 6d 10 9a a2 2c a3 fb d0 b5 02 9c f2 f4 06 47 26 58 9a 50 65 13 c0 cb 10 f4 b9 a9 42 4d ec 4e 33 ca 5a ad a6 ce 0a 0f 5a d2 c9 c9 27 0b eb f0 b9 43 c3 ae de c1 6c de f4 5d fa b7 04 52 c3 5f c2 72 e1 aa 46 69 92 02 5a 75 9e a6 45 84 f8 48 9e 8a 44 70 66 25 d4 16 88 cc c6 87 20 19 88 c4 53 91 d4 c5 6a 31 d6 d9 18 93 b0 e3 29 89 d8 9a e5 a8 63 11 1a 8d 2d d2 00 42 9c 39 62 22 43 72 d7 9a 0e eb 36 d1 c5 99 74 54 80 61 53 07 ce d9 09 93 e4 98 4a 48 c3 04 c9 40 4f 63 f5 28 85 1a c5 15 0a 63 54 3c 51 70 55 a9 c9 53 3a 73 e3 da bd 8b 37 af de bd 7c fb fa fd 0b 38 70 91 02 00 3b"
strHexImage(0,1) = "mov12" 'Must be 6 characters or under
strHexImage(1,0) = "47 49 46 38 39 61 70 00 23 00 91 00 00 00 00 00 cc cc 00 50 50 00 ff ff 00 21 f9 04 04 14 00 ff 00 2c 00 00 00 00 70 00 23 00 00 02 ff 84 8f a9 cb ed 0f a3 9c b4 da 8b b3 de 4a f0 0f 6a c1 40 06 a6 e7 01 82 19 b6 8d 00 a7 2f ec 8c 25 89 e3 36 2e bb be 21 c8 f5 10 2b d2 f0 60 3b 99 96 39 dd f1 e7 0a 96 9e bb a7 74 d0 29 a9 8e ab 25 6d f6 85 d6 78 59 1b 63 5a 4c d9 a8 bb 5c a0 d3 1e 04 9e 62 a0 ae 2c 5f 48 3d f2 bc f4 ad 90 04 d3 d6 73 65 92 53 c7 70 85 95 20 37 42 a7 a5 32 e0 b1 a6 80 76 b0 88 f0 b8 02 73 97 98 b0 58 38 29 c5 20 98 07 40 46 64 14 29 69 84 d4 37 89 ea fa d9 78 08 68 30 02 60 56 8a 68 90 8a 69 14 74 7b d5 b3 04 58 f9 92 14 72 32 8b 4a 79 aa 18 76 a5 27 f4 4a 32 06 0d 27 57 74 bb f1 38 02 18 84 12 3b 31 1d ad da 1c 88 a3 08 4e 43 fa e1 7a 9a 2b 49 a7 c8 fa f0 37 34 48 b8 50 95 bb cb 21 5e 2c 72 e2 28 fc 89 d0 ae 5f 13 72 44 04 89 3b f8 e1 91 ae 6d 8c 24 75 83 00 f1 c5 3d 50 ba 28 8a 30 c4 15 09 dc 46 0a 09 f7 f8 62 25 cc 60 ba 2c d9 20 00 6c 45 ae 4a 06 61 9b ae 81 9c 77 12 1f a7 56 17 d1 d5 8b 21 c3 a3 0c 65 40 e6 6c e8 52 f3 16 d1 9b 12 13 80 7b 6a 53 e1 47 74 9e 76 dc fa b5 6c 4d d3 56 c5 4a b0 40 87 cb 16 af 53 43 d6 74 c2 e2 b1 db ba 17 18 84 9d 6d 34 d5 6b 45 3b 6f 56 4d b5 b3 70 9b b0 6c 67 a7 be c4 d4 a5 1e 3e 41 4e 5b 4e 34 bc 29 cd 58 1d 71 14 ab b0 ca b2 1b 37 c1 1f e8 58 96 c9 6e 1b 28 a3 13 ad fe f4 4a 98 d6 05 ca a3 49 03 d9 67 5a b4 ea d5 ac 5b bb 7e 0d 3b b6 ec d9 b4 6b db be 8d 3b b7 ee dd bc 7b fb e6 5d 00 00 3b"
strHexImage(1,1) = "MT23c"
strHexImage(2,0) = "47 49 46 38 39 61 70 00 23 00 91 00 00 00 00 00 cc cc 00 66 66 00 ff ff 00 21 f9 04 04 14 00 ff 00 2c 00 00 00 00 70 00 23 00 00 02 ff 84 6f a2 c8 ed 0f a3 9c b4 36 11 c2 d8 3b 4c 2c 58 e2 48 96 49 a7 64 da 10 09 9d 09 c7 b2 eb 61 e8 eb b8 43 10 ca be d4 f3 6d 00 1a 4c 91 13 3c e8 3c be 25 6f 01 48 31 11 19 85 f5 aa e2 ec 66 1b 1a 60 07 ee 32 56 53 49 26 b2 d2 aa cb 27 b5 36 cd e1 09 59 34 b0 6e 90 ec b0 21 48 be fb 9d f3 f6 14 92 82 f2 13 b5 95 c5 c3 a1 24 56 71 07 e1 44 f6 14 99 34 e6 78 88 a8 15 b2 d2 e3 25 02 12 81 f3 03 99 79 81 c0 68 63 f9 b1 ca f0 d9 14 d7 72 f5 a3 87 69 31 ea a0 c1 d4 6a 91 c6 6b e3 26 03 b7 47 b1 24 1a 16 0b da f7 40 53 c8 78 a1 32 a1 c6 db b2 fc 40 66 65 dd e2 cb 5c d5 66 ab 09 de d0 89 5b 11 46 72 47 6d 90 46 bc 8e 87 aa 0d bc 25 bd a5 3d 01 57 42 16 b9 c9 3c 7f 10 97 84 86 87 76 97 58 10 b1 07 41 57 39 04 46 e4 34 12 f7 ad dd ab 7f da 26 a9 7b b8 2b 59 14 87 cd 97 80 b5 6a 66 c3 61 c8 6b 08 dd ad e2 76 00 5b af 21 0f 13 ed 38 c3 f0 1d 42 17 56 be a4 7a e6 8a df 05 71 fa a8 40 dc e7 cf 9d cc 2a 06 dd 51 64 d3 50 47 ba 74 e3 34 e6 6c a5 e5 12 c7 0a 9d 9a be 1b b9 8e 23 2e 9a 3b ee 74 4d 93 ab 64 14 5e 51 31 32 84 02 b4 1d 99 ae 29 df 51 c4 33 72 89 95 45 0b bd 12 04 ba c5 08 8e 90 17 4d ca 8a 59 54 09 bb 24 ec 9c b6 c5 39 c2 6b 97 49 6c 41 89 58 f8 68 56 ae 0c 3f 8b d5 d4 34 d5 54 0e cd 9c 03 b9 ed 0c 3a 34 c9 ca a2 4b 67 12 18 d4 b4 6a 53 45 26 ae 7e cd 05 2e 4b d8 b4 61 e8 d2 54 3b 77 be bc b3 75 fb be d7 45 c7 ef e1 40 90 a4 26 8e fc 30 e9 e4 bf 9b 31 7f 6e ba 00 00 3b"
strHexImage(2,1) = "Ki57y"
strHexImage(3,0) = "47 49 46 38 39 61 70 00 23 00 91 00 00 00 00 ff f0 f0 0f 56 56 a9 af af 50 21 f9 04 04 14 00 ff 00 2c 00 00 00 00 70 00 23 00 00 02 ff 84 8f a9 cb ed 0f a3 9c b4 da 8b b3 de bc fb 0f 86 92 40 96 a4 88 a6 8f 10 b4 ee 1b 18 c3 3c 9b c2 71 aa ba 25 0c f0 70 ea b5 66 2f 03 0b 36 a4 01 4d 89 dc 0e 44 6c dd 12 d1 00 f0 50 a5 bd 7c 30 84 af 04 61 3e 1d d1 c1 22 16 98 e2 5c 6a 6e da 48 34 1b 91 2f 35 c0 c5 b5 03 84 72 1d 2b af 30 74 06 d0 67 60 d5 82 70 63 75 40 87 b7 16 33 d7 e7 06 d9 e0 94 21 84 98 98 a9 c0 a2 87 59 48 f8 76 67 45 43 c2 85 73 a7 09 89 b9 d8 00 a8 51 e6 25 ba a0 27 f3 ba 76 c3 a5 a4 85 20 a5 8a 73 cb c9 a6 71 e4 6b 48 39 51 8c dc 34 db db 66 1c 09 bc b9 a0 bb 51 15 6d 11 55 8b b5 dd ca e8 3d da fb e5 d0 b3 5d 71 f8 56 67 81 9e 8d ac 3c 05 8d 39 f6 0e 63 5e 59 4d c1 d2 54 76 64 17 67 64 8f 43 95 34 e8 40 41 d0 96 af 99 2d 37 06 d9 6c b1 f3 87 43 c1 3d 55 02 06 72 91 d0 20 45 37 db 7a 2a 9a 12 c5 71 83 32 2c b1 46 04 83 30 4d 16 ba 66 87 24 8d fb b8 ec 42 c9 8d c3 22 a0 b3 28 ab d6 11 42 33 e5 cd d9 44 04 27 ca 60 5a 14 32 28 a6 91 81 0f 83 11 6d 09 32 34 ce a9 a4 94 17 46 6a c2 f7 00 61 84 9d cc dc 39 a2 38 ed 15 1f 81 58 23 d5 74 50 64 2b d5 51 1d 8d fd 83 e3 0d a3 c4 93 3c cb d2 b2 7b 14 da a3 8b 7d e4 1e 13 35 d6 5a c8 ae 67 cf d0 3d 03 0e 4b e2 7e 52 a5 51 0a 7a 89 95 94 8e 93 ae 50 1b 8c 76 6d a8 42 8a d4 1c 6a 13 d5 a7 cc 46 be 94 21 e9 3a 0a 8f bd 53 79 01 a7 82 6b ac d8 94 c3 23 6c d8 00 68 1b 4c 22 1b 4a c8 18 55 79 d6 34 c1 7a f5 c6 a4 10 aa 7b 37 13 db 7b 6e 1b 7f 0e 3d ba f4 e9 d4 ab 5b bf 8e 3d bb f6 ed db 0b 00 00 3b"
strHexImage(3,1) = "KT78hi"
strHexImage(4,0) = "47 49 46 38 39 61 70 00 23 00 91 00 00 00 00 ff f0 f0 0f 50 50 af a6 a6 59 21 f9 04 04 14 00 ff 00 2c 00 00 00 00 70 00 23 00 00 02 ff 84 8f a9 cb ed 0f a3 9c b4 da 8b b3 de bc fb 0f 86 e2 48 96 e6 89 a6 ea ca b6 ae 22 c4 4f 2c 2b 03 44 e7 7a ae 0d 02 39 08 04 82 c3 5f 42 20 1c 0a 8d 06 e4 70 00 8d fa 00 ce a4 f5 9a c4 10 47 42 aa 81 c8 a4 06 00 37 f1 f0 40 c4 2e cd 67 76 59 00 6d 4f ae e5 4f 90 7c a8 22 92 cc 5b 3b 28 15 d5 e5 15 10 a6 34 96 87 14 86 e3 c3 f7 51 65 28 f4 36 56 b8 b7 26 19 b8 65 20 f7 05 96 70 67 11 87 d8 21 1a 26 da b9 76 60 05 50 a9 c0 b9 b0 ea a1 54 b7 71 f8 e9 79 68 0a b6 a8 4a bb 50 ea 01 c9 81 a4 89 46 e4 e7 99 77 cc 40 3c b3 fc 8b 25 9a 85 70 ba 01 37 6d 2c c9 9a dc 64 0b cd eb 5a 0c 93 56 49 dc ba 07 b8 21 ea bb be 9d da 3b 68 73 de d0 de 60 5e 19 04 5e e5 5b 51 9f 7d e6 6f 13 37 4b e0 8e c4 72 70 48 dc ad 77 a1 9e fd bb 11 90 cc c0 6e a3 1e e4 82 20 e8 55 02 6f a7 17 ae c5 43 05 d0 21 48 7e 0a ed 89 b4 97 10 a5 b6 8e 1c 41 fe b8 b7 70 de 26 8d 0d 5a 5a 3c 49 6d e2 1c 85 c0 dc 55 94 c8 70 26 3f 7a 38 19 60 0a 0a ef e7 84 9e 33 e3 09 43 83 2d cf ca 08 55 94 7e bb 37 d4 e3 50 1c 4a 98 3c fd 12 35 09 c9 a9 11 52 3a 70 62 44 1a 2f a6 14 d2 a0 d9 e6 8a 95 11 3d ae 90 32 ab 5a 44 df 13 7c 74 fa 44 2b 48 8f d5 5e 3c bf b6 a5 01 17 d5 01 b9 68 75 e9 a8 31 a2 c6 ee d9 34 53 4c 46 01 0c 07 30 8c 1d 3c 60 bc f8 0c 3a b4 e8 d1 a4 4b 9b 3e 8d 3a b5 ea d5 ac 5b 33 28 00 00 3b"
strHexImage(4,1) = "007Tx1"
strHexImage(5,0) = "47 49 46 38 39 61 70 00 23 00 91 00 00 00 99 cc f0 f9 0c 5f bf 80 af df 40 21 f9 04 04 14 00 ff 00 2c 00 00 00 00 70 00 23 00 00 02 ff 84 8f a9 cb ed 0f a3 9c b4 da 8b b3 de bc fb 0f 86 e2 48 96 e6 89 a6 ea ca b6 ae 22 c4 4b 2c 5c f4 8d dc b4 87 83 c2 10 08 d6 10 c0 60 70 30 84 18 97 c2 83 80 19 18 70 8e bf a8 07 08 40 2a 80 03 6e 31 09 79 1a 1b dd 00 18 f3 94 1e b8 9a 27 c0 bc c0 3a cb 01 0a fd 9c 83 6f c4 09 be cd 88 67 a0 b7 f6 35 51 65 d5 30 a8 01 48 84 48 21 e6 08 03 53 38 b1 e4 d0 d5 01 09 d6 44 11 15 64 10 38 53 54 e1 a9 a8 50 97 b9 a4 c5 29 71 58 ca ca 00 99 53 44 95 70 77 a9 46 6b a4 7b 94 b5 94 d4 a5 ab 36 41 67 16 f3 9b c8 ea 27 3b 3b d6 e0 06 aa 0b 00 f9 09 ea 3c 57 1c ca 50 ba 79 dd 57 37 3c 2d 27 68 5a fa a0 78 9b 45 39 1d b9 16 45 ab dd 5c 4d 08 eb 8e ea f4 16 35 84 49 b4 3e 73 6f 20 5d 3a 75 5b f4 05 63 e4 c0 55 9f 22 e1 40 bd 81 01 25 d0 a1 86 a7 ce 08 a4 34 ee 00 ab 83 ca a6 16 f6 92 07 90 5d 48 27 af ea e5 9b c7 80 5f bf 26 5c 7a 41 43 f0 91 5e 3b 79 0d 15 c2 1c d9 ac 58 48 6e 09 71 de f9 01 09 89 a9 51 df 4c 5a 63 43 b3 51 9c 1a 32 aa 0c 14 e7 0d 62 a0 3b 75 82 76 8c 79 13 27 39 94 ea 36 0e bb 51 0d 48 92 34 5c 4b 51 24 19 aa 58 34 7f 1a 67 8a 09 c5 ac ed 3c 6a 50 50 bd cd 7a 8a 61 4a ad 82 88 8a 43 5a b0 a6 d1 80 6f 86 c1 b3 56 d7 8a 9a a0 1a b3 c4 51 a5 03 eb 02 4f 63 01 43 d4 47 b8 63 23 83 08 df ea 18 88 e5 48 d4 59 bc 10 2a 01 53 83 6f 34 26 67 3d d6 72 a2 23 36 9e 1f c1 e2 c1 ae 6d bb cf 19 19 11 76 bc f8 0d 3c b8 f0 e1 c4 8b 1b 3f 8e 3c b9 f2 e5 cc 59 14 00 00 3b"