chrb

Com_creatvalidcode () ' Disable caching Response.Expires =-9999 Response.AddHeader "Pragma", "No-cache" Response.AddHeader "Cache-ctrol", "No-cache" Response.ContentType = "Image/bmp" Randomize Dim I, II, III Const Camount = 36 ' text quantity Const ccode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" ' Color data (character, background) Dim Vcolordata (2) Vcolordata (0) = ChrB (0) ChrB (0)

integerDim W3 as integerDim W4 as integerDim N as integerDim retry as stringFor n = 1 to lenb (strconv (decryptedtext, vbfromunicode) Step 3C1 = ASCB (midb $ (decryptedtext, N, 1 ))C2 = ASCB (mid $ (decryptedtext, n + 1, 1) + chrb $(0 ))C3 = ASCB (mid $ (decryptedtext, N + 2, 1) + chrb $(0 ))W1 = int (C1/4)W2 = (C1 and 3) * 16 + int (C2/16)If lenb (strconv (decryptedtext, vbfromunicode)> = n + 1 then W3 =

54 powermanNote:If you need the string value of the file form, use GetFullName ("file ")If you need a file Form file name, use GetFileName ("file ")If you need the file Form Extension, use GetExtName ("file ")If you need the value of a common text form, use MyRequest ("password ")If the binary value of the file form is required, MyRequest ("file") is also used ")Save the file with SaveFile ("file", "myUpload.jpg ")Format

(Upfile_5xsoft_stream.read (1)) If C > 127 Then if Upfile_ 5xsoft_stream.eos then Exit for stemp=stempchr (AscW (ChrB (AscB (1))) CHRB (c)) i=i+1 Else STEMP=STEMPCHR (c) nbsp; End If next substring=stemp End Function Private Function instring (thestart,varstr) dim i,j,bt,thelen,str instring=0 str= ToByte (VARSTR) thelen=lenb (Str) for I=thestart to Upfile_5xsoft_stream.size-thelen

Personal Code Style Comments (the first lowercase alphabetical table in the variable name represents the variable type)I: for the integer type;S: for string;Function U2utf8 (Byval a_inum)Dim Sresult,sutf8Dim Itemp,ihexnum,i Ihexnum = Trim (a_inum) If ihexnum = "" ThenExit FunctionEnd If Sresult = "" If (Ihexnum Sresult = Sresult IhexnumElseIf (Ihexnum Sresult = ChrB (h80 + (Ihexnum and h3f))Ihexnum = Ihexnum h40Sresult =

)Private M_l2power (30)Private Function LShift (LValue, Ishiftbits)If ishiftbits = 0 ThenLShift = LValueExit functionElseIf ishiftbits = ThenIf LValue and 1 ThenLShift = h80000000ElseLShift = 0End IfExit functionElseIf ishiftbits Err.Raise 6End IfIf (LValue and M_l2power (31-ishiftbits)) ThenLShift = ((LValue and M_lonbits ()-(ishiftbits + 1)) * M_l2power (ishiftbits)) Or h80000000ElseLShift = ((LValue and M_lonbits (31-ishiftbits)) * M_l2power (ishiftbits))End IfEnd FunctionPrivate Function Str

Copy Code code as follows: ' Personal Code style note (the first lowercase alphabet in the variable name represents the variable type) ' I: an integer type; ' s: string; Function U2utf8 (Byval a_inum) Dim Sresult,sutf8 Dim Itemp,ihexnum,i Ihexnum = Trim (a_inum) If ihexnum = "" Then Exit Function End If Sresult = "" If (Ihexnum Sresult = Sresult Ihexnum ElseIf (Ihexnum Sresult = ChrB (h80 + (Ihexnum and h3f)) Ihexnum = ihex

(ChrB (AscB (Objstream.read (1)) AMP;CHRB (c))) I=i+1 Else STEMP=STEMPAMP;CHR (c) End If Next Substring=stemp End Function Function instring (THESTART,VARSTR) Dim i,j,bt,thelen,str Instring=0 Str=tobyte (VARSTR) Thelen=lenb (STR) For I=thestart to Objstream.size-thelen If I>objstream.size then Exit Function Objstream. Position=i-1 If AscB (objstream. Read (1)) =ASCB (MidB (str,1)) Then Ins

Upfile_5xsoft_stream.eos then Exit for C=ASCB (Upfile_5xsoft_stream.read (1)) If C > 127 Then If Upfile_5xsoft_stream.eos then Exit for STEMP=STEMPAMP;CHR (AscW (ChrB (AscB (Upfile_5xsoft_stream.read (1)) AMP;CHRB (c))) I=i+1 Else STEMP=STEMPAMP;CHR (c) End If Next Substring=stemp End Function Private Function instring (THESTART,VARSTR) Dim i,j,bt,thelen,str Instring=0 Str=tobyte (VARSTR) T

;setwidth (18);$obActiveSheet->getcolumndimension (' C ')->setwidth (15);$obActiveSheet->getcolumndimension (' D ')->setwidth (15);$obActiveSheet->getcolumndimension (' E ')->setwidth (15);$obActiveSheet->getcolumndimension (' H ')->setwidth (15);Export$this->outputphpexcel ($objPHPExcel, $filename);}/*** Attendance Data Write* @param $SheetIndex Cell Object* @param $Cycle Cycle Data list* @param $_clock Employee Attendance data* @return Number returns the current maximum row count*/Private Func

sresult, suf8Dim itemp, ihexnum, I Ihexnum = trim (a_inum) If ihexnum = "" thenExit FunctionEnd if Sresult = "" If (ihexnum Sresult = sresult ihexnumElseif (ihexnum Sresult = chrb ( h80 + (ihexnum and h3f ))Ihexnum = ihexnum \ h40Sresult = chrb ( hc0 + (ihexnum and h1f) sresultElseif (ihexnum Sresult = chrb ( h80 + (ihexnum and h3f ))Ihexnum = ihexn

, theLen) Dim I, c, stemp Upfile_5xSoft_Stream.Position = theStart-1 Stemp = "" For I = 1 to theLen If upfile_5xSoft_Stream.EOS then Exit C = ascB (upfile_5xSoft_Stream.Read (1 )) If c gt; 127 Then If upfile_5xSoft_Stream.EOS then Exit Stemp = stemp Chr (AscW (ChrB (AscB (upfile_5xSoft_Stream.Read (1) ChrB (c ))) I = I + 1 Else Stemp = stemp Chr (c) End If Next SubString = stemp End function Private Fun

, the text watermark has no opacity.'============== Adjust the text transparency ========================Set MyJpeg = Server. CreateObject ("Persits. Jpeg ")MyJpeg. OpenBinary aaSet Logo = Server. CreateObject ("Persits. Jpeg ")Logo. OpenBinary bbMyJpeg. DrawImage 0.2, Logo, '0. 3 is transparencyCc = MyJpeg. Binary assign the final result to cc, and the target image can also be generated.Response. BinaryWrite CC' will be output to the browser.MyJpeg. Save (server. mappath (paths + filename ))Set

Function tobyte (STR)Dim I, icode, C, ilow, ihighTobyte = ""For I = 1 to Len (STR)C = mid (STR, I, 1)Icode = ASC (c)If icode If icode> 255 thenIlow = left (hex (ASC (c), 2)Ihigh = right (hex (ASC (c), 2)Tobyte = tobyte chrb (" H" ilow) chrb (" H" ihigh)ElseTobyte = tobyte chrb (ASCB (c ))End ifNextEnd Function Function substring (thestart, thelen)Dim I, C,

' Personal Code style note (the first lowercase alphabet in the variable name represents the variable type)' I: an integer type;' s: string;Function U2utf8 (Byval a_inum)Dim Sresult,sutf8Dim Itemp,ihexnum,i Ihexnum = Trim (a_inum) If ihexnum = "" ThenExit FunctionEnd If Sresult = "" If (Ihexnum Sresult = Sresult IhexnumElseIf (Ihexnum Sresult = ChrB (h80 + (Ihexnum and h3f))Ihexnum = Ihexnum h40Sresult = ChrB