Jeg ville høre om der var en god aspprogrammør der gad at ændre lidt i det script for mig?
Det skal bruget til at uploade et billede.
der skal være en request som gør sådan at den omdøber billede når det bliver uploadet, og billedes navn(det den bliver omdøbt til) bliver skrevet ind i en database (Access 2000)....
der må også gerne være en funktion så hvis billede fylder mere end fx 100 kb skriver den en fejl.
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.
Har et liggende som du kan bruge, det er faktisk identisk med det du her beskriver - det køre på ASPSmartUpload komponenten som er freeware - det kan jeg godt smide op til dig med komponent og det hele ? Kræver dog du har fysisk adgang til serveren?
Nå oki, så havde jeg lige fået noget galt i halsen, men har lige skrevet det om så nu lægger den filnavnet i DB\'en og selve filen (omdøbt) i mappen /images http://www.icx.dk/eksperten/upload3.zip
jeg skal bare bruge en side hvor den tilføjer billeds navn i feltet \"billede\" og et feltet \"billedeok\" skriver den JA. dette skal sættes ind i databasen system.mdb i tabellen login hvor id = Session(\"UserID\")
Ved ikke om jeg har forstået dig ret, men har jeg burde dette virke:
\' Connect to the DB \' ***************** Set Conn = Server.CreateObject(\"ADODB.Connection\") curDir = Server.MapPath(\"system.mdb\") Conn.Open \"DBQ=\"& curDir &\";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;\"
\' Open a recordset \' **************** strSQL = \"SELECT * FROM Login WHERE ID =\'\" & Session(\"UserID\") &\"\'\"
Set Rs = Server.CreateObject(\"ADODB.recordset\") Set Rs.ActiveConnection = Conn Rs.Source = strSQL Rs.LockType = 3 Rs.Open
\' Select each file \' ****************
For each file In mySmartUpload.Files \' Only if the file exist \' ********************** If not file.IsMissing Then
\' Add the current file in a DB field \' ********************************** Rs(\"billede\") = (Session(\"UserID\")& \".\" & file.FileExt) Rs(\"billedeok\") = \"JA\" Rs.Update End if
Ved sq ikke lige hvor det er det går galt for dig, men har lige lavet en login side hvor den laver en Session(\"UserID\") og smider dig ind så du kan uploade en fil. Du kan dog kun uploade jpg, gif eller bmp filer som scriptet er nu.
Prøv det engang og se om ikke du kan flække det sammen med din egen side :o)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
