疑似掲示板(失敗) JScript & HTA　→　成功かも - インストールレスプログラミング( ´ー`)

興味がない分野について，自分の知識が全くないことに気づかせてくれるJSciptの学習。

今日は掲示板ぽいのを作ることをしていました。

neos21.hatenablog.com

こちらの記事を参考に，コードも使わせてもらいながら，自分の環境で作る。

JQueryを自分の環境でいまのところきちんと動かせなかったので，けっこうコードは行き当たりばったりで作ってます。

JScriptの学習と思ってこつこつやっていました。

例によってHTAです。HTMLでは動作しません。

メモ帳にはりつけて，拡張子HTAで保存します。文字コードはUTF-8にしないと動かないようです。

追記　imihitoさんにコメントをいただいて，見直してみたらCloseに()が抜けていましたので修正しました。
　　失敗を忘れないためにも下のほうの駄文は残しております。コードは書き直しました。

<!doctype html>
<html>
<head>
<meta charset="utf-8">
<title>メッセージ</title>
<!-- CSS -->
	<style type="text/css">
		dt{float: left;}
		dd{margin-left: 80px;}
		.user{display: none;}
	</style>
<!--JScript-->	
<script>
	// FileSystemObject 用定数
	var ForReading = 1;
	var ForWriting = 8;
	/** BBS のデータファイルのフルパス */
	var BbsFile = "bbs.txt";
	var User=new ActiveXObject("WScript.Network").UserName;
	/** ファイルの読み込み */
	function loadText() {
		var fso = new ActiveXObject("Scripting.FileSystemObject");
		var bbs = fso.OpenTextFile(BbsFile, ForReading);
		var tmp=bbs.ReadAll();
		bbs.Close();
		return(tmp);
	}
	/** 投稿内容のロード */
	function load() {
		var fso = new ActiveXObject("Scripting.FileSystemObject");
		if (fso.FileExists(BbsFile)==false){
			var bbs = fso.OpenTextFile(BbsFile, ForWriting,true);
			bbs.WriteLine("<dt>名前</dt><dd>メッセージ</dd><span class='user'>ユーザー名</span>\r");
			bbs.Close();
		} 
		document.getElementById("data").innerHTML=loadText();
	}
	/** 投稿 */
	function post() {
		var name=document.getElementById("name").value;
		var msg=document.getElementById("msg").value;
		var postData = "<dt>" + name + "</dt>" + "<dd>" + msg + "</dd>" +"<span class='user'>" + User +"</span>\r";
		var fso = new ActiveXObject("Scripting.FileSystemObject");
		var bbs = fso.OpenTextFile(BbsFile, ForWriting);
		bbs.WriteLine(postData);
		bbs.Close();
		load();
		document.getElementById("name").value="";
		document.getElementById("msg").value="";
	}
</script>
</head>

<body onLoad="load();">
	<h1>一言メッセージ</h1>
	<p>
		名前　<input type="text" id="name" size="14" value="" placeholder="Name">
		　　メッセージ　<input type="text" id="msg" size="60" value="" placeholder="Message">
	</p>
	<p>
		<input type="button" id="post" value="送信" onClick="post()">
		※エラーが出たら少し待ってもう一度　送信　を押してください。
	</p>
	<dl id="data"></dl>
</body>
</html>