12. april 2001 - 15:47
Der er
3 kommentarer og 1 løsning
Sa FileUp
Er der nogen der kan forklare ? <% Set upl = Server.CreateObject(\"SoftArtisans.FileUp\") upl.Path = server.mappath(\"/images1\") upl.save %> Jeg kan ikke få lortet til at virke.... Hvordan ved den hvilke formfelt den skal uploade fra ? (jeg har fulgt bogen <input type=\"file\" name=\"f1\">)
Annonceindlæg fra Hitachi
”Forskellighed gør os stærkere!”
Diversitet er ikke kun buzzwords og politisk korrekthed, men et spørgsmål om at alle føler sig godt tilpas og kan yde deres bedste.
31. januar 2025
12. april 2001 - 15:48
#1
Her er hele min kode.... <%@ LANGUAGE=\"VBSCRIPT\" %> <html> <head> <title>Untitled Document</title> <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\"> </head> <body bgcolor=\"#FFFFFF\"> <% Set upl = Server.CreateObject(\"SoftArtisans.FileUp\") upl.Path = server.mappath(\"/images1\") upl.save %> <% artikel = request.form(\"artid\") %> <% Function GetAName(DriveSpec) Dim fso Set fso = CreateObject(\"Scripting.FileSystemObject\") GetAName = fso.GetFileName(DriveSpec) End Function filnavn = replace(GetAName(request (\"billede\")),\",\",\"\") %> <% Set Conn = Server.CreateObject(\"ADODB.Connection\") Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"bebop.mdb\") SQLstmt = \"UPDATE DISTINCTROW presse SET billede = \'\" & filnavn & \"\' WHERE artikelid = \" & artikel & \"\" response.write sqlstmt Conn.Execute SQLstmt Set SQLstmt = nothing Conn.Execute objRS set objRS = nothing strConn.Close Set strConn = nothing conn.Close Set conn = nothing response.redirect(\"admin_hovedmenu.asp\") %>