Exibir IP, versão, tempo de login, número de visitas criadas por flash combinado com asp
Autor：Eve Cole
Data da Última Atualização：2009-06-23 17:00:41
Não sei se é original ou não, mas eu mesmo fiz sem me referir a nada. Primeiro, você precisa de 2 arquivos asp, 1 arquivo de texto e 1 arquivo swf.
------------------info.asp-----------------------------
//Aqui está a exibição do IP, versão e horário de login<!--#include file="num.asp"-->
<%
definir userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Se userip = "" Então userip = Request.ServerVariables("REMOTE_ADDR")
response.write("&t0=Seu endereço IP é:"&userip)
definir ie=Request.ServerVariables("HTTP_USER_AGENT")
response.write("&t1=A versão do seu navegador e sistema operacional são:"&ie)
response.write("&t2=A hora em que você fez login é:"&now())
%>--------------------------------num.asp------------ ------ ----------
//Aqui é para exibir o número de logins e registrar o número de logins no texto.
<%
diminuir visitantes
qualarquivo=servidor.mappath("time.txt")
set fs=createobject("Scripting.FileSystemObject")
defina este arquivo = fs.opentextfile (qual arquivo)
visitantes = (este arquivo.readline)
thisfile.close visitantes=visitantes+1
resposta.write ("&num="&visitores)
definir=fs.createtextfile(qualarquivo)
out.writeLine(visitantes)
sair.fechar
definir fs = nada
%> -----------http://www.devdao.com/----------time.txt-------------- ------
//Aqui está o número recorde de logins 2921 (mas você mesmo define o valor inicial)
----------------------------info.swf-----------------
//Isto é para exibir os dados acima inseridos no primeiro pino através do flash:
iniciar();
função inicialização() {
settxt();
correr();
System.useCodepage = verdadeiro;
loadVariablesNum("num.asp", "", "POST");
}
função settxt() {
para (i=0; i<4; i++) {
this.createTextField("txt"+i, i, 10, 100+30*i, 90, 0);
this["txt"+i].autoSize = "esquerda";
this["txt"+i].border = true;
}
}
função executar() {
lv = new LoadVars();
lv.onLoad = função (ok) {
se (ok) {
para (i=0; i<3; i++) {
_root["txt"+i].text = this["t"+i];
}
exclua este.onLoad;
}
};
lv.load("info.asp", "", "POST");
onEnterFrame=função(){
txt3.text = num;//Para poder ler o número de logins durante a atualização, onEnterFrame é usado aqui. //Caso contrário, o número não pode ser atualizado.
