Er der nogen der kan hjælpe mig med, at lave et cgi/asp der gør det muligt at uploade filer til et givent sted på en server, direkte fra browseren. Filen skal desuden tilføje noget HTML automatisk til alle HTML filerne.
Danmark vil mindske afhængigheden af globale techgiganter, men det kræver mere end politiske formuleringer og strategier, understreger PROSA’s formand Niels Bertelsen.
<TABLE BORDER=1> <TR><TH>Path</TH><TH>Width x Height</TH></TR> <% For Each File in Upload.Files Response.Write \"<TR><TD>\" & File.Path & \"</TD><TD>\" Ext = UCase(Right(File.ExtractFileName, 3)) If Ext = \"GIF\" or Ext = \"JPG\" or Ext = \"BMP\" or Ext = \"PNG\" Then Response.Write File.ImageWidth & \" x \" & File.ImageHeight & \"</TD></TR>\" Response.Write File.ExtractFileName & \"</TD></TR>\" jan =File.ExtractFileName Else Response.Write \"Not an image</TD></TR>\" End If Next Response.Write \"</TABLE>\"
set conn = Server.createobject(\"adodb.connection\") conn.Open \"DBQ=f:/websider/arte/prove/test.mdb; DefaultDir=DBQ=\"& Server.MapPath(\"/\") &\";Driver={Microsoft Access Driver (*.mdb)};\" Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"Select * From upload \" rs.Open strSQL, Conn, 2, 3
rs.addnew if not upload.Form(\"prove\") = \"\" then rs(\"prove\") = upload.Form(\"prove\") rs(\"foto\") = jan
rs.Update
conn.Close set conn = Nothing
end if %> <% = jan %> <% = Upload.Form(\"prove\") %>
Synes godt om
Ny brugerNybegynder
Din løsning...
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.