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