HTAをもっと流行らせる計画 Part2

HTAをもっと流行らせる計画 Part2at TECH

HTAをもっと流行らせる計画 Part2 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

42:デフォルトの名無しさん
 08/10/21 22:29:08 
csvのビュワに使ってる 
ソートやfilterが使えて便利 
更新するならexcelじゃないの

43:41
 08/10/23 01:29:49 
ADODB.Recordsetをデータバインド 
 
<html><head><script> 
function listup() { 
 window.event.returnValue = false; 
 var cnnString = "provider=Search.CollatorDSO.1;EXTENDED PROPERTIES=\"Application=Windows\";"; 
 var sql = fm.query.value.replace(/["'\\\%\*"]+/g, " "); 
 sql = (sql.replace(/\s/, "") == "") ? "" : " AND FREETEXT('" + sql + "')"; 
 sql = "SELECT TOP 20 System.ItemURL, System.ItemDate, System.ItemPathDisplayNarrow FROM SystemIndex" 
  + " WHERE System.FileExtension<>'.lnk' " + sql + " ORDER BY System.ItemDate DESC"; 
 var cnn = new ActiveXObject("ADODB.Connection"); 
 var rs = new ActiveXObject("ADODB.Recordset"); 
 cnn.Open(cnnString); 
 rs.CursorType = 3; // adOpenStatic 
 rs.CursorLocation = 3; // adUseClient 
 rs.Open(sql, cnn); 
 dco.SourceRecordset = rs; 
 rs.Close(); 
 cnn.Close(); 
} </script></head><body> 
<object id="dco" classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" width=0 height=0></object> 
<form id="fm" onsubmit="listup()"><input id="query" style="width:60%"/><input type="submit" value="Search"/></form> 
<table datasrc="#dco" border> 
 <thead><tr><th>Path</th><th>Date</th></tr></thead> 
 <tr> 
  <td><a datafld="System.ItemURL"><span datafld="System.ItemPathDisplayNarrow"></sapn></a></td> 
  <td><span datafld="System.ItemDate"></sapn></td> 
 </tr> 
</table></body></html>

次ページ