flash結合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")
If userip = "" Then 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------------------ -----------
//這裡是顯示登陸次數和把登陸次---------------------------數字記錄到文字中
<%
dim visitors
whichfile=server.mappath("time.txt")
set fs=createobject("Scripting.FileSystemObject")
set thisfile=fs.opentextfile(whichfile)
visitors=(thisfile.readline)
thisfile.close visitors=visitors+1
response.write ("&num="&visitors)
set out=fs.createtextfile(whichfile)
out.writeLine(visitors)
out.close
set fs=nothing
%> -----------http://www.devdao.com/----------時間.txt-------------- ------
//這裡是記錄登陸次數2921（可是自己設定初始值的）
---------------------------info.swf-----------------
//這是透過flash顯示出以上資料插入到第一針：
init();
function init() {
settxt();
run();
System.useCodepage = true;
loadVariablesNum("num.asp", "", "POST");
}
function settxt() {
for (i=0; i<4; i++) {
this.createTextField("txt"+i, i, 10, 100+30*i, 90, 0);
this["txt"+i].autoSize = "left";
this["txt"+i].border = true;
}
}
function run() {
lv = new LoadVars();
lv.onLoad = function(ok) {
if (ok) {
for (i=0; i<3; i++) {
_root["txt"+i].text = this["t"+i];
}
delete this.onLoad;
}
};
lv.load("info.asp", "", "POST");
onEnterFrame = function () {
txt3.text = num;//為了能夠刷新的時候讀取登陸次數，所以這裡用到了onEnterFrame. //不然數字不能被刷新，我試了半天。