URL: https://www.overclockers.at/applications/quotupload_auf_server_per_hpquot_mit_frontpage_140776/page_1 - zur Vollversion wechseln!
Also ich hab daheim an "Server" laufen auf dem a Homepage liegt. Jetz möcht ich es möglich machen das jemand was uploaded was dann auf meiner hp zum download bereitgestellt wir. Ausschaun sollt das so in etwa wie hier auf oc.at wenn ma a pic uploaded. Zerst durchsuchen dann auf upload klicken und dann erscheint die datei in einer liste auf der hp und jeder kann sie downloaden.
Mein Problem: Ich kenn mich in html nur bedingt aus und in der frontpagehilfe hab ich soweas ned wirklich gefunden. Also die frage: wie mach ich das am besten?
TIA
master_burn
Zitat von master_burnAlso ich hab daheim an "Server" laufen auf dem a Homepage liegt. Jetz möcht ich es möglich machen das jemand was uploaded was dann auf meiner hp zum download bereitgestellt wir. Ausschaun sollt das so in etwa wie hier auf oc.at wenn ma a pic uploaded. Zerst durchsuchen dann auf upload klicken und dann erscheint die datei in einer liste auf der hp und jeder kann sie downloaden.
Mein Problem: Ich kenn mich in html nur bedingt aus und in der frontpagehilfe hab ich soweas ned wirklich gefunden. Also die frage: wie mach ich das am besten?
TIA
master_burn
Zitat von zankarnehier
Das funzt soweit auch mal aller dings sieht es so aus das ich wenn ich nach dem aussuchen der datei auf anfrage abschicken klicke nix upgeloaded wirdZitat<form action="input_file.htm" enctype="multipart/form-data">
<p>
Hier könnt ihr was uploaden:<br>
<input name="Datei" type="file" size="50" maxlength="100000">
<input type="submit"><input type="reset">
</p>
</form>
Nun hab ich aber keine ahnung vom scripten, kann mir das jemand erklären? Sonst mach ich an thread in coding stuff auf und frag dort obs mir jemand machn kannZitat#!/usr/bin/perl -w
use strict;
use CGI; # Modul fuer CGI-Programme
my $cgi = new CGI; # neues Objekt erstellen
# Content-type fuer die Ausgabe
print $cgi->header(-type => 'text/html');
# die datei-daten holen
my $file = $cgi->param("myfile");
# dateinamen erstellen und die datei auf dem server speichern
my $fname = 'file_'.$$.'_'.$ENV{REMOTE_ADDR}.'_'.time;
open DAT,'>'.$fname or die 'Error processing file: ',$!;
# Dateien in den Binaer-Modus schalten
binmode $file;
binmode DAT;
my $data;
while(read $file,$data,1024) {
print DAT $data;
}
close DAT;
print <<"HTML";
<html>
<head>
<title>Fileupload</title>
</head>
<body bgcolor="#FFFFFF">
<h1>Die Datei $file wurde erfolgreich hochgeladen.</h1>
<p>
Die Datei $file wurde erfolgreich auf dem Server
gespeichert.
</p>
</body>
</html>
HTML
overclockers.at v4.thecommunity
© all rights reserved by overclockers.at 2000-2025