Ja, men hittade ingenting... Tack för att du gjorde det istället! :)
Jag antar att det måste vara felet...
Uploadscript utan komponent
307 svar · 16 553 visningar · startad av OveRRidE · sida 14 av 16
Hej! va längesen någon skrev här hehe iallafall, jag har världens dummaste fråga, hur får man igång scriptet? :) jag ladda ner scriptet, packa upp de i en mapp, la upp de på servern och skulle testa det, men när jag trycker på ladda upp så står den bara och laddar och inget händer.. vad gör jag?
Kör servern Norton Antivirus?
@nders skrev:
Kör servern Norton Antivirus?
jag testar localt från min dator och där är NA ja :) vadå då? :P
Då får du slå av Script Blocking.
Välkänt symptom, om man säger så.
@nders skrev:
Då får du slå av Script Blocking.
Välkänt symptom, om man säger så.
okaj, lägger över det till den riktiga servern istället och testar där då..
nu fick jag ett felmeddelande iallafall
Feltyp:
Körningsfel i Microsoft VBScript (0x800A004C)
Det går inte att hitta angiven sökväg.
/test/outputfile.asp, line 38
rootmappen där filerna ligger heter test, i den ligger filerna och mappen images i mappen images ligger mappen prod, så jag förstår inte..
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/images/prod/" & filename))
Om inte /test är rootmappen för webben, utan en undermapp till webroten, då får du ta bort den först slashen, som ju betyder rot.
@nders skrev:
Om inte /test är rootmappen för webben, utan en undermapp till webroten, då får du ta bort den först slashen, som ju betyder rot.
ja just de :) hehe e för trött :P när man laddat upp bilden står det information, typ sökväg till bilden och bild typ o.s.v hur får man bort det så de inte visas efter man laddat upp bilden?
Lokalisera koden som gör utskriften, och ta bort / kommentera bort.
@nders skrev:
Lokalisera koden som gör utskriften, och ta bort / kommentera bort.
okej tackar :)
En sista fråga sen funkar allt fin fint :)
hur får jag in denna raden i min kod här nedan använder ju redan en form:
<form method="post" action="outputfile.asp" enctype="multipart/form-data">
<% If Request.Querystring("add") = "" Then %>
<form action="produkteradd.asp?add=ny" method="post">
<table border="0" cellspacing="0" cellpadding="0" width="90%">
<tr align="center" valign="top">
<td colspan="2" height="35"><b><font face="Geneva, Arial, Helvetica, san-serif" size="3">Lägg
till Produkter</font></b>
<hr>
</td>
</tr>
<tr>
<td width="200"><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Grupp</font></b></td>
<td>
<input type="text" name="nygrupp" size="40">
</td>
</tr>
<tr>
<td><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Undergrupp</font></b></td>
<td>
<input type="text" name="nyundergrupp" size="40">
</td>
</tr>
<tr>
<td><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Tredjegrupp</font></b></td>
<td>
<input type="text" name="nytredjegrupp" size="40">
</td>
</tr>
<tr>
<td><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Artikel
nr</font></b></td>
<td>
<input type="text" name="nyartnr" size="40">
</td>
</tr>
<tr>
<td><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Produktnamn</font></b></td>
<td>
<input type="text" name="nyprodukt" size="40">
</td>
</tr>
<tr>
<td><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Kort
beskrivning</font></b></td>
<td>
<input type="text" name="nytext" size="40">
</td>
</tr>
<tr>
<td><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Pris</font></b></td>
<td>
<input type="text" name="nypris" size="40">
</td>
</tr>
<tr>
<td><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Bild</font></b></td>
<td>
<input type="file" name="blob" size="40">
</td>
</tr>
<tr>
<td align="left" valign="top"><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Specificerad
beskrivning</font></b></td>
<td>
<p>
<textarea name="nyspec" cols="30" rows="6"></textarea>
</p>
</td>
</tr>
<tr align="center" valign="top">
<td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
</font>
<hr>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<input type=submit name=Submit value="<%=txt_submit%>" class="button">
<input type=reset value="<%=txt_rensa%>" class="button" name="reset">
</font> </td>
</tr>
</table>
</form>
<% End If %>
<% If Request.Querystring("add") = "ny" Then
Set conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(masterdata_databas)
add = "Select * From produkter"
RS.Open add, conn, adOpenStatic, adLockOptimistic
RS.AddNew
RS("grupp") = Replace(Request.Form("nygrupp"), "'", "''")
RS("undergrupp") = Replace(Request.Form("nyundergrupp"), "'", "''")
RS("tredjegrupp") = Replace(Request.Form("nytredjegrupp"), "'", "''")
RS("art_nr") = Replace(Request.Form("nyartnr"), "'", "''")
RS("produkt") = Replace(Request.Form("nyprodukt"), "'", "''")
RS("text") = Replace(Request.Form("nytext"), "'", "''")
RS("pris") = Replace(Request.Form("nypris"), "'", "''")
RS("bild") = Replace(Request.Form("nybild"), "'", "''")
RS("spec") = Replace(Request.Form("nyspec"), "'", "''")
RS.Update
RS.Close
conn.Close
Set RS = nothing
Set conn = nothing
Response.Redirect "produkteradd.asp?add=klar"
End If %>
<% If Request.Querystring("add") = "klar" Then %>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><br>
<script>parent.frames['meny'].location.reload(true);</script>
Produkten är nu inlagd i databasen!</b></font>
<% End If %>
ingen som vet? :)
Någon som har lust att hjälpa mig?. jag försöker göra så att på en sida så fyller man i ett formulär sedan har man möjlighet att lägga upp bild, nu till problemet, man kan endast lägga upp bilden samt ingen annan information registreras i databasen förutom självaste filen och datumet bilden placerades på servern.
så här ser koden ut:
<html>
<head>
<title>Upload</title>
</head>
<body>
<!-- #include virtual="produkter/adovbs.inc" -->
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
'Exempel på hur man kan 'plocka ner' andra forumlärelement
'email = UploadRequest.Item("email").Item("Value")
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(filename))
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
Set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=C:\Documents and Settings\Bill\Mina dokument\databas.mdb"
Set recset = Server.CreateObject("adodb.recordset")
Addera = "Select * From produkter" '//SQL
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
'//Sparar filnamn i databasen
RecSet.AddNew
RecSet("typ") = request.form("typ")
Recset("information") = request.form("information")
RecSet("datum") = Now()
Recset("bild1") = filename
RecSet.Update
RecSet.close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
response.write "<b>Filens sökväg:</b> " & Server.mappath(filename) & "<br>"
response.write "<b>Filnamn:</b> " & filename & "<br><br>"
response.write "<img src=""" & filename & """>"
%>
<!--#include file="upload.asp"-->
</body>
</html>
så frågan hur gör jag för att request.form("typ") och request.form("information") även registeras i databasen.
tack i förväg.
Står det inte i dokumentationen, alternativt i den kodsnutt du precis postat, hur man gör för att ta in formulärelement?
'Exempel på hur man kan 'plocka ner' andra forumlärelement
'email = UploadRequest.Item("email").Item("Value")
'Exempel på hur man kan 'plocka ner' andra forumlärelement
'email = UploadRequest.Item("email").Item("Value")
används inte det endast om man vill kunna lägga upp fler bilder?.
Nej, det ska du använda för att 'plocka ner' andra formulärelement.
Man kan inte använda request.form när man laddar upp en bild, så man gör på det sättet istället.
@nders. tack för hjälpen. ( varm applåd för dig )
*bugar* :bire
Upload fungerar, men inte att visa bilderna
Hej!
jo jag har tittat på det här, när jag använder scriptet så fungerar det att ladda upp bilder, bildernas namn registreras i databasen, fast jag vet inte vad för galet jag har gjort men jag kan endast se 1 bild när jag hämtar information från databasen, om jag har tur så visas två bilder. någon som vet.
<html>
<head>
<title>Upload</title>
</head>
<body>
<!-- #include virtual="adovbs.inc" -->
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
'Exempel på hur man kan 'plocka ner' andra forumlärelement
'email = UploadRequest.Item("email").Item("Value")
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
contentType = UploadRequest.Item("bildtva").Item("ContentType")
filepathname = UploadRequest.Item("bildtva").Item("FileName")
filename2 = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
contentType = UploadRequest.Item("bildtre").Item("ContentType")
filepathname = UploadRequest.Item("bildtre").Item("FileName")
filename3 = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
epost = UploadRequest.Item("epost").Item("Value")
information = UploadRequest.Item("information").Item("Value")
url = UploadRequest.Item("url").Item("Value")
onskemal = UploadRequest.Item("onskemal").Item("Value")
bildtva = UploadRequest.Item("bildtva").Item("Value")
bildtre = UploadRequest.Item("bildtre").Item("Value")
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(filename))
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
Set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=C:\Documents and Settings\FSC\Mina dokument\web\databas.mdb"
Set recset = Server.CreateObject("adodb.recordset")
addera = "Select * from onskningar"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Recset.addnew
Recset("epost") = epost
Recset("information")= information
Recset("url") = url
Recset("datum") = date
Recset("onskemal") = onskemal
Recset("huvudbild") = filename
Recset("bildtva") = filename2
Recset("bildtre") = filename3
RecSet.Update
RecSet.Close
Connect.Close
Response.redirect ("main.asp")
%>
<!--#include file="upload.asp"-->
</body>
</html>