Chinese BBS component verification code program

[GoogleCodeExporter]

Asp in Dv_ClsMain.
To find the Public Function GetCode ()
Modify the red part
GetCode = Dvbbs. Mainhtml (15) & "< img SRC =" "DV_getcode. Asp" "Alt =" 
"authentication code, see not clear? Please click refresh verification code" 
"style =" "cursor: pointer; height: 30 px;" "Onclick =" this. "SRC = 
'DV_getcode. Asp'" "/ >"
End the Function
Find the admin_login. Asp
< img SRC = "Dv_getcode. Asp" Alt = "authentication code, see not clear? Please 
click refresh verification code" height = "17" style = "cursor: pointer;" The 
onclick = "this. SRC = 'DV_getcode. Asp'" / >
Modified into
< img SRC = "Dv_getcode. Asp" Alt = "authentication code, see not clear? Please 
click refresh verification code" height = "30" style = "cursor: pointer;" The 
onclick = "this. SRC = 'DV_getcode. Asp'" / > < / td > < / tr >
Dv_GetCode. Asp - instead
The < %
'-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
-- -- -- -- -- -- -- -- -- -- -- -- --
'statement: BBS mass is seriously disturbing the order of BBS, seriously 
disturbing the order of network crime, a strong protest and condemnation.
'people are welcome to use the enhanced mobile verification code program.
'-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
-- -- -- -- -- -- -- -- -- -- -- -- --
'the method of use:
'1. The previous dv_getcode. Asp for backup, copy the file to the root 
directory of your BBS.
'2. Server needs to asppainter components support.
'-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
-- -- -- -- -- -- -- -- -- -- -- --
Dim hanzi, CD, upperbound, lowerbound, yzcode, I, codesize, isborder, 
SetFontStrikeout, SetFontBold, PSN
hanzi="'and that's the verification code to use Chinese, you can add or delete, 
or add any characters can be shown.
CD = len (hanzi) 'automatic calculation length
'-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
-- -- -- -- -- -- -- -- -- -- -- --
PSN = "GetCode" 'set the session name, don't change, this is the name of mobile 
Settings
Codesize = 4 'set the authentication code in the number of Chinese characters, 
four more appropriate, more trouble
If there is a side to quantico isborder = true '
Upperbound = 10, 'this is the biggest Chinese characters right rotation Angle
Lowerbound = - 10 'this is the biggest Chinese characters left rotation Angle
Whether SetFontBold = 1 'bold 1 or 0
Whether SetFontStrikeout = 1 'strikethrough 1 or 0
'-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -
Yzcode = "" 'initialize authentication code
Dim SetFormat
SetFormat = 4 'set type 1 - Jpeg image format, type 3 - GIF, type 4 - TIFF, 
type 5 - BMP.
<a href=http://pcb.hqew.net/?s=544864>pcb</a>
'if increase the difficulty of the recognition program, you can then choose. 
Deal with a mass, however, also will be enough
Dim PIC
Set PIC = CreateObject (ASPPainter. Pictures. "1") 'image object is established
PIC. SetFormat SetForma

Original issue reported on code.google.com by ciciswif...@gmail.com on 13 Sep 2013 at 8:21