Upload af billeder

Hvis i har asp upload kan du bruge:


<%
Dim ID, objConn, RS, El_billed
%>
<%

Set Upload = Server.CreateObject(\"Persits.Upload.1\")
Upload.Save \"x:/xxxxxxt/mediebank/images\"


\' ++++++++++++++++++++++++++++++++++ HENTER STIEN+FILNAVN ++++++++++++++++++++++++++++++++
For Each File in Upload.Files
Filstien = File.Path
Next
For Each Item in Upload.Form
ting = item.value
Next
\' ++++++++++++++++++++++++++++++++++ HENTER STIEN+FILNAVN SLUT ++++++++++++++++++++++++++++++++

\' ++++++++++++++++++++++++++++++++++ FJERN STIEN ++++++++++++++++++++++++++++++++
Function RemoveHTML(strContent)
  Do
    pos = 1
\' +++++++++++++++++++++++ HER SKRIVES \"DREVBOGSTAV :\"
    tmpBegin = InStr(pos,strContent,\"e:\")
\' +++++++++++++++++++++++ HER SKRIVES \"DREVBOGSTAV :\" SLUT
    If tmpBegin > 0 Then
      pos = tmpBegin
\' +++++++++++++++++++++++ HER SKRIVES \"SIDSTE DIR\" OG ANTALLET AF TEGN SKRIVES I NÆSTE LINIE
        tmpEnd = InStr(pos,strContent,\"/images\")
  tmpEnd = tmpEnd + 7
\' +++++++++++++++++++++++ HER SKRIVES \"SIDSTE DIR\" SLUT
        If tmpEnd > 0 Then
          strContent = Left(strContent,tmpBegin-1)  & \"\" & Right(strContent,Len(strContent)-tmpEnd)
        Else
          strContent = Left(strContent,tmpBegin-1)
          Exit Do
        End If
    Else
      Exit Do
    End If
  Loop
  RemoveHTML = strContent
End Function
tmpContent = Trim(Filstien)
Filstienkort = Replace(RemoveHTML(tmpContent), vbCrLf, \"\")
filstienkort = \"\'\" & filstienkort
\' ++++++++++++++++++++++++++++++++++ FJERN STIEN SLUT ++++++++++++++++++++++++++++++++

\' ++++++++++++++++++++++++++++++++++ GEMMER SIDSTE STI+FILNAVN ++++++++++++++++++++++++++++++++
\' Save to the database using the ToDatabase method.
\' SQL Server table creation script can be found in Database\\CreateTables.sql

Set oConn = Server.CreateObject(\"ADODB.Connection\")
oConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../bank.mdb\")

Set Rs = Server.CreateObject(\"ADODB.Recordset\")
Set Rs.ActiveConnection = oConn

filstienkort=replace(filstienkort,\"\'\",\"\")
\'her opdateres billedet i din database. Du kunne sætte begynd billedet til en blank.gif på 1x1 pixel
  strSQL = \"UPDATE DISTINCTROW links SET [hi-res] = \'\"& filstienkort &\"\' WHERE id = \"& ting &\"\"

\'response.write strsql
set Rs = oConn.Execute(strSQL)
oConn.close
\' ++++++++++++++++++++++++++++++++++ GEMMER SIDSTE STI+FILNAVN SLUT ++++++++++++++++++++++++++++++++
\' ++++++++++++++++++++++++++++++++++++++++++++++++++ OPRETTER I DATABASE
%>
<html>
<head>
<title>Upload - Billed</title>
</head>

</body>
</html>

Din upload kunne se sådan ud:

<%
dim connect
response.buffer = true
set connect = server.createobject(\"ADODB.Connection\")
connect.Open = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"../bank.mdb\")
strSQL = \"SELECT * FROM links WHERE id =\" & Request(\"linkid\")
Set rs = connect.Execute(strSQL)
%>
<html>
<head>
<title>Upload</title>

</head>
<body bgcolor=\"#999999\" text=\"#000000\" link=\"#CC0000\" vlink=\"#CC0000\" alink=\"#CC0000\">
<br>
<center>
<FORM METHOD=\"POST\" ENCTYPE=\"multipart/form-data\" ACTION=\"uploadhires.asp\">
<input class=inputSubmit type=FILE size=36 name=\"Billed\">
<input type=\"hidden\" name=\"ID\" value=\"<% response.write rs(\"id\") %>\"> 
<input class=inputBut type=\"submit\" value=\"Gem\">
</form><br>
<font size=\"2\" color=\"#FFFFFF\" face=\"Arial, Helvetica, sans-serif\"><a href=\"java script:;\" onClick=\"window.close()\">Luk vinduet</a></font></b>
</center>
</body>
</html>

OK....jeg er ikke forbandet hurtig til ASP, men rimelig stærk. Derfor vil der nok gå lidt tid mellem mine kommentarer...Jeg kigger på det

Persits.Upload.1 error \'800a0028\'

This feature has been disabled by system administrator. Use SaveVirtual instead.

hmmmm.....

Upload.Save \"x:/xxxxxxt/mediebank/images\"

SaveVirtual \"dir/dir\"

Min upload har en lille irriterende fejl jeg ikke kan finde????

strSQL = \"SELECT * FROM imgdb WHERE id =\" & Request(\"img\")

Jeg forstår ikke hvad du mener

Jeg har 2 spørgsmål til dig...

Hvad er stien i denne linie...Hvad står den for? Upload.Save \"x:/xxxxxxt/mediebank/images\"

...og hvad er mit Request??
strSQL = \"SELECT * FROM imgdb WHERE id =\" & Request(\"img\")

...der bliver afsat flere point til dig :-)

min DB ser sådan ud...

Navn=imgbank.mdb
Tabel=imgdb med \"id\" & \"img\" som to koloner

\"id\" er autonummerering
\"img\" er tekstfelter

Upload.Save \"x:/xxxxxxt/mediebank/image

Er det dir de uploaded billeder skal saves til.

Den for du uploader fra skal se sådan ud:

<%
dim connect
response.buffer = true
set connect = server.createobject(\"ADODB.Connection\")
connect.Open = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"../bank.mdb\")
strSQL = \"SELECT * FROM links WHERE id =\" & Request(\"linkid\")
Set rs = connect.Execute(strSQL)
%>
<html>
<head>
<title>Upload</title>

</head>
<body bgcolor=\"#999999\" text=\"#000000\" link=\"#CC0000\" vlink=\"#CC0000\" alink=\"#CC0000\">
<br>
<center>
<FORM METHOD=\"POST\" ENCTYPE=\"multipart/form-data\" ACTION=\"uploadhires.asp\">
<input class=inputSubmit type=FILE size=36 name=\"Billed\">
<input type=\"hidden\" name=\"ID\" value=\"<% response.write rs(\"id\") %>\"> 
<input class=inputBut type=\"submit\" value=\"Gem\">
</form><br>

</body>
</html>





Linket til denne form skal se sådan ud

upload.asp?linkid=<%rs=(\"id\")%>


har du icq ??

du kan evt bare ringe til mig 76400346

ps de point du har lagt er riligt.

1000 tak for det...Jeg ringer i morgen middag :-)

det bare ok

Jeg har fundet ud af det....forresten...hrm**...rundstyk' :oÞ