PHP till ASP

3 svar · 309 visningar · startad av Melitta 3 feb. 2004

MelittaMedlem sedan sep. 2003448 inlägg

Trådstart3 feb. 2004 14:35#1

Nån vänlig själ som har lust att översätta detta till asp?

<?

$tmp = 'wm.txt';
$timestamp = date('Ymdhis');

if(empty($_POST['wm_action'])) {
    if(file_exists($tmp)) {
        $data = file($tmp);
        if(isset($data[2]))
            print "Dundrar i högtalarna just nu: ".trim($data[2]);
        else
            print "-=silence=-";
    } else
        print "-=silence=-";
    return '';
}

if($_POST['wm_action'] == 'wm_data') {
    $data = $_POST['wm_data'];
    $f = fopen($tmp, 'w');
    fputs($f, $timestamp."\n");
    fputs($f, $data['status']."\n");
    fputs($f, $data['title']."\n");
    fclose($f);
}

?>

Tack på förhand.
Mvh: Henke

ampyMedlem sedan feb. 20011 498 inlägg

3 feb. 2004 17:31#2

Den fösta if-satsen bör bli såhär nånting:

set fso = Server.CreateObject("Scripting.FileSystemObject")

tmp = "wm.txt"
timestamp = now()

if isempty(request.form("wm_action")) = true then

    if fso.FileExists(Server.MapPath(tmp)) = true then

	set rfile = fso.OpenTextFile(Server.MapPath(tmp))
        data = split(rfile.readall,vbcrlf)

        if isnull(data(2)) = false then
            response.write "Dundrar i högtalarna just nu: " & trim(data(2))
        else
            response.write "-=silence=-"
    else
        response.write "-=silence=-"
    end if
end if

rfile.close
set rfile = nothing
set fso = nothing

MelittaMedlem sedan sep. 2003448 inlägg

3 feb. 2004 18:38#3

Tacka
Då återstår bara andra delen, jag har kommit så långt att jag vet att den skriver till en txt fil men sen är det stopp :/

Web-TorMedlem sedan nov. 200013 890 inlägg

4 feb. 2004 08:17#4

Melitta »
Vill du har mer hjälp med ditt problem så ta upp det i den här tråden. Din tråd i PHP-forumet har raderats med hänvisning till regel B

Inlägg som spammas i flera forum, s.k. korspostning kommer att raderas utan anmaning.