<%@ Language=VBScript %> <%PicType = array("jpeg","jpg","gif","png", "bmp")%> <% parrentside = Request.QueryString("side") ID = Request.QueryString("id") %> <%if Request.QueryString("mode") = "delete" then%>

Dit billede er nu slettet. Hvis du fortryder sletningen, skal du klikke &id=<%=id%>>Her

<%end if%>

Vælg billede

Klik på billedet du ønsker at indsætte i blokken. Hvis du ønsker at uploade et nyt billede, gå da til bunden af denne side.

<% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") set objFolder = objFSO.GetFolder(server.MapPath("../pic")) if Request.QueryString("mode") = "upload" then if session("user") <> "demo" then ' Variables ' ********* Dim mySmartUpload Dim intCount ' Object creation ' *************** Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") ' Upload ' ****** mySmartUpload.Upload ' Save the files with their original names in a virtual path of the web server ' **************************************************************************** intCount = mySmartUpload.Save("../pic") ' sample with a physical path ' intCount = mySmartUpload.Save("c:\temp\") ' Display the number of files uploaded ' ************************************ Response.Write(intCount & " file(s) uploaded.") else Response.Write "
Det er ikke muligt at uploade et billede i demo mode
" end if end if if Request.QueryString("mode") = "delete" then if session("user") <> "demo" then set objFolder = objFSO.GetFolder(server.MapPath("..\pic\undo")) for each filenavn in objFolder.files objFSO.DeleteFile server.MapPath("..\pic\undo") & "\" & filenavn.name, true next filenavn = Request.QueryString("pic") objFSO.MoveFile server.MapPath("..\pic") & "\" & replace(filenavn,"_spc_"," "), server.MapPath("..\pic\undo") & "\" ' objFSO.DeleteFile server.MapPath("pic") & "\" & replace(filenavn,"_spc_"," "), true else Response.Write "
Det er ikke muligt at slette et billede i demo mode
" end if end if if Request.QueryString("mode") = "undo" then if session("user") <> "demo" then set objFolder = objFSO.GetFolder(server.MapPath("..\pic\undo")) for each filenavn in objFolder.files objFSO.MoveFile server.MapPath("..\pic\undo") & "\" & filenavn.name, server.MapPath("..\pic") & "\" 'Response.Write filenavn.name & " : " & server.MapPath("pic") & "\" next end if end if %> <%set objFolder = objFSO.GetFolder(server.MapPath("..\pic")) for each filenavn in objFolder.files%>

<%=filenavn.name%>

')">
<%isPic = false for pic_i = 0 to ubound(PicType) if PicType(pic_i) = lcase(objFSO.GetExtensionName(filenavn.name)) then isPic = True end if next if isPic = true Then%>

<%else%> <%=filenavn.name%> <%end if%>

<%Next%>

Upload

Klik på Browse for at finde billedet på din harddisk, du ønsker at uploade. Tryk herefter på upload. Der kan uploades op til 4 billeder af gangen. Der bør kun uploades billeder af formatet, jpg, gif eller png, da disse er særligt egnet til Internettet. Du skal være opmærksom på at billederne ikke fylder for meget, da det så vil tage unødigt lang tid for brugerne af siden at se disse.