Avatar billede the-lion Nybegynder
04. maj 2001 - 12:20 Der er 12 kommentarer og
1 løsning

ASP i Javascript

Jeg har et problem med at få den til at gemme de besøgenes opløsning i en tekst dokument, hvordan kan dette gøres, det ser ud som herunder for hver enkelt opløsning...

if (window.screen.width == 1280) {
<%
filespec = Request.ServerVariables(\"APPL_PHYSICAL_PATH\") & \"counter/1280.txt\"
Set fso2 = CreateObject(\"Scripting.FileSystemObject\")
Set MyFile2 = fso2.OpenTextFile(filespec, ForAppending)
If Request.ServerVariables(\"REMOTE_ADDR\") = \"212.134.123.264\" Then
    MyFile2.Close
Else
    MyFile2.Write \"<tr><td><CENTER>\"
    MyFile2.Write now() & \"</td><td><CENTER>\"
    MyFile2.Write Request.ServerVariables(\"REMOTE_ADDR\") & \"</td><td><CENTER>\"
    MyFile2.Write Request.ServerVariables(\"\") & \"</td></tr>\"
    MyFile2.Close
End If
%>
}
Avatar billede the-lion Nybegynder
04. maj 2001 - 12:22 #1
Altså, jeg skal bare have IP adressen, for den besøgende, den skal så gemme den i et dokument med samme navn som opløsningen :-)
Avatar billede nute Nybegynder
04. maj 2001 - 12:24 #2
det du skal huske på er at JavaScript er client-side mens ASP er server-side...det du prøver på kan ikke gjøres på den måte ...
Avatar billede the-lion Nybegynder
04. maj 2001 - 12:24 #3
Har du et forslag, til hvordan det så kan lykkedes?
Avatar billede the-lion Nybegynder
04. maj 2001 - 12:25 #4
Jeg er villig til at tilføje ekstra point hvis det er det?
Avatar billede nute Nybegynder
04. maj 2001 - 12:28 #5
Hvorfor skal du legge det i en fil og ikke en database ??
Avatar billede the-lion Nybegynder
04. maj 2001 - 12:29 #6
Det er hurtigere med en txt fil :-)
Men burde det have større betydning?
Avatar billede nute Nybegynder
04. maj 2001 - 12:33 #7
hehe....hvis du skal oppnå hurtigere sider, så skal du heller benytte XML til strukturering av txt filen...
Avatar billede the-lion Nybegynder
04. maj 2001 - 12:41 #8
Det understøttes da ikke ordentligt endnu?
Men har du et forslag, til hvordan det kan laves?
Avatar billede nute Nybegynder
04. maj 2001 - 13:01 #9
jeg ville skrevet til en database. Som jeg har forstått så skal du telle antall brukere med de ulike oppløsinger ? stemmer det ?
Avatar billede madd Nybegynder
04. maj 2001 - 13:03 #10
Med et lille redirect f.eks. sådan her:

I din fil(f.eks index eller default):

<%
If Request(\"r\") = \"\" Then
Session(\"redirto\") = Request.ServerVariables(\"PATH_INFO\")
%>
<script language=javascript>
URL = \"res.asp?Width=\"+window.screen.width+\"&Height\"+window.screen.height;
window.location = URL;
</script>
<% End If %>


Og i din res.asp:

<%
height=request(\"Height\")
width=request(\"Width\")
filespec = Request.ServerVariables(\"APPL_PHYSICAL_PATH\") & \"counter/\" & width & \".txt\"
Set fso2 = CreateObject(\"Scripting.FileSystemObject\")
Set MyFile2 = fso2.OpenTextFile(filespec, ForAppending)
If Request.ServerVariables(\"REMOTE_ADDR\") = \"212.134.123.264\" Then
    MyFile2.Close
Else
    MyFile2.Write \"<tr><td><CENTER>\"
    MyFile2.Write now() & \"</td><td><CENTER>\"
    MyFile2.Write Request.ServerVariables(\"REMOTE_ADDR\") & \"</td><td><CENTER>\"
    MyFile2.Write Request.ServerVariables(\"\") & \"</td></tr>\"
    MyFile2.Close
End If

Response.Redirect Session(\"redirto\") & \"?r=true\"
%>


Måske en lidt klumpet måde, men jeg tror det virker..

/Mattias
Avatar billede the-lion Nybegynder
04. maj 2001 - 13:13 #11
kan man ikke gøre det hvor alt ligger i samme asp fil?

I øjeblikket ser min kode sådan ud :

if (window.screen.width == 800) {
  function sendvariabel(string){
    var opl
    opl=\"counter/800.txt\";}}

if (window.screen.width == 640) {
  function sendvariabel(string){
    var opl
    opl=\"counter/640.txt\";}}
</script>

<%
filespec = Request.ServerVariables(\"APPL_PHYSICAL_PATH\") & \"Request.Querystring(\'opl\')\"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso2, MyFile2
Set fso2 = CreateObject(\"Scripting.FileSystemObject\")
Set MyFile2 = fso2.OpenTextFile(filespec, ForAppending)
If Request.ServerVariables(\"REMOTE_ADDR\") = \"212.132.123.143\" Then
    MyFile2.Close
Else
    MyFile2.Write \"<tr><td><CENTER>\"
    MyFile2.Write now() & \"</td><td><CENTER>\"
    MyFile2.Write Request.ServerVariables(\"REMOTE_ADDR\") & \"</td><td><CENTER>\"
    MyFile2.Write Request.ServerVariables(\"\") & \"</td></tr>\"
    MyFile2.Close
End If
%>
Avatar billede the-lion Nybegynder
04. maj 2001 - 13:33 #12
nute : nej, jeg skal have ip adressen på ALLE der kommer ind på siden, og deres IP adresse, skal så gemmes i en txt fil som har samme navn, og opløsningen :-)
Avatar billede the-lion Nybegynder
04. maj 2001 - 13:46 #13
Opgiver at få svar på dette i dette spørgsmål.... Desværre, men intet har hjulpet mig endnu :-(
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester