Har precis färdig ställt en sida åt ett video uthyrningsföretag, men jag får hela tiden ett internt server fel 500... allt fungerar perfekt offline med PWS. varför detta?
har på alla sidor includerad följande rad:
<!--#INCLUDE FILE="data/tracker/count.asp"-->
tar jag bort denna rad fungerar det... alltså är det något fel med min counter men vad?
på sidan som anropar countern har jag följande kod:
<%
Application.Lock
Set TempPages = Application("Pages")
Set TempHost = Application("Host")
Set TempAgent = Application("Agent")
Set TempStart = Application("Starttime")
Application.UnLock
PageItems = TempPages.Items
PageKeys = TempPages.Keys
HostItems = TempHost.Items
AgentItems = TempAgent.Items
StartItems = TempStart.Items
If Instr(Application("Agent").Item(Session.SessionId), "MSIE") then
yourbrowser = "MS Internet Explorer"
else
yourbrowser = "Netscape Navigator / Communicator"
end if
%>
<%=TempPages.Count%> anropar antalet besökare.
count.asp ser ut så här:
<%
'Create instance of the FileSystemObject object
Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject")
'The path of the counter.txt file
CounterFilePath = Server.MapPath("/data/tracker/counter.txt")
'Read from the counter file if it exists
IF MyFileObj.FileExists(CounterFilePath) THEN
Set CounterFile = MyFileObj.OpenTextFile(CounterFilePath)
IF NOT CounterFile.AtEndOfStream THEN
Count = TRIM(CounterFile.ReadAll)
END IF
CounterFile.Close
END IF
'Add 1 if count from Counterfile is ok, else set count = 1
IF IsNumeric(Count) THEN
Count = Count + 1
ELSE
Count = 1
END IF
'Write to the counter file
Set CounterOutStream=MyFileObj.OpenTextFile(CounterFilePath, 2, TRUE)
CounterOutStream.Write(Count)
CounterOutStream.Close
%>
och min global.asa så här:
[kod]
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
On Error Resume Next
Set Application("Pages") = Server.CreateObject("Scripting.Dictionary")
Set Application("Host") = Server.CreateObject("Scripting.Dictionary")
Set Application("Agent") = Server.CreateObject("Scripting.Dictionary")
Set Application("Starttime") = Server.CreateObject("Scripting.Dictionary")
End Sub
Sub Session_OnStart
On Error Resume Next
Application("Starttime").Item(Session.SessionID) = Now
Application("Host").Item(Session.SessionID) = Request.ServerVariables("HTTP_HOST")
Application("Agent").Item(Session.SessionID) = Request.ServerVariables("HTTP_USER_AGENT")
End Sub
Sub Session_OnEnd
On Error Resume Next
If Application("Pages").Exists(Session.SessionID) Then
Application.Lock
Application("Pages").Remove(Session.SessionID)
Application("Host").Remove(Session.SessionID)
Application("Agent").Remove(Session.SessionID)
Application("starttime").Remove(Session.SessionID)
Application.Unlock
End If
End Sub
Testa att göra en testsidan med endast koden som finns i count.asp och kommentera bort allt eftersom tills du hittar var felet ligger. Kanske är att IUSR_<computername> inte har rättigheter till counter.txt-filen. Vad vet jag?
------------------
/ Torbjörn Hansson, webbutvecklare Endero Sverige
Det är din <!--#INCLUDE FILE som är fel på... include file använder man när man har inkluderingsfilen i samma katalog, annars får du använda dig av include virtual.
Alltså ska det se ut:
<!--#INCLUDE VIRTUAL="data/tracker/count.asp"-->
Konstigt att inte PWS reagerade på det...
får fortfarande ett internt server fel... allt fungerar om jag tar bort include filen... har även byt den mot include virtual, men det blir samma fel...
Sidan kan inte visas
Det uppstod ett problem med sidan du försöker nå och den kan inte visas.
--------------------------------------------------------------------------------
Försök med något av följande:
Öppna startsidan för [url="http://www.video-center.nu"]www.video-center.nu[/url] och sök efter länkar till den information du vill ha.
Klicka på knappen Uppdatera eller försök igen senare.
Klicka på Sök om du vill leta efter information på Internet.
Du kan även se en lista över relaterade platser.
HTTP 500 - Internt serverfel
Internet Explorer
är det verkligen smart att ha så många svettiga object i så många olika applications ? ... det slukar väl prestanda och minne?.. ha bara sökvägarna i applicationen. mitt råd
251 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25