GRY-Online.pl --> Archiwum Forum

HTML + skrypt

11.07.2005
13:14
smile
[1]

legrooch [ Legend ]

HTML + skrypt

Witam!
Stworzyłem licznik w VBScripcie, ale nie wiem jak go odpalić z hiyperlinka.. :|
Szukam i szukam informacji i dalej nic....

Bardzo byłbym wdzięczny za:
1) link do informacji o odpaleniu VBScriptu poprzez kliknięcie na linku
2) jeżeli powyższe odpada, to prosiłbym o jakiś javascript zliczający kliknięcia na linku do pliku tekstowego....

Pomocy! ;)

11.07.2005
13:21
smile
[2]

sehhs [ Soul Master ]

www.webhelp.pl - na tym forum masz expertów, ale uważaj na chamskich adminów, którzy do wszystkiego się przyczepiają.
www.helion.pl - tutaj możesz kupić bardzo dobre książki o stronach WWW i skryptach. Jakbyś nie miał tyle kasy to zostaje ci allegro :)

11.07.2005
13:23
smile
[3]

legrooch [ Legend ]

Kuźwa, chcę tylko info o odpaleniu skryptu bądź jego odpowiednik w javascripcie :)
Nie potrzebna mi książka :)

11.07.2005
13:27
[4]

sehhs [ Soul Master ]

Zapytaj na tamtym forum (www.webhelp.pl). Tutaj nie wiem czy ktoś ci pomoze.

11.07.2005
13:34
[5]

reik [ Pretorianin ]

Jeśli piszesz o skrypcie po stronie klienta to proszę:

<script language=vbscript>
tu_nazwa_funkcji_w_vbscripcie()
</script>

problemy tylko taki z tym jest, że będzie to działało jedynie pod M$ Windows..

Jesli natomiast piszesz o kodzie po stronie serwera (ASP) to musisz tylko zrobić stronę ASP z tym vbscriptem i będzie działać.

11.07.2005
13:36
[6]

sehhs [ Soul Master ]

A jednak :P

11.07.2005
13:49
[7]

legrooch [ Legend ]

reik ==> Wiem, że będzie to działać tylko pod MS... :(
Szukam zamiennika w javascripcie dlatego.
Napisałem coś takiego:

<head>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub zliczanie
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim fso
Dim licznik
Dim plik
plik = "licznik.txt"

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(plik) then
Set czytaj = fso.OpenTextFile(plik, ForReading)
licznik = czytaj.ReadLine
licznik = Cint(licznik)
licznik = licznik + 1
czytaj.close
fso.DeleteFile plik, true

Set zapisz = fso.CreateTextFile(plik, ForWritting)
zapisz.writeline(licznik)
Else
Set zapisz = fso.CreateTextFile(plik, ForWritting)
zapisz.writeline("0")
End if
End Sub
-->
</SCRIPT>
</head>

<body>
<a href="https://www.wp.pl" ID="Link1" LANGUAGE="VBScript" Onclick="zliczanie" >wp</a>
<a href="https://www.onet.pl" ID="Link2" LANGUAGE="VBScript" OnMouseOver="zliczanie" >onet</a>
<a href="https://www.google.pl" ID="Link3" LANGUAGE="VBScript" OnMouseOver="zliczanie" >google</a>
</body>

11.07.2005
14:52
[8]

reik [ Pretorianin ]

legrooch: jest tylko jeden mały problem.. ten licznik zapisuje dane po stronie klienta a nie serwera.

Pomijając problem braku dostępu do dysku ze strony WWW, to funkcjonalność takiego licznika jest żadna - każdyu z odwiedzających stronę będzie miał u siebie osobny licznik.

Jedyne rozwiązanie jakie możesz zastosować to skrypt po stronie serwera (PHP, ASP, JSP, ASP.NET, cgi..)

Powodzenia!

11.07.2005
15:06
smile
[9]

legrooch [ Legend ]

reik ==> Kapnąłem się za późno ;)
Załapałem to już chwilę temu. Na szczęście istnieje takie coś jak free4web.pl ;)

Pytanie z innej beczki - Jak zrobić automatyczne przekierowanie podczas ładowania?
Na starcie startuje html, jednak chciałbym, żeby z automatu po uruchomieniu go została wywołana inna strona. Taki <a href OnStart>

11.07.2005
15:17
[10]

legrooch [ Legend ]

Już po sprawie. Puściłem ramka w ramce. Działa :)

12.07.2005
07:35
[11]

reik [ Pretorianin ]

A tak:

<META HTTP-EQUIV="Refresh" CONTENT="0; URL=html-redirect.html">

szczegóły w linku poniżej

12.07.2005
08:32
smile
[12]

legrooch [ Legend ]

Wydaje mi się, że efekt będzie nie taki.
Wrzuciłem licznik pod index.html (ramka odpalająca stronkę zliczającą). Licznik wraca do start.html.

Jeżeli bym dodał METĘ do tego, to po przekierowaniu wracałoby wszystko do indexu, chyba, że zrobiłbym to na dwie stronki, a na jedno wyjdzie. Ale dziękuję bardzo za pomoc! :)

© 2000-2026 GRY-OnLine S.A.