Отображение IP, версии, времени входа в систему, количества посещений, созданных с помощью flash в сочетании с asp.
Автор：Eve Cole
Время обновления：2009-06-23 17:00:41
Не знаю, оригинально это или нет, но я сделал его сам, ни на что не ссылаясь. Во-первых, вам нужны 2 файла asp, 1 текстовый файл и 1 файл swf.
------------------info.asp-----------------------------
//Здесь отображается IP, версия и время входа<!--#include file="num.asp"-->
<%
set userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Если userip = "" Тогда 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------------ ------ ----------
//Здесь нужно отобразить количество входов и записать количество входов в текст.
<%
тусклые посетители
thatfile=server.mappath("time.txt")
set fs=createobject("Scripting.FileSystemObject")
установите thisfile=fs.opentextfile(whatfile)
посетители=(thisfile.readline)
thisfile.close посетители=посетители+1
response.write ("&num="&посетители)
set out=fs.createtextfile(whatfile)
out.writeLine(посетители)
выход.закрыть
установить фс=ничего
%> -----------http://www.devdao.com/----------time.txt-------------- ------
//Вот рекордное количество логинов 2921 (но начальное значение вы задаете сами)
------------info.swf-----------------
//Это для отображения вышеуказанных данных, вставленных в первый вывод, через флэш-память:
инициализация();
функция инициализации() {
settxt();
бегать();
System.useCodepage = правда;
loadVariablesNum("num.asp", "", "POST");
}
функция settxt() {
для (я=0; я<4; я++) {
this.createTextField("txt"+i, i, 10, 100+30*i, 90, 0);
this["txt"+i].autoSize = "left";
это["txt"+i].border = true;
}
}
функция запуска() {
lv = новый LoadVars();
lv.onLoad = функция (ок) {
если (ок) {
для (я=0; я<3; я++) {
_root["txt"+i].text = this["t"+i];
}
удалить this.onLoad;
}
};
lv.load("info.asp", "", "POST");
onEnterFrame = функция () {
txt3.text = num;//Чтобы можно было прочитать количество логинов при обновлении, здесь используется onEnterFrame //Иначе номер не обновить уже давно.
