/ / setTimeout的增加参数
的<script> 
风险 _st = window.setTimeout; 
window.setTimeout = 功能（fRef，使用mdelay）{ 
 如果（typeof运算fRef =='功能'）{ 
  VaR的 申辩= 阵）。prototype.slice.call（参数，2; 
  风险值 f =（函数（）{fRef.apply（空，申辩）;}）; 
  返回 _st（女，使用mdelay）; 
 } 
 返回 _st（fRef，使用mdelay）; 
} 
功能 测试（x）的{ 
 警报（十）; 
} 
window.setTimeout（测试，1000，'fason'）; 
</脚本>

/ /自定义的应用，呼叫
Function.prototype.apply的= 功能 （OBJ文件，申辩）{ 
 如果 （obj的）obj.constructor.prototype._caller = 本;  
 风险 乌鳢= 新的 阵列（）; 
 为（风险值 = 0;我<argu.length，我+ +） 
  阿古斯[我] = “申辩[” +我+ “]”; 
 风险 ?; 
 的eval（“ 住宅=” +（obj的（？“obj._caller（” + argus.join（“”）+ “）;”）：（ “本（” + argus.join（“”）+ “） ;“）））; 
 返回 ?; 
}; 
Function.prototype.call = 功能 （obj的）{ 
 VaR的 申辩= 新的 阵列（）; 
 为（风险 我= 1;我<的arguments.length;我+ +） 
  申辩[的i - 1] =参数[我]; 
 返回 本）。适用（obj的，申辩; 
};       

/ /下载文件
功能 址址（strRemoteURL，strLocalURL） 
{ 
 尝试 
 { 
  风险 的XMLHTTP =新 的ActiveXObject（“Microsoft.XMLHTTP”）; 
  xmlHTTP.open（“ 获取”，strRemoteURL，假）; 
  xmlHTTP.send（）; 
  风险 adodbStream =新 的ActiveXObject（“的ADODB.Stream”）; 
  adodbStream.Type = 1;/ / 1 = adTypeBinary 
  adodbStream.Open（）; 
  adodbStream.write（xmlHTTP.responseBody）; 
  adodbStream.SaveToFile（strLocalURL，2）; 
  adodbStream.Close（）; 
  adodbStream =空; 
  XMLHTTP的=空; 
   
 } 
 赶上（五） 
 { 
  window.confirm（“ 下载网址出错！”）; 
 } 
 / / window.confirm（“ 下载完成。”）; 
}

/ /检验连接是否有效
功能 getXML（网址）  
{ 
 风险 的XMLHTTP = 新 的ActiveXObject（“microsoft.xmlhttp”）; 
 xmlhttp.Open（“GET”的，网址， 假）;  
 尝试 
 {  
  xmlhttp.Send（）; 
 } 
 赶上（五）{} 
 最后  
 { 
  VaR的 结果= xmlhttp.responseText; 
  如果（结果）  
  { 
   如果（xmlhttp.Status == 200） 
   { 
    返回（真）; 
   } 
   其他  
   { 
    返回（假）; 
   } 
  } 
  其他  
  { 
   返回（假）; 
  } 
 } 
}
/ /邮政代替表格
<脚本语言=“VBScript中”> 
功能URLEncoding（vstrIn） 
    strReturn = “” 
    对于i = 1为len（vstrIn） 
        ThisChr =中等（vStrIn，一，1） 
        如果ABS装置（升序（ThisChr））<＆HFF石英晶然后 
            strReturn = strReturn＆ThisChr 
        其他 
            innerCode =升序（ThisChr） 
            如果innerCode <0，则 
                innerCode = innerCode +＆H10000 
            结束如果 
            Hight8 =（innerCode和＆HFF00）\＆HFF石英晶 
            Low8 =和＆HFF石英晶innerCode 
            strReturn = strReturn＆ “％” ＆十六进制（Hight8）＆   “％” ＆十六进制（Low8）  
        结束如果 
    下一页 
    URLEncoding = strReturn 
完功能 
功能bytes2BSTR（VIN）的 
    strReturn = “” 
    对于i = 1到的LenB（VIN）的 
        ThisCharCode =的AscB（MidB（VIN，这我，1）） 
        如果ThisCharCode <＆H80然后 
            strReturn = strReturn及染色体（ThisCharCode） 
        其他 
            NextCharCode =的AscB（MidB（VIN，这我+1,1）） 
            strReturn = strReturn及染色体（CLng函数（ThisCharCode）*＆H100的256 +（NextCharCode）） 
            我=我+ 1 
        结束如果 
    下一页 
    bytes2BSTR = strReturn 
完功能 
昏暗strA，oReq 
strA = URLEncoding（“submit1 =提交与文本1 =中文”） 
设置oReq =的CreateObject（“MSXML2.XMLHTTP”） 
oReq.open “邮政”，“网址：Http：/ /服务器名/ VDir / TstResult.asp“， 假 
oReq.setRequestHeader “内容长度”，莱恩（strA） 
oReq.setRequestHeader “内容型”，“应用程序/ x - www的形式，进行了urlencoded” 
oReq.send strA 
msgbox bytes2BSTR（oReq.responseBody） 
</脚本>
/ / readyState的是XMLHTTP的返回数据的进度，0 =载入中，1 =未初始化，2 =已载入，3 =运行中，4 =完成
 
 
 
 
/ /组件是否安装 
isComponentInstalled（“{6B053A4B - A7EC - 4D3D - 4567 - B8FF8A1A5739}”，“的ComponentID”））
/ /检查网页是否存在 
 
功能 CheckURL（网址） 
{ 
  风险 的XMLHTTP = 新 的ActiveXObject（“Microsoft.XMLHTTP”）; 
  xmlhttp.Open（“GET”的，网址， 假）; 
  尝试 
  {  
    xmlhttp.Send（）;  
    VaR的 结果= xmlhttp.status; 
  } 
  赶上（五）{返回（假）;} 
  如果（结果== 200） 
  {  
    返回 真; 
  } 
  XMLHTTP的= 空; 
  返回 假; 
}
 
/ /连接数据库 
 
<脚本语言=“JavaScript的”> 
  / /用的JavaScript写服务器端连接数据库的代码示例 
  风险 康恩= 新 的ActiveXObject（“ADODB.Connection”）; 
  conn.Open（“ 供应商= SQLOLEDB.1; =本地主机的数据源，用户ID = SA的;” 
    +“密码=;初始目录=酒吧”）; 
  风险 的RS = 新 的ActiveXObject（“ADODB.Recordset”）; 
  风险值 的sql =“选择*从作者”; 
  rs.open（SQL中，康恩）; 
 shtml = “<表width='100%' border=1>”; 
 shtml + =“<tr bgcolor='#f4f4f4'> <td> au_id </运输署> <td>的au_lname </运输署> <td> au_fname </运输署> <td>电话</运输署> <