0.
1. CLEAR Get BG2312 3755 URL = < input id = inpu2c size = 10 readonly> baidu google < BR> iframe>
3. betWeen < Br> IF (InputA.Value% InputF.Value == 0) // if NEED GIVE A Report {Report () // Give a report}} Function f_inpu0z () {INPU0B.VALUE = INPU0A.VALUE / / STOP !!!} Function f_radi1 () {if (radi1 [0] .checked == true) {INPU0A.VALUE = 0 // set autorun start infuse v = 0 // set autorun end text1.value = ''} else =} else = 1] .checked == True) // if NEED 6763 of GB2312 {INPU0A.VALUE = 0 // set autorun start infuse = 6763 // set autorue End Tmpstr = TEXT0.VALUE / / GET GB2312 FULL STRING TMPSTR = Tmpstr . Substring (Tmpstr.indexof ("01"), TMPSTR.LENGTH) / / DEL "... GB 2312-80" TMPSTR = TmpStr.Replace (/ [^ / U4E00- / U9FA5] / g, "") / / del no gb2312 text1.value = tmpstr // put string to text1} else if (radi1 [2] .checked == true) // if NEED 3755 of GB2312 {INPU0A.VALUE = 0 // set autorun start inputb.value = 3755 // set autorun end tmpstr = TEXT0.Value // Get GB2312 FULL STRING TMPSTR = Tmpstr.SUBSTRING (Tmpstr.indexof ("01"), TMPSTR.LENGTH) // DEL "... GB 2312-80" TMPSTR = TmpStr.replace (/ [^ / U4E00- / U9FA5] / g, "") // del no gb2312 text1.value = tmpstr // Put String to text1 text1.value = text1.value.substring (0,3755) // Get the first 3755 char}} function f_inpu2 () { Inpu2c.value = text1.value.charat (inpu2a.value) // Current char IF (radi2 [1] .checked == true) // if Google {INPU2C.VALUE = Encodeuricomponent (Inpu2c.value) // Change String to Encode for Google} Tmpsrc = ' iframe> '// prepare the search charr Document.all.ifra2.outerHTML = Tmpsrc // Run Search Inpu2a.value // prepare next search} Function f_RADI2 () {if (radi2 [0] .checked == true) // if baidu {infuse=value = "http://www1.baidu.com/baidu?word=" infuses Value = "" INPU2D. Value = "" INPU3A.VALUE = "Baidu finds the relevant webpage" INPU3B.VALUE = "articles, when used" INPU3C.VALUE = "} else if (radi2 [1] .checked == true) // if Google {INPU2B.VALUE = "http://www.google.com/search?hl=zh-cn&ie=utf-8&oE=utf-8&q=" inpu2c.value = "" INPU2D.VALUE = "& lr = lang_zh-cn" Inpu3a.value = "A total of " inpu3b.value = " b> item query results, this is the" INPU3C.VALUE = "}} Function F_inpu3 () {if (Radi2 [0] .Checked == True) // if baidu {text3.value = bytes2bstr (loadContent (Document.getElementByid ("iFra2"). src) // put source} else if (radi2 [1] .Checked == true) // if Google { Text3.Value = loadingutf8 (Document.getlementByid ("iFra2"). SRC) // The source of Google IS UTF-8} tmpstr = text3.value if (tmpstr.indexOf (inpu3a.value)> - 1 && tmpstr.indexOf (inpu3b.value)> - 1) // if found {tmpstr = tmpstr.substring (tmpstr.indexOf (inpu3a.value) inpu3a .Value.Length, TMPSTR.Indexof (Inpu3b.Value)) // Get useful source} else {tmpstr = ":(" // if not found} infu3c.value = tmpstr // Write to inputf8 ( Strurl) // for Google (used for "function f_inpu3 ()") {var strcontent = ""; if (TypeOf strurl! = "String" || Strurl == ") Return StrContent; try {var oproxy = new ActiveXObject ("Microsoft.xmlhttp"); oproxy ["get", strurl, false; oproxy ["send"] (); strcontent = oproxy ["responsetext"]; // Get text html //// strContent = oProxy [ "responseBody"]; // get Bin html, and then change2text} catch (e) {status = e.description} return strContent;} function loadContent (strURL) // I get this code from a friend (used For "function f_inpu3 ()") {var strcontent = ""; if (TypeOf Strull! = "String" || Strurl == ") Return strcontent; try { Var oproxy = new activXObject ("Microsoft.xmlhttp"); oproxy ["get", strurl, false); oproxy ["send"] (); /// strcontent = oproxy ["responsetext"]; // get Text html strContent = oProxy [ "responseBody"]; // get Bin html, and then change2text} catch (e) {status = e.description} return strContent;} function bytes2bstr (vin) // Have this code from a friend (use for "function f_inpu3 ()") {var st = new activiXObject ("adodb.stream") with (st) {type = 2 // var adtypebinary = 1; var adtypetext = 2 open () WriteText (vin) position = 0 charset = "gb2312" position = 2 retURN readText}} function f_inpu4 () {text4.Value = text4.value text1.value .CHARAT (INPU2A.VALUE-1) '/ T' INPU3c.Value '/ n' // Get Current Full Result to Text4 TEXT4.Scrolltop = Text4.ScrollHeight // Scroll Down To Bottom Inpu4a.value = text4.value.split ('/ n'). Length-1 // Totol line} Function PageDown () {document.body.scrolltop = Document.body.clientHeight / 2 // Scroll Down Half Screen} Function PageUp () {document.body.scrolltop - = document.body.clientHeight // Scroll Up a screen} Function report () {// alert ()} script>
IF (InputA.Value% InputF.Value == 0) // if NEED GIVE A Report {Report () // Give a report}}
Function f_inpu0z () {INPU0B.VALUE = INPU0A.VALUE / / STOP !!!}
Function f_radi1 () {if (radi1 [0] .checked == true) {INPU0A.VALUE = 0 // set autorun start infuse v = 0 // set autorun end text1.value = ''} else =} else = 1] .checked == True) // if NEED 6763 of GB2312 {INPU0A.VALUE = 0 // set autorun start infuse = 6763 // set autorue End Tmpstr = TEXT0.VALUE / / GET GB2312 FULL STRING TMPSTR = Tmpstr . Substring (Tmpstr.indexof ("01"), TMPSTR.LENGTH) / / DEL "... GB 2312-80" TMPSTR = TmpStr.Replace (/ [^ / U4E00- / U9FA5] / g, "") / / del no gb2312 text1.value = tmpstr // put string to text1} else if (radi1 [2] .checked == true) // if NEED 3755 of GB2312 {INPU0A.VALUE = 0 // set autorun start inputb.value = 3755 // set autorun end tmpstr = TEXT0.Value // Get GB2312 FULL STRING TMPSTR = Tmpstr.SUBSTRING (Tmpstr.indexof ("01"), TMPSTR.LENGTH) // DEL "... GB 2312-80" TMPSTR = TmpStr.replace (/ [^ / U4E00- / U9FA5] / g, "") // del no gb2312 text1.value = tmpstr // Put String to text1 text1.value = text1.value.substring (0,3755) // Get the first 3755 char}} function f_inpu2 () { Inpu2c.value = text1.value.charat (inpu2a.value) // Current char
IF (radi2 [1] .checked == true) // if Google {INPU2C.VALUE = Encodeuricomponent (Inpu2c.value) // Change String to Encode for Google}
Tmpsrc = ' iframe> '// prepare the search charr
Document.all.ifra2.outerHTML = Tmpsrc // Run Search
Inpu2a.value // prepare next search}
Function f_RADI2 () {if (radi2 [0] .checked == true) // if baidu {infuse=value = "http://www1.baidu.com/baidu?word=" infuses Value = "" INPU2D. Value = "" INPU3A.VALUE = "Baidu finds the relevant webpage" INPU3B.VALUE = "articles, when used" INPU3C.VALUE = "} else if (radi2 [1] .checked == true) // if Google {INPU2B.VALUE = "http://www.google.com/search?hl=zh-cn&ie=utf-8&oE=utf-8&q=" inpu2c.value = "" INPU2D.VALUE = "& lr = lang_zh-cn" Inpu3a.value = "A total of " inpu3b.value = " b> item query results, this is the" INPU3C.VALUE = "}} Function F_inpu3 () {if (Radi2 [0] .Checked == True) // if baidu {text3.value = bytes2bstr (loadContent (Document.getElementByid ("iFra2"). src) // put source} else if (radi2 [1] .Checked == true) // if Google { Text3.Value = loadingutf8 (Document.getlementByid ("iFra2"). SRC) // The source of Google IS UTF-8}
tmpstr = text3.value if (tmpstr.indexOf (inpu3a.value)> - 1 && tmpstr.indexOf (inpu3b.value)> - 1) // if found {tmpstr = tmpstr.substring (tmpstr.indexOf (inpu3a.value) inpu3a .Value.Length, TMPSTR.Indexof (Inpu3b.Value)) // Get useful source} else {tmpstr = ":(" // if not found} infu3c.value = tmpstr // Write to inputf8 ( Strurl) // for Google (used for "function f_inpu3 ()") {var strcontent = ""; if (TypeOf strurl! = "String" || Strurl == ") Return StrContent; try {var oproxy = new ActiveXObject ("Microsoft.xmlhttp"); oproxy ["get", strurl, false; oproxy ["send"] (); strcontent = oproxy ["responsetext"]; // Get text html //// strContent = oProxy [ "responseBody"]; // get Bin html, and then change2text} catch (e) {status = e.description} return strContent;} function loadContent (strURL) // I get this code from a friend (used For "function f_inpu3 ()") {var strcontent = ""; if (TypeOf Strull! = "String" || Strurl == ") Return strcontent; try { Var oproxy = new activXObject ("Microsoft.xmlhttp"); oproxy ["get", strurl, false); oproxy ["send"] (); /// strcontent = oproxy ["responsetext"]; // get Text html strContent = oProxy [ "responseBody"]; // get Bin html, and then change2text} catch (e) {status = e.description} return strContent;} function bytes2bstr (vin) // Have this code from a friend (use for "function f_inpu3 ()") {var st = new activiXObject ("adodb.stream") with (st) {type =
2 // var adtypebinary = 1; var adtypetext = 2 open () WriteText (vin) position = 0 charset = "gb2312" position = 2 retURN readText}} function f_inpu4 () {text4.Value = text4.value text1.value .CHARAT (INPU2A.VALUE-1) '/ T' INPU3c.Value '/ n' // Get Current Full Result to Text4 TEXT4.Scrolltop = Text4.ScrollHeight // Scroll Down To Bottom
Inpu4a.value = text4.value.split ('/ n'). Length-1 // Totol line}
Function PageDown () {document.body.scrolltop = Document.body.clientHeight / 2 // Scroll Down Half Screen}
Function PageUp () {document.body.scrolltop - = document.body.clientHeight // Scroll Up a screen}
Function report () {// alert ()} script>