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 tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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\") %>
12. april 2001 - 18:50
#2
Får du nogen fejl eller ? evt: upl.Path = server.mappath(\"\\images1\\\")
15. april 2001 - 16:01
#3
har selv løst den....! ellers tak
15. april 2001 - 19:56
#4
Vil da gerne vide hvordan du løste det ?
Kurser inden for grundlæggende programmering