常用的一些javascript小技巧[2]

//setTimeout增加参数 
 
var _st = window.setTimeout; 
window.setTimeout = function(fRef, mDelay) { 
 if(typeof fRef == 'function'){ 
  var argu = Array.prototype.slice.call(arguments,2); 
  var f = (function(){ fRef.apply(null, argu); }); 
  return _st(f, mDelay); 
 } 
 return _st(fRef,mDelay); 
} 
function test(x){ 
 alert(x); 
} 
window.setTimeout(test,1000,'fason'); 
 

 [Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
//自定义的apply,call 


Function.prototype.apply = function (obj, argu) { 
 if (obj) obj.constructor.prototype._caller = this;  
 var argus = new Array(); 
 for (var i=0;i  argus[i] = "argu[" + i + "]"; 
 var r; 
 eval("r = " + (obj ? ("obj._caller(" + argus.join(",") + ");") : ("this(" + argus.join(",") + ");"))); 
 return r; 
}; 
Function.prototype.call = function (obj) { 
 var argu = new Array(); 
 for (var i=1;i  argu[i-1] = arguments[i]; 
 return this.apply(obj, argu); 
};        


//下载文件 


function DownURL(strRemoteURL,strLocalURL) 
{ 
 try 
 { 
  var xmlHTTP=new ActiveXObject("Microsoft.XMLHTTP"); 
  xmlHTTP.open("Get",strRemoteURL,false); 
  xmlHTTP.send(); 
  var adodbStream=new ActiveXObject("ADODB.Stream"); 
  adodbStream.Type=1;//1=adTypeBinary 
  adodbStream.Open(); 
  adodbStream.write(xmlHTTP.responseBody); 
  adodbStream.SaveToFile(strLocalURL,2); 
  adodbStream.Close(); 
  adodbStream=null; 
  xmlHTTP=null; 
   
 } 
 catch(e) 
 { 
  window.confirm("下载URL出错!"); 
 } 
 //window.confirm("下载完成."); 
} 


//检验连接是否有效 


function getXML(URL)  
{ 
 var xmlhttp = new ActiveXObject("microsoft.xmlhttp"); 
 xmlhttp.Open("GET",URL, false);  
 try 
 {  
  xmlhttp.Send(); 
 } 
 catch(e){} 
 finally  
 { 
  var result = xmlhttp.responseText; 
  if(result)  
  { 
   if(xmlhttp.Status==200) 
   { 
    return(true); 
   } 
   else  
   { 
    return(false); 
   } 
  } 
  else  
  { 
   return(false); 
  } 
 } 
} 


//POST代替FORM 
 
Function URLEncoding(vstrIn) 
    strReturn = "" 
    For i = 1 To Len(vstrIn) 
        ThisChr = Mid(vStrIn,i,1) 
        If Abs(Asc(ThisChr)) < &HFF Then 
            strReturn = strReturn & ThisChr 
        Else 
            innerCode = Asc(ThisChr) 
            If innerCode < 0 Then 
                innerCode = innerCode + &H10000 
            End If 
            Hight8 = (innerCode  And &HFF00)\ &HFF 
            Low8 = innerCode And &HFF 
            strReturn = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8) 
        End If 
    Next 
    URLEncoding = strReturn 
End Function 
Function bytes2BSTR(vIn) 
    strReturn = "" 
    For i = 1 To LenB(vIn) 
        ThisCharCode = AscB(MidB(vIn,i,1)) 
        If ThisCharCode < &H80 Then 
            strReturn = strReturn & Chr(ThisCharCode) 
        Else 
            NextCharCode = AscB(MidB(vIn,i+1,1)) 
            strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
            i = i + 1 
        End If 
    Next 
    bytes2BSTR = strReturn 
End Function 
dim strA,oReq 
strA = URLEncoding("submit1=Submit&text1=中文") 
set oReq = CreateObject("MSXML2.XMLHTTP") 
oReq.open "POST","  
oReq.setRequestHeader "Content-Length",Len(strA) 
oReq.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded" 
oReq.send strA 
msgbox bytes2BSTR(oReq.responseBody) 
 

 [Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
//readyState是xmlhttp返回数据的进度，0=载入中,1=未初始化,2=已载入,3=运行中,4=完成
//组件是否安装 


isComponentInstalled("{6B053A4B-A7EC-4D3D-4567-B8FF8A1A5739}", "componentID")) 


//检查网页是否存在 



function CheckURL(URL) 
{ 
  var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); 
  xmlhttp.Open("GET",URL, false); 
  try 
  {  
    xmlhttp.Send();  
    var result = xmlhttp.status; 
  } 
  catch(e) {return(false); } 
  if(result==200) 
  {  
    return true; 
  } 
  xmlhttp = null; 
  return false; 
} 


//连接数据库 

 
  //用 JavaScript 写服务器端连接数据库的代码示例 
  var conn = new ActiveXObject("ADODB.Connection"); 
  conn.Open("Provider=SQLOLEDB.1; Data Source=localhost; User ID=sa; " 
    +"Password=; Initial Catalog=pubs"); 
  var rs = new ActiveXObject("ADODB.Recordset"); 
  var sql="select * from authors"; 
  rs.open(sql, conn); 
 shtml = ""; 
 shtml +="au_idau_lnameau_fnamephoneaddress citystatezip"; 
  while(!rs.EOF) 
  { 
 shtml += "" + rs("au_id") + "" + rs("au_lname") + "" + rs("au_fname") + "" + rs("phone") + "" + rs("address") + "" + rs("city") + "" + rs("state") + "" + rs("zip") + ""; 
 rs.moveNext; 
  } 
  shtml += ""; 
  document.write(shtml); 
  rs.close();  
  rs = null;  
  conn.close();  
  conn = null; 


 [Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行] 
//使用数据岛 

 
 
srno：
 
times：
 
 
   
" onclick="xmldate.recordset.moveNext()">   
>" onclick="xmldate.recordset.moveLast()">    
   

 
 
20041025-01null 
20041101-092004年10月1日2点22分0秒 
 
 
 


 [Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行] 
//获得参数 
 
search 
 
 
 
 

 [Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
//可编辑SELECT 
 
                11111111 
                222222 
                333333 
               
               


 [Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

//设置光标位置 



function getCaret(textbox) 
{ 
 var control = document.activeElement; 
 textbox.focus(); 
 var rang = document.selection.createRange(); 
  rang.setEndPoint("StartToStart",textbox.createTextRange()) 
 control.focus(); 
 return rang.text.length; 
} 
function setCaret(textbox,pos) 
{ 
 try 
 { 
  var r =textbox.createTextRange(); 
   r.moveStart('character',pos); 
   r.collapse(true); 
   r.select(); 
 } 
 catch(e) 
 {} 
} 
function selectLength(textbox,start,len) 
{ 
 try 
 { 
  var r =textbox.createTextRange(); 
  
  r.moveEnd('character',len-(textbox.value.length-start)); 
  r.moveStart('character',start); 
   
  r.select(); 
 } 
 catch(e) 
 {//alert(e.description)} 
} 
function insertAtCaret(textbox,text) 
{ 
 textbox.focus(); 
 document.selection.createRange().text = text; 
} 


//页内查找 



function findInPage(str) 
{ 
 var txt, i, found,n = 0; 
 if (str == "") 
 { 
  return false; 
 } 
 txt = document.body.createTextRange(); 
 for (i = 0; i <= n && (found = txt.findText(str)) != false; i++) 
 { 
  txt.moveStart("character", 1); 
  txt.moveEnd("textedit"); 
 } 
 if (found) 
 { 
  txt.moveStart("character", -1); 
  txt.findText(str); 
  txt.select(); 
  txt.scrollIntoView(); 
  n++;   
 } 
 else 
 { 
  if (n > 0) 
  { 
   n = 0; 
   findInPage(str); 
  } 
  else 
  { 
   alert(str + "...            您要找的文字不存在。\n \n请试着输入页面中的关键字再次查找！"); 
  } 
 } 
 return false; 
}