ASP til hjemmeside. Gode penge gives!

det burde ikke være det helt store problem... men nu ved jeg selvfølgelig ikke præcis hvordan du vil have det...

skriv det evt til:
e-mail: kim@soze.dk
ICQ: 32036024

Her er det!!!
Live DEMO: http://www.activeserverpages.dk/aspdigital/kapitel2/eksempler/upload_access.asp

<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"/aspdigital/db/images.mdb\")
intID = Request.QueryString(\"id\")

If Request.QueryString(\"mode\") = \"show\" Then
  \' Denne kode fremviser den ønskede fil
  strSQL = \"SELECT Image_Type, Image_Data FROM Images WHERE (ImageID = \" & intID & \");\"
  Set rs = myConn.Execute(strSQL)
  If Not rs.EOF Then
    Response.ContentType = rs(\"Image_Type\")
    Response.BinaryWrite rs(\"Image_Data\")
  End If
  \' Her frigives Connection objektet fra hukommelsen
  myConn.Close
  Set myConn = Nothing
  Response.End
ElseIf intID > 0 Then
  strMsg = \"<p>Det valgte billede er:<br><img src=upload_access.asp?mode=show&id=\"& intID &\"></p>\"
End If


\' Her skabes FileUp objektet
Set objUpl = Server.CreateObject(\"SoftArtisans.FileUp\")

\' Her sættes en begrænsning på 10 kb.
If objUpl.Form(\"upload\") <> \"\" Then
  \' Hvis formen er blevet submitted
  strFilename = objUpl.Form(\"f1\").UserFilename
  strFileExt = Mid(strFilename, InstrRev(strFilename, \".\") + 1)
  If objUpl.Form(\"f1\").IsEmpty Then
    strMsg = \"<p>Du skal vælge en fil</p>\"
  ElseIf LCase(strFileExt) <> \"gif\" AND LCase(strFileExt) <> \"jpg\" Then
    strMsg = \"<p>Du skal vælge enten et GIF eller JPG fil!</p>\"
  ElseIf objUpl.TotalBytes > 10000 Then
    strMsg = \"<p>Billedet fylder mere end 10 Kb., vælg venligst et andet!</p>\"
  Else
    \' Her gemmes filen i databasen
    Set rsBlob = Server.CreateObject(\"ADODB.RecordSet\")
    rsBlob.Open \"Images\", myConn, 1, 3
    rsBlob.AddNew
    objUpl.Form(\"f1\").SaveAsBlob rsBlob.Fields(\"Image_Data\")
    rsBlob.Fields(\"Image_Type\") = objUpl.Form(\"f1\").ContentType
    rsBlob.Fields(\"Image_Name\") = Mid(strFilename, InstrRev(strFilename, \"\\\") + 1)
    rsBlob.Update
    intID = rsBlob(\"ImageID\")
    rsBlob.Close
    \' Her frigives vores recordset fra hukommelsen
    Set rsBlob = Nothing   
    \' Tekst der viser hvad filnavnet er og hvor meget filen fylder
    strMsg = \"<p>Filen <em>\" & strFilename & \"</em> er uploaded til databasen, og fylder <em>\" & objUpl.TotalBytes & \"</em> bytes.</p>\" &_
      \"<p><img src=upload_access.asp?mode=show&id=\"& intID &\"></p>\"
  End If
End If

\' Her frigives FileUp objektet fra hukommelsen
Set objUpl = Nothing
%><html><head>
<title>Upload til Access</title>
</head><body>
<%=strMsg%>
<form method=\"POST\" enctype=\"multipart/form-data\" action=\"upload_access.asp\">
<p><input type=\"file\" size=\"20\" name=\"f1\"></p>
<p><input type=\"submit\" name=\"upload\" value=\"Upload\"></p>
<p>Bemærk: I dette eksempel er der sat en maks. begrænsning på 10 kb.</p>
</form>
<%
\' Her skrives der link til de eksisterende objekter i databasen
strSQL = \"SELECT ImageID, Image_Name FROM Images ORDER BY Image_Name\"
Set rs = myConn.Execute(strSQL)
If Not rs.EOF Then
  Response.Write \"Objekter i databasen: <ul type=square>\"
  Do While Not rs.EOF
    Response.Write \"<li><a href=upload_access.asp?id=\" & rs(\"ImageID\") & \">\" & rs(\"Image_Name\") & \"</a></li>\"
    rs.MoveNext
  Loop
  Response.Write \"</ul>\"
End If
\' Her frigives Connection objektet fra hukommelsen
myConn.Close
Set myConn = Nothing
%>
</body></html>


-Codebase
janus@mailme.dk

Hvilke komponenter har du adgang til på dit webhotel ??

Eller rettere hvilket webhotel bruger du.

Det jo udfra det man skal lave systemet.

Flot svar fra Codebase!!

--> inkognito1, tak
men jeg blev sku\' ikke rig på mit svar :)

god jul, til jer alle sammen........

codebase: Synes din kode ser lidt sjov ud .. hvor gemmer den billedet - i en mappe sller direkte i Access databasen ... ??

se her:
http://www.activeserverpages.dk/aspdigital/kapitel2/eksempler/upload_access.asp

jammen hvor er billedet lageret ???

Ved du ikke at det er faktisk \"forbudt\" at be\' en om at sende dig til sig selv?? Andre skal jo også ha\' glæde af svarene...!!!!!!!!

Hvilke felter skal der være i databasen for at det virker? Har du en database til brug for denne upload-funktion klar?

Hvis du opretter et spørgsmål kan jeg godt hjælpe dig ...