flash融合asp制作出的显ip 版本 登陆时间 访问次数

也不知道算不算原创，反正是没有参照任何东西，自己动手做的。 首先需要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. //不然数字不能被刷新，我试了半天。

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!