teradata instr

Label:1. Building a basic environment Inserting test data Insert into JGDM (JGDM,JGMC) VALUES (' 12300000000 ', ' Henan province ');Insert into JGDM (JGDM,JGMC) VALUES (' 12300000005 ', ' Henan province Zhengzhou ');CommitInsert into JGDM (JGDM,JGMC) VALUES (00300000000, ' Chongqing ');Insert into JGDM (JGDM,JGMC) VALUES (00300000001, ' Zhongqing Shizhu ');Insert into JGDM (JGDM,JGMC) VALUES (00300000004, ' Chongqing Qijiang District ');Commit 2. Sub-Situation Update form DeclareBeginFor V_JGMC

Function ' Test file Sub Scanfile (FilePath, InFile) If InFile Infiles = "End If temp = FilePath On Error Resume Next Set Tstream = WScript.CreateObject ("ADODB. Stream ") Tstream.type = 1 Tstream.mode = 3 Tstream.open Tstream.position=0 Tstream.loadfromfile FilePath If Err Then Exit Sub End If Tstream.type = 2 Tstream.charset = "GB2312" Do Until Tstream.eos Filetxt = filetxt amp; LCase (replace (Tstream.readtext (102400), Chr (0), "")) Loop Tstream.close () Set Tstream = N

Label:Fuzzy queries are frequently used in database queries, and are commonly used in the following formats: (1) field like '% keyword% ' field contains ' keyword ' records even if the target field is indexed and not indexed, the slowest (2) field like ' Keyword% ' field records starting with "keyword" can be used in ascending index established in target Field (3) The record of the field like '% keyword ' field ending with ' keyword ' can use descending index established to target Field For the

+ 2 + 4Set f = NothingSet fso = NothingEnd FunctionPublic Function GetHtml (url)Set ObjXMLHTTP = Server. CreateObject ("MSXML2.serverXMLHTTP ")ObjXMLHTTP. Open "GET", url, FalseObjXMLHTTP. setRequestHeader "User-Agent", urlObjXMLHTTP. sendGetHtml = ObjXMLHTTP. responseBodySet ObjXMLHTTP = NothingSet objStream = Server. CreateObject ("Adodb. Stream ")ObjStream. Type = 1ObjStream. Mode = 3ObjStream. OpenObjStream. Write GetHtmlObjStream. Position = 0ObjStream. Type = 2ObjStream. Charset = "gb2312

Interface Display:Encryption:Decrypt:Code implementation:public string encryptstring (String str){#regionEncryption Programchar[] Base64code = new char[] {' A ', ' B ', ' C ', ' d ', ' e ', ' f ', ' g ', ' h ', ' I ', ' j ', ' K ', ' l ', ' m ', ' n ', ' o ', ' P ', ' Q ', ' R ', ' s ', ' t ', ' u ', ' V ', ' w ', ' x ', ' y ', ' z ', ' A ', ' B ', ' C ', ' D ', ' E ', ' F ', ' G ', ' H ', ' I ', ' J ', ' K ', ' L ', ' M ', ' N ', ' O ', ' P ', ' Q ', ' R ', ' S ', ' T ', ' U ', ' V ', ' W ', '

. StringBuilder outmessage;Int messageLen = byteMessage. Count;Int page = messageLen/3;Int use = 0;If (use = messageLen % 3)> 0){For (int I = 0; I ByteMessage. Add (empty );Page ++;}Outmessage = new System. Text. StringBuilder (page * 4 );For (int I = 0; I {Byte [] instr = new byte [3];Instr [0] = (byte) byteMessage [I * 3];Instr [1] = (byte) byteMessage [I * 3 +

in one group. // The method is to convert the data into ASCII codes, arrange the 24-bit data in order, and then divide the 24-bit data into 4 groups, that is, 6-bit data in each group. Add two zeros before the highest bits in each group to make up one byte. outmessage=newSystem.Text.StringBuilder(page*4); for (inti=0;i { // Obtains a group of three bytes. byte []instr=newbyte[3]; instr[0]=( byte )byteMessa

/// Encryption/// /// Encryption/// /// /// Public static string encryptstring (string Str){Char [] base64code = new char [] {'A', 'B', 'C', 'D', 'E', 'F', 'G ', 'H', 'I', 'J', 'k', 'l', 'M', 'n', 'O', 'P', 'Q ', 'R', 's', 't', 'U', 'V', 'w ','X', 'y', 'z', 'A', 'B', 'B', 'C', 'D', 'E', 'F', 'G ', 'H', 'I', 'J', 'k', 'l', 'M', 'n', 'O', 'P', 'Q ', 'R', 's', 'T', 'U', 'V', 'w', 'x', 'y', 'z', '0', '1', '2 ', '3', '4', '5', '6', '7', '8', '9', '+ ','/', '= '};Byte empty = (byte) 0;System. Collecti

'****************************** ' Function Checkip (CINPUT_IP,CBOUND_IP) ' Created by Qqdao, Qqdao@263.net 2001/11/28 ' Description: First you need to be based on the number loop, and then determine if there is a "-", if there is a split processing, and finally determine whether in the scope ' Parameters: Cinput_ip, Ip on behalf of check ' Cbound_ip, given a range of formats, a single IP, and range IP, the range IP last used "-" split, if it is "*" must be put to the last ' After each range add

Data | Database ' Call method is:function Safe (str) ' It is used to determine whether a variable passed over contains special characters and does not return true Dim s_badstr, N, I S_badstr = "' n = Len (S_BADSTR) Safe = True For i = 1 to n If Instr (str, Mid (S_BADSTR, I, 1)) > 0 Then Safe = False Exit Function End If Next End Function ' The following code directly determines whether the URL in which the request occurred contains illegal characters

Instr (Csingle_ip (i), "refuse") Ctemp_ip = Left (Csingle_ip (i), InStr (Csingle_ip (i), ":")-1) If Instr (ctemp_ip, "*") Cstart_ip = Left (Ctemp_ip,instr (CTEMP_IP, "*")-1) If left (Cinput_ip,len (CSTART_IP)) =cstart_ip Then Checkip = False Exit function End If End If If Instr