Kun je me even wat voorbeeld designwerk laten zien en/of een (PHP/Perl/Ruby/Python/Bash of ASP/VB/C#/Cobol) codesnippet van een ~40 kbyte.
Upload pagina van Neem de Tijd.nl als voorbeeld.
<?php
require_once("configuratie.php");
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link href="ndt.css" rel="stylesheet" type="text/css" />
<title>Uploaden - Neem de Tijd.nl</title>
</head>
<body>
<div align="center">
<h2>Uploaden</h2>
<?
function uploadimage($file,$dir,$filen)
{
$filename = $filen .".swf";
if (file_exists($dir . $filename))
{
$return = 1;
}
elseif (is_uploaded_file($file['tmp_name']))
{
$return = (move_uploaded_file($file['tmp_name'], $dir . $filename)) ? 2 : 3;
}
else
{
$return = 4;
}
return array('status'=>$return,'filename'=>$filename);
}
if($_SERVER['REQUEST_METHOD'] == 'POST')
{
if (empty($_POST['titel']) || empty($_POST['bijnaam']))
{
echo "Je hebt één of meerdere velden niet ingevuld.<br /><br />";
}
else
{
$map = 'flash/';
srand ((double) microtime( )*1000000);
$willekeurig = rand( ) ."ywaftw". rand( );
$filen = md5($willekeurig);
$upload = uploadimage($_FILES['video'],$map,$filen);
$titel = htmlspecialchars(addslashes($_POST['titel']));
$bijnaam = htmlspecialchars(addslashes($_POST['bijnaam']));
$ip = $_SERVER['REMOTE_ADDR'];
if($upload['status'] == 2)
{
mysql_query("INSERT INTO `videostemp` SET `title` = '". $titel ."', `md5` = '". $filen ."', `submitter` = '". $bijnaam ."', `ip` = '". $ip ."'") or die (mysql_error ());
}
switch ($upload['status'])
{
case 1: echo "Uploaden mislukt wegens onbekende reden (Fout code: 1), probeer het later opnieuw.<br /><br />"; break;
case 2: echo "<b>Bedankt voor het uploaden! Een beheerder zal je Flash controleren en daarna op Neem de Tijd.nl zetten.</b><br /><br />"; break;
case 3: echo "Uploaden mislukt wegens onbekende reden (Fout code: 2), probeer het later opnieuw.<br /><br />"; break;
case 4: echo "Er was geen bestand gevonden.<br /><br />"; break;
case 5: echo "Je kan alleen een SWF bestand uploaden. Heb je een ander soort bestand, neem dan contact met ons op om deze op Neem de Tijd.nl te krijgen.<br /><br />"; break;
default: echo "Uploaden mislukt wegens onbekende redenen (Fout code: 3), probeer het later opnieuw.<br /><br />"; break;
}
}
}
?>
<form name="toevoegform" method="post" action="<?php echo $_SERVER['PHP_SELF']; ?>" enctype="multipart/form-data">
<table width="30%">
<tr>
<td width="30%">Flash bestand</td><td width="70%"><input type="file" name="video" size="40" /></td>
</tr>
<tr>
<td width="30%">Flash titel</td><td width="70%"><input type="text" name="titel" size="30" maxlength="35" /></td>
</tr>
<tr>
<td width="30%">Je (bij)naam *</td><td width="70%"><input type="text" name="bijnaam" size="22" maxlength="30" /></td>
</tr>
<tr>
<td width="30%"></td><td width="70%"><input type="submit" name="toevoegen" value="Uploaden" /></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><small>* Je (bij)naam wordt niet vermeld bij de Flash.</small></td>
</tr>
</table>
</form><br /><br />
<u><b>Heb je geen SWF bestand, maar bijv. een WMV bestand of iets dergelijks, <a href="contact.php" title="Contact">mail</a> mij dan zodat ik de video kan overzetten en alsnog op Neem de Tijd.nl kan zetten.</b><u/><br /><br />
<small><a href="laatste.html" title="Terug naar de Flashes">Terug naar de Flashes</a> - <a href="contact.php" title="Contact">Contact</a></small><br /><br />
</div>
</body>
</html>
Voorbeeld van een stukje Delphi (Object Pascal) code van FileListDownloader (download programma voor eigen gebruik).
procedure TfrmMain.btnStartClick(Sender: TObject);
var
i : Integer;
Arr1, Arr2 : TSplitArray;
Tmp : String;
begin
If (edtDestination.Text = '') Then
Begin
ShowMessage('Please define the destination folder.');
Exit;
End;
If (lstFiles.Lines.Count < 1) Then
Begin
ShowMessage('Need atleast 1 file to download!');
Exit;
End;
btnStart.Enabled := False;
btnBrowse1.Enabled := False;
btnBrowse2.Enabled := False;
lstFiles.Enabled := False;
cbxRS.Enabled := False;
prbProgress.Max := lstFiles.Lines.Count;
prbProgress.Min := 0;
prbProgress.Position := 0;
prbProgress2.Max := 100;
prbProgress2.Min := 0;
prbProgress2.Position := 0;
lblInfo2.Caption := 'Size: 0/0';
lblFileOf.Caption := 'File: 0/'+ IntToStr(lstFiles.Lines.Count);
lblCurrent.Caption := 'Downloading: -/-';
for i := 0 to Pred(lstFiles.Lines.Count) do
begin
lblFileOf.Caption := 'File: '+ IntToStr(i+1) +'/'+ IntToStr(lstFiles.Lines.Count);
lblCurrent.Caption := 'Adding to list: '+ lstFiles.Lines.Strings[i];
if not (lstFiles.Lines.Strings[i] = '') then
begin
with Copy.Items.Add do
begin
URL := lstFiles.Lines.Strings[i];
Protocol := wpHTTP;
FileDate := EncodeDate(2002,3,18);
CopyNewerOnly := False;
TargetDir := edtDestination.Text;
end;
end;
Application.ProcessMessages;
prbProgress.Position := prbProgress.Position + 1;
end;
btnCancel.Enabled := True;
prbProgress.Position := 0;
Copy.Execute; // Start the download :D
SpeedCheck.Enabled := True;
end;
Verder wil ik even weten wat je graag wil verdienen in de maand.
Gegevens mogen naar beheer@ispi.nl
Maakt mij niet erg veel uit. Het gaat vooral er bij mij om dat ik op een professioneel niveau leer werken.