オートアンカー改造 ソース

<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<!-- あ(MOJIBAKE TAISAKU) -->
<SCRIPT language="JavaScript">
var now  = new Date();
var hour = now.getHours();
var min = now.getMinutes();
var sec = now.getSeconds();

obj = external.menuArguments;
doc = obj.document;

if ( hour < 10 ) { hour = "0" + hour }
if ( min < 10 ) { min = "0" + min }
if ( sec < 10 ) { sec = "0" + sec }
var time = "*" + hour + min + sec

sel_txt = doc.selection.createRange().text;	// 選択範囲を取得します。
page_url = obj.top.document.URL;	//ページのURLを取得（フレーム対策あり）
title_txt = obj.top.document.title;	//ページのタイトルを取得（フレーム対策あり）
ref_url = obj.top.document.referrer;

if ( doc.activeElement.href ) {
	url_txt = doc.activeElement.innerText;	// URLの表示名
	click_url = doc.activeElement.href;	// 右クリックのURL
} else {
	url_txt = "";
	click_url = "";
}
if ( ( click_url != "" ) && ( sel_txt != "" ) ) {
	rname = "0.txt";
} else if ( sel_txt != "" ) {
	rname = "1.txt";
} else if ( click_url != "" ) {
	rname = "2.txt";
} else {
	rname = "3.txt";
}
//スクリプトのあるフォルダーを求めます
my_folder = document.URL;
my_folder = my_folder.split( 'file:///' );
my_folder = my_folder.join( '' );
my_folder = my_folder.split( 'file://' );
my_folder = my_folder.join( '' );
my_folder = my_folder.split( '\\' );
my_folder.pop();
my_folder = my_folder.join( '\\' );
my_folder = unescape( my_folder ) + '\\';	// 空白対策

//ファイルを読み込みます
file_sys = new ActiveXObject( "Scripting.FileSystemObject" );
load_stream = file_sys.OpenTextFile( my_folder + rname, 1, false);
rfile = load_stream.ReadAll();

//置換していきます
regexp = new RegExp( "%time%", "g" );
rfile = rfile.replace( regexp, time );
regexp = new RegExp( "%title_txt%", "g" );
rfile = rfile.replace( regexp, title_txt );
regexp = new RegExp( "%page_url%", "g" );
rfile = rfile.replace( regexp, page_url );
regexp = new RegExp( "%url_txt%", "g" );
rfile = rfile.replace(regexp, url_txt );
regexp = new RegExp( "%click_url%", "g" );
rfile = rfile.replace( regexp, click_url );
regexp = new RegExp( "%sel_txt%", "g" );
rfile = rfile.replace( regexp, sel_txt );
regexp = new RegExp( "%ref_url%", "g" );
rfile = rfile.replace( regexp, ref_url );


//クリップボードに書き出します。
window.clipboardData.setData( "Text", rfile );

</SCRIPT>