captcha_image.asp

来自「简单的asp论坛源码系统,很适用于初学者!界面简洁,功能齐全」· ASP 代码 · 共 186 行 · 第 1/5 页

'**
'****************************************************************************************              



'*************************** SOFTWARE AND CODE MODIFICATIONS **************************** 
'**
'** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE  
'** AGREEMENT AND IS STRICTLY PROHIBITED
'**
'** If you wish to modify any part of this software a license must be purchased
'**
'****************************************************************************************





'Function to send convert hex to binary output for browser
Private Function displayImage(strHexImage)

	'Dimension variables
	Dim sarryHex		'Holds each hex value in the image
	Dim lngHexArrayPosition	'Holds the array position

	'Place the Hex image into an array
	sarryHex = split(strHexImage, " ")

	'Loop through the array to convert to binary
	For lngHexArrayPosition = 0 to CLng(UBound(sarryHex))

		'Write the binary output
 		Response.BinaryWrite ChrB(CLng("&H" & sarryHex(lngHexArrayPosition)))
	Next

End Function