Upload af to billeder

Du vil lægge hvert billed i samme tabelrække? Mener du, at begge billeder man uploader, skal ligge i den samme? Eller at samtlige billeder, der nogensinde bliver uploadet, skal ligge i den samme, for det giver jo ikke just god performance. =)
I øvrigt mener mange, at du får langt mere ud af at uploade til en mappe i stedet for til en database. Så ligger de ikke i databasen og fylder, når du skal hente andet ud.

Mener du, at begge billeder man uploader, skal ligge i den samme? ja begge billeder skal ligge i samme tabel række  men i hver deres kolonne/felt.

Jeg har prøvet at lave et script men som det ser ud nu bliver der kun uploaded et billede til sql databasen. Så hvis man kunne tilføje noget til koden, så den kunne uploade to filer så ville det være fedt.

Her har i koden

<%
case "cms_ref"
%>
<table width="337" border="0" cellspacing="0" cellpadding="0"> 
<form enctype="multipart/form-data" method="post" action="index.asp?page=cmsref_upload">
  <tr>
    <td width="67" height="24" align="left"><span class="brodskrift">Overkrift:</span></td>
    <td width="5" height="24"></td>
    <td width="222" height="24" align="left"><input type="text" name="stroverkriftForm"/></td>
    <td width="43" height="12"></td>
  </tr>
  <tr>
    <td colspan="4" height="12"></td>
  </tr>
  <tr>
    <td colspan="4" height="24" align="left"><span class="brodskrift">Smalltext:</span></td>
  </tr>
  <tr>
    <td colspan="4" height="12"></td>
  </tr>
  <tr>
    <td colspan="4" height="200" align="left">
    <%
        Set oFCKeditor = New FCKeditor
        oFCKeditor.BasePath = "fckeditor/"
        oFCKeditor.Create "FCKeditor"
    %>    </td>
  </tr>
  <tr>
    <td colspan="4" height="12"></td>
  </tr>
  <tr>
    <td colspan="4" height="24" align="left"><span class="brodskrift">Longtext:</span></td>
  </tr>
  <tr>
    <td colspan="4" height="10"></td>
  </tr>
  <tr>
    <td colspan="4" height="200" align="left">
    <%
        Set oFCKeditor = New FCKeditor
        oFCKeditor.BasePath = "fckeditor/"
        oFCKeditor.Create "inhold"
    %>    </td>
  </tr>
  <tr>
    <td colspan="4" height="12"></td>
  </tr>
  <tr>
  <tr>
    <td width="67" align="left"><span class="brodskrift">New.Billede:</span></td>
    <td width="5"></td>
    <td width="222" align="left"><input type="file" name="myfile" /></td>
    <td width="43"></td>
  </tr>
  <tr>
    <td colspan="4" height="12"></td>
  </tr>
 

 

<tr> 
    <td width="67" align="left"><span class="brodskrift">Org.Billede:</span></td>
    <td width="5"></td>
    <td width="222" align="left"><input type="file" name="pic" /></td>
    <td width="43"></td>
  </tr>
  <tr>
    <td colspan="4" height="12"></td>
  </tr>
  <tr>
    <td colspan="4" height="24" align="left"><input type="submit" value="Upload" /></td>
  </tr>
  </form>
 
</table>

<% '-----------------------------------------------case cmsref_upload------------------------------------------%>

<%
case "cmsref_upload"

    width = 111
    height = 107

    'Opret objekt
    Set Upload = Server.CreateObject("Persits.Upload")
   
    'Fortæl at fier ikke må overskrives
    upload.OverwriteFiles = False
   

        Path = Server.MapPath("./upload/original")
   
      'Fang uploaded filer og nummeret
    Count = Upload.Save(Path)
   
    'Hvis count =0 er der ikke uploaded noget. SKriv fejl
    If Count = 0 then
        response.write "Ingen billede valgt"
    else
        'Fang filen til upload
        Set File = Upload.Files(1)
       
        'Tjek filformat
        if File.Ext <> ".jpg" then
            response.write"Forkert fil format"
            response.End()
        end if
       
        'Er det en gyldig billede fil?
        If File.ImageType <> "UNKNOWN" then
            Set Jpeg = Server.CreateObject("Persits.Jpeg")
           
            'Åben den uploadede fil
            Jpeg.Open(File.Path)

            'Resize, uden at strække eller presse
    if Jpeg.OriginalWidth > int(width) or Jpeg.OriginalHeight > int(height) then
                NewWidth = width
                Jpeg.Width = NewWidth
    Jpeg.Height = Jpeg.OriginalHeight * NewWidth / Jpeg.OriginalWidth
        end if                       

Jpeg.Quality = 100

'Beskær billedet 0px fra venstre og 0px fra toppen indtil ønsket bredde og højde er nået
           
                      if Jpeg.Height > int(height) then
            Jpeg.Crop 0, 0, width, int(height)
            end if
           
            '0 dårlig kvalitet (hurtigst), 1 God kvalitet (Langsomt)
            Jpeg.Interpolation = 1
           
            'True = vis mere og mere af billedet mens det loades
            'False = Vis først billedet når det er loaded
            Jpeg.Progressive = True
           
           
   
            pathT = Server.MapPath("./upload/thumbnail")
           
           
           
            'angiv hvor filen skal gemmes
            SavePath = PathT & "\small_" & File.ExtractFileName
           
           
           
           
           
            'Find absolut sti til upload mappe
            dbPath = replace(server.MapPath("./upload"),"\","\\")
           
            'Gem filnavnet i en variabel
            filnavn = File.ExtractFileName
           
           
           
           
           
           
           

   
           
            overskrifrVar = Upload.form("stroverkriftForm")
            infoVar = Upload.form("FCKeditor")
            longtextVar = Upload.form("inhold")
           
           
           
           
           
'insæt i db
           
sql = "INSERT INTO refrencer(path,filnavn,r_over,r_text,r_longtext,pic) VALUES ("&"'"&dbpath&"','"&filnavn&"','"&overskrifrVar&"','"&infoVar&"','"&longtextVar&"','"&pic1&"')"
'response.Write sql
'response.End()

Conn.Execute(sql)
           
            'Fang billede navnet
            img = "upload/thumbnail/small_" & File.ExtractFileName
           
            'Gem filen
            Jpeg.Save SavePath
           
            'Udskriv bekræftigelse
            Response.write "Success!"
        else
            'Udskriv fejlbesked
            response.write "Filen er ikke en gyldig billede fil"
            response.End()
        end if
          end if
   
   

%>

<%if img <> "" then%>

<br />
<img src="<%=img%>" />
<%end if %>

Her har i løsningen på dette problem

form enctype="multipart/form-data" action="admin.asp?admin=opret&vis=ja&send=ok" method="post">
Billed:<br /><input type="file" name="file1" /><br /><br />
Kort tekst:<br /><input type="text" name="lilletext" style=" width:236px;" /><br /><br />
Beskrivning:<br />
    <%
    Set oFCKeditor = New FCKeditor
    oFCKeditor.BasePath = "fckeditor/"
    oFCKeditor.Create "langtext"
    %>
    <br /><br />
Kategori:<br />
<select name="kat">
        <option value="0"></option>   
        <option value="1">Billedbehandling</option>
        <option value="2">Grafisk design</option>
        <option value="3">Andre opgaver</option>
</select><br />
Vis original billed?<br /> ja / nej<br /><input type="radio" name="check" value="1" checked="checked"/>
<input type="radio" name="check" value="0" /><br />
<br />
<input type="submit" value="Opret!" />
               
</form>



<%

org = request.QueryString("org")
if org = "ok" then


set upload = Server.CreateObject("Persits.Upload")

upload.OverwriteFiles = False

path = Server.MapPath("./images/upload")



Count = Upload.Save(Path)



    If Count = 0 then
        response.write "Ingen billeder valgt"
    else
            'Fang filen til upload
        Set File = Upload.Files(1)
       
        'Tjek filformat
        if File.Ext <> ".jpg" then
            response.write"Forkert fil format"
            response.End()
        end if
       
        'Er det en gyldig billede fil?
        If File.ImageType <> "UNKNOWN" then
            Set Jpeg = Server.CreateObject("Persits.Jpeg")
           
            'Åben den uploadede fil
            Jpeg.Open(File.Path)
           
           
            PathT = Server.MapPath("./images/upload")
           
            dbPath = replace(Server.MapPath("./images/upload"),"\","\\")
           
            filnavn = File.ExtractFileName
           

           
            'Fang billede navnet
            img = "images/upload/" & File.ExtractFileName
           
           
            conn.execute("insert into billeder (b_origsti) values ('"&img&"')")
           
           
           
        end if
    end if
end if




send = request.QueryString("send")
if send = "ok" then

set upload = Server.CreateObject("Persits.Upload")

upload.OverwriteFiles = False

path = Server.MapPath("./images/upload")

Count = Upload.Save(Path)

            lilletext = upload.Form("lilletext")
            langtext = upload.Form("langtext")
            kat = upload.Form("kat")
            check = upload.Form("check")
           


    If Count = 0 then
        response.write "Ingen billeder valgt"
    else
            'Fang filen til upload
        Set File = Upload.Files(1)
       
        'Tjek filformat
        if File.Ext <> ".jpg" then
            response.write"Forkert fil format"
            response.End()
        end if
       
        'Er det en gyldig billede fil?
        If File.ImageType <> "UNKNOWN" then
            Set Jpeg = Server.CreateObject("Persits.Jpeg")
           
            'Åben den uploadede fil
            Jpeg.Open(File.Path)
           
            w = 454
           
            jpeg.Width = w
            jpeg.Height = jpeg.OriginalHeight * w / jpeg.OriginalWidth
           
            PathT = Server.MapPath("./images/upload")
           
            'angiv hvor filen skal gemmes
            SavePath = PathT & "\small_" & File.ExtractFileName
           
           
           
            dbPath = replace(Server.MapPath("./images/upload"),"\","\\")
           
            filnavn = File.ExtractFileName
           

           
            'Fang billede navnet
            img = "images/upload/small_" & File.ExtractFileName
           
            if kat = 0 then
           
            response.Write("Ingen kategori valgt!")
           
            else
           
           
            'Gem filen
            Jpeg.Save SavePath
           
            Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
           
            'Åben den uploadede fil
            Jpeg1.Open(File.Path)
           
            'Resize i henhold til scale muligheden
            jpeg1.Width = 159
            jpeg1.Height = jpeg1.OriginalHeight * 159 / jpeg1.OriginalWidth
           
                if Jpeg1.Height > 73 then   
            Jpeg1.Crop 0, 0, 159, 73
            end if
           
            PathTT = Server.MapPath("./images/upload")
           
            'angiv hvor filen skal gemmes
            SavePath = PathTT & "\thumb_" & File.ExtractFileName
           
           
            dbPath1 = replace(Server.MapPath("./images/upload"),"\","\\")
           
            filnavn1 = File.ExtractFileName
           
           
           
            'Fang billede navnet
            img1 = "images/upload/thumb_" & File.ExtractFileName
            img2 = "images/upload/" & File.ExtractFileName
            set mike = conn.execute("select b_id from billeder order by b_id desc limit 1")
           
            sqlb = "update billeder set b_redig='"&img2&"',b_thumbsti='"&img1&"', b_sti='"&img&"',b_longtext='"&langtext&"',b_text='"&lilletext&"',b_kat="&kat&",b_vis_origi="&check&" where b_id="&mike("b_id")&""
            Conn.Execute(sqlb)
           
           
           
            'Gem filen
            Jpeg1.Save SavePath
           
            'Udskriv bekræftigelse
            Response.write "Success!"
            response.Redirect("?admin=opret")
           
           
            end if
           
        else
            'Udskriv fejlbesked
            response.write "Filen er ikke en gyldig billede fil"
            response.End()
            end if
        end if
end if
end if