Afficher l'IP, la version, l'heure de connexion, le nombre de visites créées par flash combiné avec asp
Auteur：Eve Cole
Date de mise à jour：2009-06-23 17:00:41
Je ne sais pas si c’est original ou pas, mais je l’ai réalisé moi-même sans me référer à rien. Tout d’abord, vous avez besoin de 2 fichiers asp, 1 fichier texte et 1 fichier swf.
------------------info.asp-----------------------------
//Voici l'affichage de l'IP, de la version et de l'heure de connexion<!--#include file="num.asp"-->
<%
set userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Si userip = "" Alors userip = Request.ServerVariables("REMOTE_ADDR")
réponse.write("&t0=Votre adresse IP est :"&userip)
définir ie=Request.ServerVariables("HTTP_USER_AGENT")
réponse.write("&t1=La version de votre navigateur et votre système d'exploitation sont :"&ie)
réponse.write("&t2=L'heure à laquelle vous vous êtes connecté est :"&now())
%>---------------------------------num.asp------------ ------ ----------
//Ici, il s'agit d'afficher le nombre de connexions et d'enregistrer le nombre de connexions dans le texte.
<%
atténuer les visiteurs
whichfile=server.mappath("time.txt")
set fs=createobject("Scripting.FileSystemObject")
définir ce fichier = fs.opentextfile (quel fichier)
visiteurs=(thisfile.readline)
ce fichier.close visiteurs=visiteurs+1
réponse.write ("&num="&visiteurs)
set out = fs.createtextfile (quel fichier)
out.writeLine (visiteurs)
dehors.fermer
définir fs = rien
%> -----------http://www.devdao.com/----------time.txt-------------- ------
//Voici le nombre record de connexions 2921 (mais vous définissez vous-même la valeur initiale)
--------------------------------------info.swf------------------
//Il s'agit d'afficher les données ci-dessus insérées dans la première broche via flash :
init();
fonction init() {
settxt();
courir();
System.useCodepage = true ;
loadVariablesNum("num.asp", "", "POST");
}
fonction settxt() {
pour (i=0; i<4; i++) {
this.createTextField("txt"+i, i, 10, 100+30*i, 90, 0);
this["txt"+i].autoSize = "gauche";
this["txt"+i].border = true;
}
}
fonction exécuter() {
lv = nouveau LoadVars();
lv.onLoad = fonction (ok) {
si (d'accord) {
pour (i=0; i<3; i++) {
_root["txt"+i].text = this["t"+i];
}
supprimez this.onLoad ;
}
} ;
lv.load("info.asp", "", "POST");
onEnterFrame = fonction () {
txt3.text = num;//Afin de pouvoir lire le nombre de connexions lors de l'actualisation, onEnterFrame est utilisé ici //Sinon, le numéro ne peut pas être actualisé pendant longtemps.
