webForumDet fria alternativet
Logga in / Bli medlem

MysmartUpload Igen.. =)

ASP

10 svar · 238 visningar · startad av Bucher

BucherMedlem sedan sep. 20029 inlägg
Trådstart#1

hmm fel igen...altså jag är newbie på detta ..skulle vara tacksam ifall nång kunde hjälpa: =)

hmm jag får felkod :
"Feltyp:
Request-objekt, ASP 0208 (0x80004005)
Det går inte att använda den allmänna Request-samlingen efter att BinaryRead har anropats.
/skoter/ny.asp, line 84"

nån som har nån lösning..??
tack på förhand. =)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="adovbs.inc" -->
<html>

<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<title>Skoter</title>
</head>

<body>
<p><font face="verdana, arial" size="4"><b><font face="Arial, Helvetica, sans-serif">Lägg
till skoter</font></b></font></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><a href="adm_menu.asp">Huvudmeny</a>
| <a href="javascript:window.close()">Logga ut</a></b></font></p>
<form method="POST" action="ny.asp?add=yes" ENCTYPE="multipart/form-data">
<p><font face="verdana,arial" size="1"><b> Märke:</b><br>
<input name="Marke" type="text" id="Marke" size="60" maxlength="250">
<br>
<b>Modell:</b><br>
<input name="Modell" type="text" id="Modell" size="60" maxlength="250">
</font><br>
<font face="verdana,arial" size="1"><b>Årsmodell:</b><br>
<input name="Arsmodell" type="text" id="Arsmodell" size="15" maxlength="10">
</font> <font face="verdana,arial" size="1"><br>
<b>Motor:</b><br>
<input name="Motor" type="text" id="Motor" size="50" maxlength="100">
<br>
<b>Kylsystem:</b><br>
<input name="Kylsystem" type="text" id="Kylsystem" size="50">
<br>
<b>Matta:</b><br>
<input name="Matta" type="text" id="Matta" size="50">
<br>
<b>Mätarställning:</b><br>
<input name="Miltal" type="text" id="Miltal" size="20">
<br>
<b>Utrustning:</b><br>
<input name="Utrustning" type="text" id="Utrustning" size="60">
<b><br>
Övrig info:</b><br>
<b> </b> </font><font face="verdana,arial" size="1">
<textarea name="Ovrigt" cols="50" rows="8" id="Ovrigt" style="font-family: verdana,arial;"></textarea>
</font><br>
<font face="verdana,arial" size="1"><b>Pris:</b><br>
<input name="Pris" type="text" id="Pris" size="20">
kr (inkl moms)</font></p>
<p><font face="verdana,arial" size="1"><b>Bild (ange sökväg):</b><br>
</font>
<input type="file" name="Fil" size="60">
</p>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>TIPS!</strong><br>
För att bilden ska passa webbsidans storlek bör den vara ungefär
???x??? pixlar. </font></p>
<font face="verdana,arial" size="1"><p>
<p>
<input type="submit" value="Spara" style="font-size: 8pt; font-family: verdana, arial">
</font>
</form>

<% If Request.QueryString("add") = "yes" Then %>
<% Dim mySmartUpload
Dim File

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={microsoft access driver (*.mdb)}; DBQ="& _
Server.MapPath("db/db1.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")

%>

<% tmp = Now()

Addera = "SELECT \* FROM files"
rs.Open Addera, conn, adOpenStatic, adLockOptimistic
rs.AddNew
rs("marke") = Request("Marke")
rs("modell") = Request.Form("Modell")
rs("arsmodell") = Request.Form("Arsmodell")
rs("motor") = Request.Form("Motor")
rs("kylsystem") = Request.Form("Kylsystem")
rs("matta") = Request.Form("Matta")
rs("miltal") = Request.Form("Miltal")
rs("utrustning") = Request.Form("Utrustning")
rs("ovrigt") = Request.Form("Ovrigt")
rs("pris") = Request.Form("Pris")
rs("datum") = FormatDateTime(tmp,vbShortdate)
rs("kl") = FormatDateTime(tmp,vbShorttime)

'For each file In mySmartUpload.Files

'If not file.IsMissing Then
	 file.FileToField rs.Fields("File Data")
	 rs("File Name") = file.FileName
'End If

'Next

rs.Update

rs.Close
Conn.Close
Set rs = Nothing
Response.Redirect "adm_menu.asp"

%>
<% End If %>
<br>
</body>
</html>

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#2

Du kan inte använda Request.Form när du laddar upp filer. Dock finns i de flesta uploadkomponenter egna metoder för att kompensera. Istället använder du mySmartUpload.Form("Fältet").

Och du: Använd gärna [kod]-taggar så blir din kod mer lättläst.

Mvh,

martinpartinMedlem sedan jan. 2001373 inlägg
#3

Testa detta

RS("databas") = MySmartUpload.Form("formulär")

BucherMedlem sedan sep. 20029 inlägg
#4

tack för hjälpen...
nu är det så här =), se nedan
Nu är det fel:
"Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
/skoter/ny.asp, line 99
"
vilket är :

"file.FileToField rs.Fields("FileData")
rs("FileName") = file.FileName
"

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="adovbs.inc" -->
<html>

<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<title>Skoter</title>
</head>

<body>
<p><font face="verdana, arial" size="4"><b><font face="Arial, Helvetica, sans-serif">Lägg
till skoter</font></b></font></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><a href="adm_menu.asp">Huvudmeny</a>
| <a href="javascript:window.close()">Logga ut</a></b></font></p>
<form method="POST" action="ny.asp?add=yes" ENCTYPE="multipart/form-data">
<p><font face="verdana,arial" size="1"><b> Märke:</b><br>
<input name="Marke" type="text" id="Marke" size="60" maxlength="250">
<br>
<b>Modell:</b><br>
<input name="Modell" type="text" id="Modell" size="60" maxlength="250">
</font><br>
<font face="verdana,arial" size="1"><b>Årsmodell:</b><br>
<input name="Arsmodell" type="text" id="Arsmodell" size="15" maxlength="10">
</font> <font face="verdana,arial" size="1"><br>
<b>Motor:</b><br>
<input name="Motor" type="text" id="Motor" size="50" maxlength="100">
<br>
<b>Kylsystem:</b><br>
<input name="Kylsystem" type="text" id="Kylsystem" size="50">
<br>
<b>Matta:</b><br>
<input name="Matta" type="text" id="Matta" size="50">
<br>
<b>Mätarställning:</b><br>
<input name="Miltal" type="text" id="Miltal" size="20">
<br>
<b>Utrustning:</b><br>
<input name="Utrustning" type="text" id="Utrustning" size="60">
<b><br>
Övrig info:</b><br>
<b> </b> </font><font face="verdana,arial" size="1">
<textarea name="Ovrigt" cols="50" rows="8" id="Ovrigt" style="font-family: verdana,arial;"></textarea>
</font><br>
<font face="verdana,arial" size="1"><b>Pris:</b><br>
<input name="Pris" type="text" id="Pris" size="20">
kr (inkl moms)</font></p>
<p><font face="verdana,arial" size="1"><b>Bild (ange sökväg):</b><br>
</font>
<input type="file" name="Fil" size="60">
</p>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>TIPS!</strong><br>
För att bilden ska passa webbsidans storlek bör den vara ungefär
???x??? pixlar. </font></p>
<font face="verdana,arial" size="1"><p>
<p>
<input type="submit" value="Spara" style="font-size: 8pt; font-family: verdana, arial">
</font>
</form>

<% If Request.QueryString("add") = "yes" Then %>
<% Dim mySmartUpload
Dim File

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={microsoft access driver (*.mdb)}; DBQ="& _
Server.MapPath("db/db1.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")

%>

<% tmp = Now()

Addera = "SELECT \* FROM files"
rs.Open Addera, conn, adOpenStatic, adLockOptimistic
rs.AddNew
rs("marke") = mySmartUpload.Form("Marke")
rs("modell") = mySmartUpload.Form("Modell")
rs("arsmodell") = mySmartUpload.Form("Arsmodell")
rs("motor") = mySmartUpload.Form("Motor")
rs("kylsystem") = mySmartUpload.Form("Kylsystem")
rs("matta") = mySmartUpload.Form("Matta")
rs("miltal") = mySmartUpload.Form("Miltal")
rs("utrustning") = mySmartUpload.Form("Utrustning")
rs("ovrigt") = mySmartUpload.Form("Ovrigt")
rs("pris") = mySmartUpload.Form("Pris")
rs("datum") = FormatDateTime(tmp,vbShortdate)
rs("kl") = FormatDateTime(tmp,vbShorttime)

'For each file In mySmartUpload.Files

'If not file.IsMissing Then
	 file.FileToField rs.Fields("FileData")
	 rs("FileName") = file.FileName
'End If

'Next

rs.Update

rs.Close
Conn.Close
Set rs = Nothing
Response.Redirect "adm_menu.asp"

%>
<% End If %>
<br>
</body>
</html>

solbulleMedlem sedan mars 20015 287 inlägg
#5

Objektet saknas eftersom att du har utkommenterat den raden som skapar objektet:
'For each file In mySmartUpload.Files
(Samt de tillhörande raderna omkring.)

Ta bort dina utkommenteringar så ska det fungera.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="adovbs.inc" --> 
<html> 

<head> 
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1"> 
<title>Skoter</title> 
</head> 

<body> 
<p><font face="verdana, arial" size="4"><b><font face="Arial, Helvetica, sans-serif">Lägg 
till skoter</font></b></font></p> 
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><a href="adm_menu.asp">Huvudmeny</a> 
| <a href="javascript:window.close()">Logga ut</a></b></font></p> 
<form method="POST" action="ny.asp?add=yes" ENCTYPE="multipart/form-data"> 
<p><font face="verdana,arial" size="1"><b> Märke:</b><br> 
<input name="Marke" type="text" id="Marke" size="60" maxlength="250"> 
<br> 
<b>Modell:</b><br> 
<input name="Modell" type="text" id="Modell" size="60" maxlength="250"> 
</font><br> 
<font face="verdana,arial" size="1"><b>Årsmodell:</b><br> 
<input name="Arsmodell" type="text" id="Arsmodell" size="15" maxlength="10"> 
</font> <font face="verdana,arial" size="1"><br> 
<b>Motor:</b><br> 
<input name="Motor" type="text" id="Motor" size="50" maxlength="100"> 
<br> 
<b>Kylsystem:</b><br> 
<input name="Kylsystem" type="text" id="Kylsystem" size="50"> 
<br> 
<b>Matta:</b><br> 
<input name="Matta" type="text" id="Matta" size="50"> 
<br> 
<b>Mätarställning:</b><br> 
<input name="Miltal" type="text" id="Miltal" size="20"> 
<br> 
<b>Utrustning:</b><br> 
<input name="Utrustning" type="text" id="Utrustning" size="60"> 
<b><br> 
Övrig info:</b><br> 
<b> </b> </font><font face="verdana,arial" size="1"> 
<textarea name="Ovrigt" cols="50" rows="8" id="Ovrigt" style="font-family: verdana,arial;"></textarea> 
</font><br> 
<font face="verdana,arial" size="1"><b>Pris:</b><br> 
<input name="Pris" type="text" id="Pris" size="20"> 
kr (inkl moms)</font></p> 
<p><font face="verdana,arial" size="1"><b>Bild (ange sökväg):</b><br> 
</font> 
<input type="file" name="Fil" size="60"> 
</p> 
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>TIPS!</strong><br> 
För att bilden ska passa webbsidans storlek bör den vara ungefär 
???x??? pixlar. </font></p> 
<font face="verdana,arial" size="1"><p> 
<p> 
<input type="submit" value="Spara" style="font-size: 8pt; font-family: verdana, arial"> 
</font> 
</form> 

<% If Request.QueryString("add") = "yes" Then 
Dim mySmartUpload 
Dim File 

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") 

mySmartUpload.Upload 

Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open "driver={microsoft access driver (*.mdb)}; DBQ="& _ 
Server.MapPath("db/db1.mdb") 

Set rs = Server.CreateObject("ADODB.Recordset") 

 tmp = Now() 

Addera = "SELECT * FROM files" 
rs.Open Addera, conn, adOpenStatic, adLockOptimistic 
rs.AddNew 
rs("marke") = mySmartUpload.Form("Marke") 
rs("modell") = mySmartUpload.Form("Modell") 
rs("arsmodell") = mySmartUpload.Form("Arsmodell") 
rs("motor") = mySmartUpload.Form("Motor") 
rs("kylsystem") = mySmartUpload.Form("Kylsystem") 
rs("matta") = mySmartUpload.Form("Matta") 
rs("miltal") = mySmartUpload.Form("Miltal") 
rs("utrustning") = mySmartUpload.Form("Utrustning") 
rs("ovrigt") = mySmartUpload.Form("Ovrigt") 
rs("pris") = mySmartUpload.Form("Pris") 
rs("datum") = FormatDateTime(tmp,vbShortdate) 
rs("kl") = FormatDateTime(tmp,vbShorttime) 
For each file In mySmartUpload.Files 

If not file.IsMissing Then 
file.FileToField rs.Fields("FileData") 
rs("FileName") = file.FileName 
End If 
Next 

rs.Update 

rs.Close 
Conn.Close 
Set rs = Nothing 
Response.Redirect "adm_menu.asp" 
End If %> 
<br> 
</body> 
</html>
BucherMedlem sedan sep. 20029 inlägg
#6

hej igen...Nu har jag fått till det...funkar med bilden in i databasen =)))
men när jag har ett annat dokument som ska "visa" filen så fungerar ej det...suuuck..
altså felet är där jag ska skriva img source:
<img src="<% = rs("FileName") %>" width="369" height="264">
funger ej så där...

hmm vette fan vad jag ska skriva :

<kod>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="adovbs.inc"-->
<html>
<head>
<title>Begagnade skotrar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<script language="JavaScript" type="text/JavaScript">
<!--
var popUpWin=0;
function popUpWindow(URLStr, left, top, width, height)
{
if(popUpWin)
{
if(!popUpWin.closed) popUpWin.close();
}
popUpWin = open(URLStr, 'popUpWin', 'toolbar=no, location=no, directories=no, status=no, menub ar=no, scrollbar=no, resizable=no, copyhistory=yes, width=550, height=350, left=100, top=100');
}
// -->
</script>

</head>

<body background="back_green.gif">
<p><font size="4" face="Verdana, Arial, Helvetica, sans-serif"><strong>Skotrar</strong></font></p>
<p> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% Dim mySmartUpload %>

<% Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={microsoft access driver (*.mdb)}; DBQ="& _
Server.MapPath("db/db1.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
%>

<% Texter = "SELECT * FROM files WHERE id = " & Request.QueryString("visaID") & " "
rs.Open Texter, conn, adOpenStatic, adLockOptimistic
%>
</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font></p>
<table width="597" height="295" border="0">
<tr>
<td width="218" valign="top"><p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Märke:
<% =rs("marke") %>
</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
Modell:
<% =rs("modell") %>
<br>
Årsmodell:
<% =rs("arsmodell") %>
<br>
Motor:
<% =rs("motor") %>
<br>
Kylsystem:
<% =rs("kylsystem") %>
<br>
Matta:
<% =rs("matta") %>
<br>
Mätarställning:
<% =rs("miltal") %>
<br>
Utrustning:
<% =rs("utrustning") %>
<br>
Övrig info:
<% =rs("ovrigt") %>
<br>
Pris:
<% =rs("pris") %>
<br>
</font></p>
</td>
<td width="369" valign="top"><p>
<img src="
<% = rs("FileName") %>
" width="369" height="264"> </p>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
</font></p>
<p> </p></td>
</tr>
</table>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font></p>
</body>
</html>
</Kod>

Nån ide??

solbulleMedlem sedan mars 20015 287 inlägg
#7

För det första, måste du lägga in bilden i databasen? (Alltså hela bilden, inte bara namnet - samt ladda upp bilden till servern?)

Jag tror att du måste använda dig av komponenten igen för att använda dig av filen, se tex: http://www.aspsmart.com/scripts/aspSmartUpload/publigen/content/templates/TPL_ADV_VIEW_SRC.asp?P=358&L=EN

BucherMedlem sedan sep. 20029 inlägg
#8

jag har bilden i databasen i ett fält som kallas FileName, jag ser bilden och den laddades upp till databasen via formuläret...Det fungerar ...Det jag ska göra nu är att hämta bilden från fältet "FileName" och visa den på hemsidan...??

solbulleMedlem sedan mars 20015 287 inlägg
#9

Vad menar du med att du ser bilden?

solbulleMedlem sedan mars 20015 287 inlägg
#10

Alltså, jag tror att du typ måst skriva:

<%
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.DownloadField(rs("FileName"))
 %>

Istället för bara:

<% = rs("FileName") %>

kika på deras hemsida: http://www.aspsmart.com/aspSmartUpload/

Sen bör du kanske överväga att använda dig lite mer av response.write när du skriver ut din sida så du slipper alla scriptväxlingar/taggar.

BucherMedlem sedan sep. 20029 inlägg
#11

jag har gjort det och försökt som f*n, men får ej den ej att visa bilden,..altså hämta den från databasen och visa den..

271 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91
122 ms — deklarationer (db)
0 ms — hämta statistik (cache)
147 ms — hämta tråd, inlägg och bilagor (db)
122 ms — ändringar (db)