@Beee

Почему так происходит, некоторые посетители не могут пробиться на мой сайт....
Тестировала файл global.asa как global.asp, у меня все работает, какие могут быть причины, помогите разобраться, плз?

0

@Beee

Если кто нибибудь мне сострадает, то вот код:
[code]
<SCRIPT LANGUAGE = VBScript RUNAT=Server>
<!-- Metadata type='typelib' File='crogram filescommon filessystemadomsado15.dll' -->
</SCRIPT>

<script language='vbscript' runat=server>

Sub Session_OnStart

Session.TimeOut = 5

dim Browser, IP, Referer, MM_driv_STRING, Num_visited

MM_driv_STRING = 'работает'

IP = Request.ServerVariables('REMOTE_ADDR')
Browser = Request.ServerVariables('HTTP_USER_AGENT')
Referer = Request.ServerVariables('HTTP_REFERER')

if Referer = '' Then
Referer = 'первая страница'
End If

Set rs = server.createobject('adodb.RecordSet')
rs.ActiveConnection = MM_driv_STRING
rs.Source = 'SELECT Num_Referer AS Num_visited FROM Users WHERE IPAdress=''&IP&'''
rs.ActiveConnection = MM_driv_STRING
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()

Num_visited = rs('Num_visited')

Set ins = Server.CreateObject('ADODB.Command')
ins.ActiveConnection = MM_driv_String
if Num_visited = '' then
ins.CommandText = 'INSERT INTO Users (IPAdress, HTTPClient, Referer, DateVisited, Num_referer) VALUE ('& IP &', '& Browser &', '& Referer &', GETDATE(), 1)'
ins.CommandType = 1
ins.CommandTimeout = 0
ins.Prepared = true
ins.execute ()
else
Num_visited = Num_visited + 1

ins.CommandText = 'UPDATE Users SET LastDateVisited = GETDATE(), Num_referrer = ''& Num_visited &'''
ins.CommandType = 1
ins.CommandTimeout = 0
ins.Prepared = true
ins.execute ()
end if

rs.close()
Set rs = nothing

Dim total

Set rs1 = server.createobject('adodb.recordset')
rs1.ActiveConnection = MM_driv_STRING
rs1.Source = 'SELECT SUM(Hits) AS total FROM Hits'
rs1.ActiveConnection = MM_driv_STRING
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 3
rs1.Open()

total = rs1('total')
Session('Hits') = total

rs1.Close()
Set rs1 = nothing

Set rs = server.createobject('adodb.recordset')
rs.ActiveConnection = MM_driv_STRING
rs.Source = 'SELECT * FROM Hits WHERE Day(DayDate) = DAY(Getdate()) AND MONTH(DayDate) = MONTH(GetDate()) AND YEAR(DayDate) = YEAR(GetDate())'
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()

Set ins = Server.CreateObject('ADODB.Command')
ins.ActiveConnection = MM_driv_STRING

If NOT rs.EOF THEN
ins.CommandText = 'UPDATE Hits SET Hits = Hits + 1 WHERE Day(DayDate) = DAY(Getdate()) AND MONTH(DayDate) = MONTH(GetDate()) AND YEAR(DayDate) = YEAR(GetDate())'
ins.CommandType = 1
ins.CommandTimeout = 0
ins.Prepared = true
ins.execute ()
Else
ins.CommandText = 'INSERT INTO Hits (DayDate, Hits) VALUES (GETDATE(), 1)'
ins.CommandType = 1
ins.CommandTimeout = 0
ins.Prepared = true
ins.execute ()

End If

rs.Close()
Set rs = nothing

Set rs1 = server.createobject('adodb.recordset')
rs1.ActiveConnection = MM_driv_STRING
r

0

@bazile

> Почему так происходит, некоторые посетители не могут
> пробиться на мой сайт
Что значит 'не могут пробиться'? Долго грузится, а в результате ничего?

> Если кто нибибудь мне сострадает, то вот код:
Код похоже ошибок не содержит. Удивляет две вещи:
1. Таймаут сессии в 5 минут. Почему так мало?
2. 5 запросов на чтение, обновление базы при каждом старте сессии. Может как раз здесь и кроется проблема. Можно попробовать уменьшить кол-во запросов. БД какая используется?
Но лучше вообще убрать весь этот код из global.asa. Статистику можно без проблем подсчитать по логам веб-сервера. Все эти хиты, хосты и прочее.

0

@Beee

Страница долго грузится, а в результате появляется сообщение о том, что такой страницы нет, во всяком случае так мне сказали....
про логи, Базиле, где можно прочитать?
с таймаутом пока не экспериментировала...

0

@pl

http://localhost/iishelp/iis/misc/default.asp -> Installable Components for ASP -> Logging Utility

0

@Beee

Выяснила точно....
Ошибка 500
При попытке отобразить страницу произошла ошибка.

0