Avatar billede frank74 Nybegynder
01. august 2005 - 18:18 Der er 10 kommentarer og
1 løsning

Fra PHP til ASP

Jeg har SLET ikke styr på PHP. Så jeg ved ikke engang om det kan lade sig gøre.
Hvis det kan, vil jeg gerne have omskrevet dette PHP-script til ASP.
-----
<?

$filename = "counter.txt";

$fp = fopen( $filename,"r");
$Old = fread($fp, 100);
fclose( $fp );

$Old = split ("=", $Old, 5);

$NewCount = $Old[1] + '1';

$New = "Count=$NewCount";

$fp = fopen( $filename,"w+");
if (flock($fp, 2)) {
fwrite($fp, $New, 100); }
fclose( $fp );

print "Count=$NewCount";

?>
------
Avatar billede jakobdo Ekspert
01. august 2005 - 18:42 #1
Prøv at kig på denne løsning: http://www.takempis.com/counter.asp

Ellers kan du kigge nærmere her, hvordan man læser og skriver til en fil: http://www.w3schools.com/asp/met_opentextfile.asp
Avatar billede frank74 Nybegynder
01. august 2005 - 20:24 #2
Mit ASP er åbenbart heller ikke så godt...
Problemet er at jeg for et stykke siden siden fandt dette script: http://www.flashkit.com/tutorials/Dynamic_Content/Simple_P-Jeffrey_-656/index.php (Simple PHP Live Counter For your Flash Movie)
Det har virket fint indtil nu, men jeg har for nyligt skiftet WebHotel som IKKE understøtter PHP.
Jeg fandt en Online PHP to ASP Converter og har fået dette resultat.
------
<%
Dim gv_filename, gv_New, gv_fp, gv_NewCount


gv_filename  = "counter.txt"
$fp  = fopen( $filename,"r")
$Old  = fread($fp, 100)
fclose($fp );

$Old  = split ("=", $Old, 5)
$NewCount  = $Old[1] + "1"
gv_New  = "Count=" & NewCount & ""
gv_fp  = fopen( gv_filename,"w+")
If flock(gv_fp, 2) then
    fwrite(gv_fp, gv_New, 100); }
fclose(gv_fp );

print "Count=gv_NewCount";

%>
------
Men det virker heller ikke. Jeg får ikke nogen fejlmeldinger. Den tæller bare ikke op.
Avatar billede jakobdo Ekspert
01. august 2005 - 21:50 #3
Ok!
Jeg giver op når det kommer til FLASH og er heller ikke nogen haj i ASP, desværre.
Avatar billede luzk Nybegynder
02. august 2005 - 16:38 #4
Tror jeg kan hjælpe dig :-)
Skal det være ASP med VBScript eller JScript?

Hvordan ser det ud der står i filen normalt?

/Luzk
Avatar billede frank74 Nybegynder
02. august 2005 - 16:42 #5
Hvis du kan oversætte det til VBScript ville det være fint. ;-)
Avatar billede luzk Nybegynder
02. august 2005 - 16:48 #6
Det kigger jeg på :o)
Er det korrekt antaget at det eneste der står i filen fx er Count=100?

/Luzk
Avatar billede frank74 Nybegynder
02. august 2005 - 16:55 #7
Det er helt korrekt. ;-)
Avatar billede luzk Nybegynder
02. august 2005 - 17:27 #8
Så skulle følgende kunne gøre det :o)

=====
gv_filename = Server.MapPath("counter.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set fp = fso.OpenTextFile(gv_filename, 1)
old = fp.ReadLine
fp.Close

old = Split(old, "=")
NewCount = CInt(old(1)) + 1
gv_New = "Count=" & CStr(NewCount)

Set gv_fp = fso.OpenTextFile(gv_filename,2, True)
gv_fp.WriteLine(gv_New)
gv_fp.Close

Response.Write(gv_New)
=====

Jeg har forsøgt at bruge de samme navne som i dit PHP script - håber det er forståeligt :-)

/Luzk
Avatar billede frank74 Nybegynder
02. august 2005 - 17:31 #9
Kanon. Det virker bare. Mange tak for hjælpen. Smider du et svar her også :
http://www.eksperten.dk/spm/636648
Det er det samme spørgsmål. ;-)
Avatar billede luzk Nybegynder
02. august 2005 - 17:57 #10
Super at det kan bruges :o)
Nej det er ikke lovligt med flere spørgsmål om det samme, så luk det andet med reference til at der er svaret på det her

Tak for point :o)

/Luzk
Avatar billede frank74 Nybegynder
02. august 2005 - 18:01 #11
Ok. Det er gjort nu.
Oprettede bare spørgsmålet igen da dette jo egentligt er den "forkerte" kategori. ;-)
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
Vi tilbyder markedets bedste kurser inden for webudvikling

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