1. //POST代替FORM   
  2.  
  3.  
  4.  
  5. //组件是否安装   
  6. isComponentInstalled("{6B053A4B-A7EC-4D3D-4567-B8FF8A1A5739}", "componentID"))   
  7.  
  8. //检查网页是否存在   
  9.  
  10.  
  11. function CheckURL(URL)   
  12. {   
  13.   var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");   
  14.    xmlhttp.Open("GET",URL, false);   
  15.    try   
  16.    {    
  17.      xmlhttp.Send();    
  18.     var result = xmlhttp.status;   
  19.    }   
  20.   catch(e) {return(false); }   
  21.   if(result==200)   
  22.    {    
  23.     return true;   
  24.    }   
  25.    xmlhttp = null;   
  26.   return false;   
  27. }   
  28. //连接数据库   
  29.  
  30.  
  31. <script language="javascript">   
  32.   //用 JavaScript 写服务器端连接数据库的代码示例   
  33.   var conn = new ActiveXObject("ADODB.Connection");   
  34.    conn.Open("Provider=SQLOLEDB.1; Data Source=localhost; User ID=sa; "   
  35.      +"Password=; Initial Catalog=pubs");   
  36.   var rs = new ActiveXObject("ADODB.Recordset");   
  37.   var sql="select * from authors";   
  38.    rs.open(sql, conn);   
  39. shtml = "<table width='100%' border=1>";   
  40. shtml +="<tr bgcolor='#f4f4f4'><td>au_id</td><td>au_lname</td><td>au_fname</td><td>phone</td><td>address</td><td> city</td><td>state</td><td>zip</td></tr>";   
  41.   while(!rs.EOF)   
  42.    {   
  43. shtml += "<tr><td>" + rs("au_id") + "</td><td>" + rs("au_lname") + "</td><td>" + rs("au_fname") + "</td><td>" + rs("phone") + "</td><td>" + rs("address") + "</td><td>" + rs("city") + "</td><td>" + rs("state") + "</td><td>" + rs("zip") + "</td></tr>";   
  44. rs.moveNext;   
  45.    }   
  46.    shtml += "</table>";   
  47.    document.write(shtml);   
  48.    rs.close();    
  49.    rs = null;    
  50.    conn.close();    
  51.    conn = null;   
  52. </script>   
  53. //使用数据岛   
  54.  
  55.  
  56.  
  57.  
  58. <html>   
  59. <body>   
  60. srno：<input type=text datasrc=#xmldate DataFLD=srno size="76"><BR>   
  61. times：<input type=text datasrc=#xmldate DataFLD=times size="76"><BR>   
  62. <input id="first" TYPE=button value="<<　第一条记录" οnclick="xmldate.recordset.moveFirst()">   
  63. <input id="prev" TYPE=button value="<上一条记录" οnclick="xmldate.recordset.movePrevious()">     
  64. <input id="next" TYPE=button value="下一条记录>" οnclick="xmldate.recordset.moveNext()">     
  65. <input id="last" TYPE=button value="最后一条记录>>" οnclick="xmldate.recordset.moveLast()">      
  66. <input id="Add" TYPE=button value="添加新记录" οnclick="xmldate.recordset.addNew()">     
  67.  
  68. <XML ID="xmldate">   
  69. <infolist>   
  70. <info ><srno>20041025-01</srno><times>null</times></info>   
  71. <info ><srno>20041101-09</srno><times>2004年10月1日2点22分0秒</times></info>   
  72. </infolist>   
  73. </XML>   
  74. </body>   
  75. </html>   
  76. //获得参数   
  77.  
  78.  
  79.  
  80. <body>   
  81. <a href="javascript:location.href=location.href + '?a=1&b=2'">search</a>   
  82. <script language="JavaScript">   
  83. <!--   
  84. var a = location.search.substr(1);   
  85. if(a.length>0)   
  86. {   
  87. var re = /([^&]*?)\=([^&]*)/g   
  88. var s = a.match(re);   
  89. for(var i= 0;i<s.length;i++)   
  90. {   
  91.    alert(s[i]);   
  92.    alert(s[i].split("=")[1]);   
  93. }   
  94. }   
  95. //-->   
  96. </script>   
  97. </body>   
  98. //可编辑SELECT   
  99.  
  100.  
  101.  
  102. <input type=text name=re_name style="width:100px;height:21px;font-size:10pt;"><span style="width:18px;border:0px solid red;"><select name="r00" style="margin-left:-100px;width:118px; background-color:#FFEEEE;" onChange="document.all.re_name.value=this.value;">   
  103.                  <option value="1">11111111<option>   
  104.                  <option value="2">222222</option>   
  105.                  <option value="3">333333</option>   
  106.                </select>   
  107.                </span>   
  108. //设置光标位置   
  109.  
  110.  
  111. function getCaret(textbox)   
  112. {   
  113. var control = document.activeElement;   
  114. textbox.focus();   
  115. var rang = document.selection.createRange();   
  116.    rang.setEndPoint("StartToStart",textbox.createTextRange())   
  117. control.focus();   
  118. return rang.text.length;   
  119. }   
  120. function setCaret(textbox,pos)   
  121. {   
  122. try   
  123. {   
  124.   var r =textbox.createTextRange();   
  125.     r.moveStart('character',pos);   
  126.     r.collapse(true);   
  127.     r.select();   
  128. }   
  129. catch(e)   
  130. {}   
  131. }   
  132. function selectLength(textbox,start,len)   
  133. {   
  134. try   
  135. {   
  136.   var r =textbox.createTextRange();   
  137.     
  138.    r.moveEnd('character',len-(textbox.value.length-start));   
  139.    r.moveStart('character',start);   
  140.      
  141.    r.select();   
  142. }   
  143. catch(e)   
  144. {//alert(e.description)}   
  145. }   
  146. function insertAtCaret(textbox,text)   
  147. {   
  148. textbox.focus();   
  149. document.selection.createRange().text = text;   
  150. }   
  151.  
  152. //页内查找   
  153.  
  154.  
  155. function findInPage(str)   
  156. {   
  157. var txt, i, found,n = 0;   
  158. if (str == "")   
  159. {   
  160.   return false;   
  161. }   
  162. txt = document.body.createTextRange();   
  163. for (i = 0; i <= n && (found = txt.findText(str)) != false; i++)   
  164. {   
  165.    txt.moveStart("character", 1);   
  166.    txt.moveEnd("textedit");   
  167. }   
  168. if (found)   
  169. {   
  170.    txt.moveStart("character", -1);   
  171.    txt.findText(str);   
  172.    txt.select();   
  173.    txt.scrollIntoView();   
  174.    n++;     
  175. }   
  176. else   
  177. {   
  178.   if (n > 0)   
  179.    {   
  180.     n = 0;   
  181.     findInPage(str);   
  182.    }   
  183.    else   
  184.    {   
  185.     alert(str + "...             您要找的文字不存在。\n \n请试着输入页面中的关键字再次查找！");   
  186.    }   
  187. }   
  188. return false;   
  189. }   
  190.  
  191. <SCRIPT language="VBScript">   
  192. Function URLEncoding(vstrIn)   
  193.      strReturn = ""   
  194.      For i = 1 To Len(vstrIn)   
  195.          ThisChr = Mid(vStrIn,i,1)   
  196.          If Abs(Asc(ThisChr)) < &HFF Then   
  197.              strReturn = strReturn & ThisChr   
  198.          Else   
  199.              innerCode = Asc(ThisChr)   
  200.              If innerCode < 0 Then   
  201.                  innerCode = innerCode + &H10000   
  202.              End If   
  203.              Hight8 = (innerCode   And &HFF00)\ &HFF   
  204.              Low8 = innerCode And &HFF   
  205.              strReturn = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)   
  206.          End If   
  207.      Next   
  208.      URLEncoding = strReturn   
  209. End Function   
  210. Function bytes2BSTR(vIn)   
  211.      strReturn = ""   
  212.      For i = 1 To LenB(vIn)   
  213.          ThisCharCode = AscB(MidB(vIn,i,1))   
  214.          If ThisCharCode < &H80 Then   
  215.              strReturn = strReturn & Chr(ThisCharCode)   
  216.          Else   
  217.              NextCharCode = AscB(MidB(vIn,i+1,1))   
  218.              strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))   
  219.              i = i + 1   
  220.          End If   
  221.      Next   
  222.      bytes2BSTR = strReturn   
  223. End Function   
  224. dim strA,oReq   
  225. strA = URLEncoding("submit1=Submit&text1=中文")   
  226. set oReq = CreateObject("MSXML2.XMLHTTP")   
  227. oReq.open "POST","http://ServerName/VDir/TstResult.asp",false   
  228. oReq.setRequestHeader "Content-Length",Len(strA)   
  229. oReq.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"   
  230. oReq.send strA   
  231. msgbox bytes2BSTR(oReq.responseBody)   
  232. </SCRIPT>   
  233. //readyState是xmlhttp返回数据的进度，0=载入中,1=未初始化,2=已载入,3=运行中,4=完成