フラッシュとASPを組み合わせて作成されたIP、バージョン、ログイン時間、訪問数を表示します

著者：Eve Cole 更新時間：2009-06-23 17:00:41

オリジナルかどうかは分かりませんが、何も参考にせずに自分で作りました。まず、2 つの asp ファイル、1 つのテキストファイル、1 つの swf ファイルが必要です。
------------------info.asp-----------------------------
//ここには IP、バージョン、ログイン時刻が表示されます
<%
set userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
userip = "" の場合、 userip = Request.ServerVariables("REMOTE_ADDR")
response.write("&t0=あなたのIPアドレスは:"&userip)
set ie=Request.ServerVariables("HTTP_USER_AGENT")
response.write("&t1=お使いのブラウザのバージョンとオペレーティングシステムは次のとおりです:"&ie)
response.write("&t2=ログイン時刻は次のとおりです:"&now())
%>-----------------------num.asp----------- ------ ----------
//ここではログイン数を表示し、ログイン数をテキストに記録します。
<%
薄暗い訪問者
whatfile=server.mappath("time.txt")
set fs=createobject("Scripting.FileSystemObject")
set thisfile=fs.opentextfile(どのファイル)
訪問者=(thisfile.readline)
thisfile.close 訪問者=訪問者+1
response.write ("&num="&訪問者)
set out=fs.createtextfile(どのファイル)
out.writeLine(訪問者)
アウト、クローズ
fs=何も設定しない
%> -----------http://www.devdao.com/----------time.txt-------------- ------
//これはログイン数の記録である 2921 です (ただし、初期値は自分で設定します)
------------------------info.swf---------------
//これは、フラッシュを介して最初のピンに挿入された上記のデータを表示します。
init();
関数 init() {
settxt();
走る（）;
System.useCodepage = true;
loadVariablesNum("num.asp", "", "POST");
}
関数 settxt() {
for (i=0; i<4; i++) {
this.createTextField("txt"+i, i, 10, 100+30*i, 90, 0);
this["txt"+i].autoSize = "左";
this["txt"+i].border = true;
}
}
関数 run() {
lv = 新しい LoadVars();
lv.onLoad = 関数(ok) {
if (ok) {
for (i=0; i<3; i++) {
_root["txt"+i].text = this["t"+i];
}
this.onLoad を削除します。
}
};
lv.load("info.asp", "", "POST");
onEnterFrame = function () {
txt3.text = num;//更新時にログイン数を読み取れるようにするために、ここでは onEnterFrame を使用します。 //そうしないと数値が更新されません。