| 導購 | 订阅 | 在线投稿
分享
 
 
 

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

來源:互聯網  2008-06-01 06:46:22  評論

也不知道算不算原創,反正是沒有參照任何東西,自己動手做的。 首先需要2個asp文件,1個文本文件,還有就是1個swf文件了。

-------------------info.asp----------------------------

//這裏是顯示ip,版本,登陸時間的 <!--#include file="num.asp"-->

<%

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. //不然數字不能被刷新,我試了半天。

也不知道算不算原創,反正是沒有參照任何東西,自己動手做的。 首先需要2個asp文件,1個文本文件,還有就是1個swf文件了。 -------------------info.asp---------------------------- //這裏是顯示ip,版本,登陸時間的 <!--#include file="num.asp"--> <% 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. //不然數字不能被刷新,我試了半天。
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有