ASPUpload — webForum

crisse6Medlem sedan dec. 20002 441 inlägg

17 apr. 2001 13:45#1

tänkte ersätta mitt forumlärfält med en uploader... vid bilduppladdning.... men ett problem, jag vill göra som ni här på wF, ha en begränsning av vilka format som får laddas upp samt hur stora filerna får vara...är detta svårt?

------------------
www.groda.net *kvack*, *kvack*

WibergMedlem sedan juni 20002 540 inlägg

17 apr. 2001 16:21#2

Nej, det är inte så svårt.

:bire

------------------
.wiberg

crisse6Medlem sedan dec. 20002 441 inlägg

17 apr. 2001 20:03#3

okej.... men om man vill typ göra så här när man blir medlem....

Ditt namn:
bla bla
Efternamn:
bla bla
Bild på dig:
(här skulle jag vilja så att man enkelt tryckte typ på en "Bläddra"-knapp där man kunde leta upp den bild man ville ha när den ligger på ens dator)

går detta att fixa?
(psst... gillar öl-smilisen, måste testa, (fan hittar den inte, tar en annan) :OO )

------------------
www.groda.net *kvack*, *kvack*

mikael_aMedlem sedan mars 2000502 inlägg

19 apr. 2001 13:44#4

Hej, för att visa en viss film använder jag följande, kanske finns det något nyttigt du kan använda.

insert.asp

<%

'=========================================================================
' skapar objekt för komponenten AspUpload
'=========================================================================

	Set Upload = Server.CreateObject("Persits.Upload.1")

	Upload.SaveVirtual ("/images/filmnyheter/bilder")

'=========================================================================
' skapar objekt för filen som har laddats upp 
'=========================================================================

	Set File = Upload.Files(1)

'=========================================================================
' gif eller jpg bild samt storleken på filen.
' hämtar data från forumuläret som innehåller beskrivningen av filen.
'=========================================================================

	filtyp = File.ImageType
	
	beskrivning = upload.Form("beskrivning")
	filstorlek = File.Size
	speltid = upload.Form("speltid")
	orginal_titel = upload.Form("orginal_titel")
	svensk_titel = upload.Form("svensk_titel")
	regissor = upload.Form("regissor")
	skadespelare = upload.Form("skadespelare")
	kategori = upload.Form("kategori")
	hemsida = upload.Form("hemsida")
	prod_ar = upload.Form("prod_ar")
	distributor = upload.Form("distributor")
	vecka = upload.Form("vecka")
	typ = upload.Form("typ")
	datum = upload.Form("datum")
	
'=========================================================================
' kontrollera så att den uppladdade filen verkligen är av filtypen
' gif eller jpeg. 
'=========================================================================

	If File.ImageType <> "GIF" and File.ImageType <> "JPG" Then
	Response.Write "Filen måste vara av typen JPEG eller GIF"
	else
	
'=========================================================================
' öppnar koppling till databasen
'=========================================================================

	Set Connection = Server.CreateObject("ADODB.Connection")
	Connection.Open "driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/databas/film_nyheter.mdb")

'=========================================================================
' beskrivningen och storleken till bilden.
'=========================================================================

	SQLStmt = "Insert into film_nyheter "
	SQLStmt = SQLStmt  & " (beskrivning, storlek, speltid, orginal_titel, svensk_titel, regissor, skadespelare, kategori, hemsida, prod_ar, distributor, vecka, typ, datum)"
	SQLStmt = SQLStmt  & " Values('" & beskrivning & "', " & filstorlek & ", '" & speltid & "', '" & orginal_titel & "', '" & svensk_titel & "', '" & regissor & "', '" & skadespelare & "', '" & kategori & "', '" & hemsida & "', '" & prod_ar & "', '" & distributor & "', '" & vecka & "', '" & typ & "', '" & datum &"')"
	Connection.Execute(SQLStmt)
	SET SQLStmt = Nothing

'=========================================================================
' plockar ut Id-numret för senaste införandet i databasen och 
' spara det i variablen "senasteid"
'=========================================================================

	SQLStmt = "Select Max(Id) as senasteid from film_nyheter"
	SET RS = Connection.Execute(SQLStmt)
	senasteid = RS("senasteid")
	RS.Close
	SET SQLStmt = Nothing

'=========================================================================
' skapar ett nytt unikt filnamn som består av id-nummer och 
' filändelse som beror på vilken typ av fil det är.
'=========================================================================

	If file.ImageType = "GIF" Then
	Extension = "gif"
	elseif file.ImageType = "JPG" Then
	Extension = "jpg"
	End If

	filnamn = "bild" & senasteid & "." & Extension

	For Each File in Upload.Files
	File.Copy "d:\clients\video-center.nu\wwwroot\images\filmnyheter\bilder\bild" & senasteid & "." & Extension
	File.Delete 
	Next

'=========================================================================
' Uppdatera databasen och för in det nya namnet på filen.
'=========================================================================

	SQLStmt = "Update film_nyheter "
	SQLStmt = SQLStmt  & " SET Filnamn = '" & Filnamn & "'"
	SQLStmt = SQLStmt  & " Where Id = " & senasteid
	Connection.Execute(SQLStmt)
	SET SQLStmt = Nothing

'=========================================================================
' Stänger uppkopplingen.
'=========================================================================

	Connection.Close
End If 

%>
<html>
<head>

<meta name="Author" content="Mikael Andersson (micke@micke-anna.nu)">
<meta name="robots" content="noindex, nofollow">
<TITLE>www.video-center.nu</TITLE>
<LINK 
href="../video.css" rel=STYLESHEET type=text/css>
<base target="innehall">

<script language="JavaScript">
<!--

function micke(){
window.status='[ [url="http://www.video-center.nu"]www.video-center.nu[/url]  ]';
return true;
}
// -->
</script>
</head>

<body onload="micke()" background="../../images/start-sida/bakgrund.gif">

<p><font color="#FFFFFF">Filmen är inlaggd i databasen!</font></p>

<p><font face="Verdana" size="1" color="#FFFFFF"><a href="../admin/admin2.asp" onMouseOver="window.status='[ Tillbaka till admin menyn ]'; return true" onMouseOut="micke()" target="_self" style="font-family: Verdana; font-size: 8pt"><--
Tillbaka till admin menyn</a></font></p>

</body>
</html>

sedan använder jag bara:


formular.asp

<% Session.LCID = 1053 %>

<html>
<head>

<meta name="Author" content="Mikael Andersson (micke@micke-anna.nu)">
<meta name="robots" content="noindex, nofollow">
<TITLE>www.video-center.se</TITLE>
<LINK href="../video.css" rel=STYLESHEET type=text/css>

<script language="JavaScript">
<!--

function micke(){
window.status='[ [url="http://www.video-center.se"]www.video-center.se[/url]  ]';
return true;
}
// -->
</script>
</head>

<body onload="micke()" background="../../images/start-sida/bakgrund.gif">

<form ACTION="insert.asp" METHOD="POST" ENCTYPE="multipart/form-data">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="1">
  <tr>
    <td width="50%" height="15"><font face="Verdana" size="1" color="#FFFF00"><br>
      Orginal
            titel:</font></td>
    <td width="50%" height="15"><font face="Verdana" size="1" color="#FFFF00"><br>
      Svensk
            titel:</font></td>
  </tr>
  <tr>
    <td width="50%" height="25"><font face="Verdana" size="1">
            <input type="text" name="orginal_titel" size="50" style="font-family: Verdana; font-size: 10px; background: #ffffff; color:#000000; border-style: solid; border-color:#000000"></font></td>
    <td width="50%" height="25"><font face="Verdana" size="1">
            <input type="text" name="svensk_titel" size="50" style="font-family: Verdana; font-size: 10px; background: #ffffff; color:#000000; border-style: solid; border-color:#000000"></font></td>
  </tr>
  <tr>
    <td width="50%" height="1"><font face="Verdana" size="1" color="#FFFF00"><br>
      Regissör:
            </font></td>
    <td width="50%" height="1"><font face="Verdana" size="1" color="#FFFF00"><br>
      Skådespelare:</font></td>
  </tr>
  <tr>
    <td width="50%" height="25"><font face="Verdana" size="1">
            <input type="text" name="regissor" size="50" style="font-family: Verdana; font-size: 10px; background: #ffffff; color:#000000; border-style: solid; border-color:#000000">
            </font></td>
    <td width="50%" height="25"><font face="Verdana" size="1">
            <input type="text" name="skadespelare" size="50" style="font-family: Verdana; font-size: 10px; background: #ffffff; color:#000000; border-style: solid; border-color:#000000"></font></td>
  </tr>
  <tr>
    <td width="50%" height="4"><font face="Verdana" size="1" color="#FFFF00"><br>
      Kategori:
            </font></td>
    <td width="50%" height="4"><font face="Verdana" size="1" color="#FFFF00"><br>
      Speltid:
            </font></td>
  </tr>
  <tr>
    <td width="50%" height="25"><font face="Verdana" size="1" color="#FFFF00">
          <input name="kategori" size="50" style="font-family: Verdana; font-size: 10px; background: #ffffff; color:#000000; border-style: solid; border-color:#000000">
            </font></td>
    <td width="50%" height="25"><font face="Verdana" size="1" color="#FFFF00">
          <input name="speltid" size="50" style="font-family: Verdana; font-size: 10px; background: #ffffff; color:#000000; border-style: solid; border-color:#000000">
            </font></td>
  </tr>
  <tr>
    <td width="50%" height="1"><font face="Verdana" size="1" color="#FFFF00"><br>
      Prod.
            år:
            </font></td>
    <td width="50%" height="1"><font face="Verdana" size="1" color="#FFFF00"><br>
      Distributör:</font></td>
  </tr>
  <tr>
    <td width="50%" height="25"><font face="Verdana" size="1" color="#FFFF00">
            <input name="prod_ar" size="50" style="font-family: Verdana; font-size: 10px; background: #ffffff; color:#000000; border-style: solid; border-color:#000000">
            </font></td>
    <td width="50%" height="25"><font face="Verdana" size="1" color="#FFFF00">
          <input name="distributor" size="50" style="font-family: Verdana; font-size: 10px; background: #ffffff; color:#000000; border-style: solid; border-color:#000000"></font></td>
  </tr>
  <tr>
    <td width="50%" height="1"><font face="Verdana" size="1" color="#FFFF00"><br>
      Filmens
            hemsida:
            </font></td>
    <td width="50%" height="1"><font face="Verdana" size="1" color="#FFFF00"><br>
      Vecka:&nbsp;
            </font></td>
  </tr>
  <tr>
    <td width="50%" height="25"><font face="Verdana" size="1" color="#FFFF00">
            <input name="hemsida" size="50" style="font-family: Verdana; font-size: 10px; background: #ffffff; color:#000000; border-style: solid; border-color:#000000">
            </font></td>
    <td width="50%" height="25"><font face="Verdana" size="1" color="#FFFF00">
            <input name="vecka" size="50" style="font-family: Verdana; font-size: 10px; background: #ffffff; color:#000000; border-style: solid; border-color:#000000">
            </font></td>
  </tr>
  <tr>
    <td width="50%" height="1"><font face="Verdana" size="1" color="#FFFF00"><br>
      Typ: (Vhs / Dvd)</font></td>
    <td width="50%" height="1"><font face="Verdana" size="1" color="#FFFF00"><br>
            </font></td>
  </tr>
  <tr>
    <td width="50%" height="25"><font face="Verdana" size="1" color="#FFFF00">
            <input name="typ" size="50" style="font-family: Verdana; font-size: 10px; background: #ffffff; color:#000000; border-style: solid; border-color:#000000">
            </font></td>
    <td width="50%" height="25"></td>
  </tr>
  <tr>
    <td width="50%" height="2"><font face="Verdana" size="1" color="#FFFF00"><br>
      Välj
            bild:
            </font>
    </td>
    <td width="50%" height="2"><font face="Verdana" size="1" color="#FFFF00"><br>
      Handling:</font></td>
  </tr>
  <tr>
    <td width="50%" height="25" valign="top"><font face="Verdana" size="1" color="#FFFFFF"><input type="File" name="theFile" size="36" style="font-family: Verdana; font-size: 10px; background: #ffffff; color:#000000; border-style: solid; border-color:#000000><input type="name="B2" button">
            </font>
    </td>
    <td width="50%" height="25"><p><textarea
      rows="4" name="Beskrivning" cols="40"></textarea></p>
</td>
  </tr>
  <td width="50%" height="25"><font face="Verdana" size="1" color="#ffffff"><input name="datum" value="<%=MonthName(Month(Date))%>"></font></td>
        </tr>
   <tr>
    <td width="50%" height="25"><font face="Verdana" size="1" color="#FFFFFF">
            <input type="submit" value="Skicka"></font>
            <input type="reset" value="Börja om"></td>
    <td width="50%" height="25"></td>
  </tr>
</table>
<p><font face="Verdana" size="1" color="#FFFFFF"><a href="../admin/admin2.asp" onMouseOver="window.status='[ Tillbaka till admin. menyn ]'; return true" onMouseOut="micke()" style="font-family: Verdana; font-size: 8pt"><--
            Tillbaks till admin. menyn</a></font></p>
 </body>

------------------
Micke & Annas Sajt
micke@micke-anna.nu

[Redigerat av mikael_a den 19 apr 2001]