webForumDet fria alternativet
Logga in

AspUpload

6 svar · 336 visningar · startad av mikael_a

mikael_aMedlem sedan mars 2000475 inlägg
#1

Hej, har ett formulär som användarna kan ladda upp bilder till servern, men jag får bara ett internt server fel (500) hela tiden...

formulär_era_bilder.asp ser ut så här:


<!--#include file="../status.inc"-->

<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="../micke.css" rel=STYLESHEET type=text/css>

</head>

<form ACTION="era_bilder_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="#´000000"><br>
      Ditt namn:</font></td>
    <td width="50%" height="15"><font face="Verdana" size="1" color="#000000"><br>
      E-mail adress:</font></td>
  </tr>
  <tr>
    <td width="50%" height="25"><font face="Verdana" size="1">
            <input type="text" name="namn" 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="email" 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="#000000"><br>
      Hemsida:
            </font></td>
    <td width="50%" height="1"><font face="Verdana" size="1" color="#000000"><br>
      Stad:</font></td>
  </tr>
  <tr>
    <td width="50%" height="25"><font face="Verdana" size="1">
            <input type="text" 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">
            <input type="text" name="stad" 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="#000000"><br>
      Kattens namn:
            </font></td>
    <td width="50%" height="4"><font face="Verdana" size="1" color="#000000"><br>
      Kattens ålder
            </font></td>
  </tr>
  <tr>
    <td width="50%" height="25"><font face="Verdana" size="1" color="#000000">
          <input name="katt_namn" 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="#000000">
          <input name="alder" 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="#000000"><br>
      Får andra ladda hem din bild ja/nej?
            </font></td>
      </tr>
  <tr>
    <td width="50%" height="25"><font face="Verdana" size="1" color="#000000">
            <input name="ja_nej" size="50" style="font-family: Verdana; font-size: 10px; background: #ffffff; color:#000000; border-style: solid; border-color:#000000">
            </font></td>
   
  </tr>
  
    <td width="50%" height="25"></td>
  </tr>
  <tr>
    <td width="50%" height="2"><font face="Verdana" size="1" color="#000000"><br>
      Välj
            bild:
            </font>
    </td>
    <td width="50%" height="2"><font face="Verdana" size="1" color="#000000"><br>
      Övrigt:</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="ovrigt" cols="40"></textarea></p>
</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="#000000"><--
      <a href="fotogalleriet.asp">
            Tillbaks till fotogalleriet</a></font></td>
 </body>

och era_bilder_insert.asp ser ut så här:


<%

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

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

	Upload.Save("/clients/micke-anna.nu/wwwroot/images/kattsidan/era_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
	filstorlek = File.Size
	ovrigt = upload.Form("ovrigt")
	namn = upload.Form("namn")
	stad = upload.Form("stad")
	katt_namn = upload.Form("katt_namn")
	alder = upload.Form("alder")
	hemsida = upload.Form("hemsida")
	email = upload.Form("email")
	ja_nej = upload.Form("ja_nej")
	
'=========================================================================
' 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/fotogalleri.mdb")

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

	SQLStmt = "Insert into fotogalleri "
	SQLStmt = SQLStmt  & " (ovrigt, storlek, namn, stad, katt_namn, alder, hemsida, email, ja_nej)"
	SQLStmt = SQLStmt  & " Values('" & ovrigt & "', " & filstorlek & ", '" & namn & "', '" & stad & "', '" & katt_namn & "', '" & alder & "', '" & hemsida & "', '" & email & "', '" & ja_nej & "')"
	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 fotogalleri"
	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 	"/clients/micke-anna.nu/wwwroot/images/kattsidan/era_bilder/bild" & senasteid & "." &  Extension
	File.Delete 
	Next

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

	SQLStmt = "Update fotogalleri "
	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>[:: Micke & Annas @Internet Start ::]</title>
<link REL="StyleSheet" HREF="../micke.css" TYPE="text/css">

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

// JavaScript: popup, micke.
// Av: Mikael Andersson, BuZz WebDesign
// [url="http://www.micke-anna.nu"]http://www.micke-anna.nu[/url] 
// © 2000 Mikael Andersson

function micke() {
window.status='[:: Micke & Annas @Internet Start ::]';
return true;
}

// -->
</script>

</head>
<body onload="micke()">

<p align="center"><font color="#000000">Bilden är inlagd i databasen!</font></p>

<p>&nbsp;</p>

<p><font face="Verdana" size="1" color="#000000"><-- <a href="fotogalleriet.asp">
Tillbaka till fotogalleriet</a></font></p>

<p align="center"><font color="#008000">Copyright © Mikael Andersson, BuZz
WebDesign 1999 - 2000, Med ensamrätt</font></p>

</body>
</html>

någon som ser felet?

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

VideMedlem sedan dec. 19998 577 inlägg
#2

Vilken sida är det som genererar felet?

Testa att byta ut:
<!--#include file="../status.inc"-->

Mot:
<!--#include file="..\status.inc"-->

om det är formulärssidan...

------------------
PC-älskare prasslar i säven, och har malt i ryggen
www.webeye.nu
Har du gjort lumpen?

mikael_aMedlem sedan mars 2000475 inlägg
#3

status bara kollar om användaren har rättigheter, kan det vara det som spökar?

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

AGMedlem sedan mars 20001 266 inlägg
#4

Testade du det Vide skrev?

Ja det kan nog annars vara det som spökar, alltså du måste ju vara inloggad, antar jag, för att komma åt sidan.
Ta bara bort den raden en gång och testa, se vad som händer.

Andreas

mikael_aMedlem sedan mars 2000475 inlägg
#5

har både ändrat den, och tagit bort raden, men jag får samma fel...

det fungerar kanon på localhost, men inte på webservern, och de stödjer AspUpload. får kanske skriva en rad till supporten.

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

ToonsterMedlem sedan feb. 20001 590 inlägg
#6

Har du set till att katalogen images/kattsidan/era_bilder har läs och skrivrättigheter?

Annars kan det vara så att det är ett internt serverfel som du inte kan påverka. Bilderna som skickas upp till servern brukar hamna i en temp katalog, och sedan kopieras till "din" katalog. Kan mycket väl vara så att det är problem där.

/T

------------------
public static void main()

mikael_aMedlem sedan mars 2000475 inlägg
#7

enligt supporten idag, så skulle jag byta ut save mot virtual save...

menar de Upload.Save att den skall bytas ut mot Upload.Save.virtual ??

eller är jag ute och reser?

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

142 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
139 ms — hämta tråd, inlägg och bilagor (db)