flash結合asp制作出的顯ip,版本,登陸時間,訪問次數

2019-11-17 04:32:38

字體：大中小

來源：轉載

供稿：網友

也不知道算不算原創，反正是沒有參照任何東西，自己動手做的。首先需要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/----------time.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. //不然數字不能被刷新，我試了半天。

上一篇：工欲善其事必先利其器 Java開發工具介紹

下一篇：asp制作顯示IP圖片