slet billede funktion i mit adm. modul
Hvem kan hjælpe mig med at lave et slet billede funktion, så jeg kan slette billede-filer fra mit website.Jeg har lavet hjemmesiden www.kauri.dk der har jeg et billede galleri, som hendter billeder ind fra en mappe.
Jeg kunne godt tænke mig at genbruge dette galleri-script men under hver billede skal der være en slet funktion, så man kan se hvilke billede man sletter.
Jeg vil gerne give flere point for den der kan løse denne opgave.
image_gallery.asp
********************
<br>
<center>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" class="top" align="center"><b> .:: KAURIS BILLED GALLERI ::. </b></td>
</tr>
<tr>
<td width="100%" align="center"><%
dim strfilearr, strcountfiles, randomfile, directory, allfiles, directoryfile
strmappe = "gallery"
SiteName = "image_gallery.asp"
Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath(strmappe))
For each directoryfile in allfiles.files
strfilearr = strfilearr + directoryfile.Name & ","
strcountfiles = strcountfiles + 1
Next
if request.querystring("execute") ="popup" then
ImageArray = split(strfilearr,",")
response.write "<html>" & vbCrLf &_
"<head>" & vbCrLf &_
"<title>image gallery [goat design]</title>" & vbCrLf &_
"<script>" & vbCrLf &_
"function resizeMe(){" & vbCrLf &_
"if (navigator.appName == 'Netscape'){" & vbCrLf &_
"adjWidth = document.images[""0""].width + 6;" & vbCrLf &_
"adjHeight = document.images[""0""].height + 27;" & vbCrLf &_
"}" & vbCrLf &_
"else {" & vbCrLf &_
"adjWidth = document.images[""0""].width + 100;" & vbCrLf &_
"adjHeight = document.images[""0""].height + 150;" & vbCrLf &_
"}" & vbCrLf &_
"window.resizeTo(adjWidth, adjHeight);" & vbCrLf &_
"window.focus()" & vbCrLf &_
"}" & vbCrLf &_
"</script>" & vbCrLf &_
"</head>" & vbCrLf &_
"<body margin='0' onLoad=""resizeMe();"">" & vbCrLf &_
"<table style='width:100%;height:100%;'>" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td style='width:100%;height:100%;vertical-align:middle;text-align:center;'>" & vbCrLf &_
"<img src='"&strmappe&"/"&ImageArray(request.querystring("id")-1)&"' name=""0"" id='0' border='0'>" & vbCrLf &_
"</td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td style='text-align:center;'><a href='java script:window.close();'>close</a></td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>" & vbCrLf &_
"</body>" & vbCrLf &_
"</html>" & vbCrLf
else
response.write "<html>" & vbCrLf &_
"<head>" & vbCrLf &_
"<title>image gallery [goat design]</title>" & vbCrLf &_
"<SCRIPT LANGUAGE=""Javascript"" type=""text/javascript"">" & vbCrLf &_
"<!--" & vbCrLf &_
"function Popit(url) {" & vbCrLf &_
" popupWin = window.open(url,'new_page','width=500,height=400,scrollbars=yes')" & vbCrLf &_
"}" & vbCrLf &_
"//-->" & vbCrLf &_
"</SCRIPT>" & vbCrLf &_
"</head>" & vbCrLf &_
"<body style='text-align:center;'>" & vbCrLf
Dim CurrentPage, CountPages, ItemsprPage, ItemsTotal, ImageArray, StartImg, EndImg, SiteName, CountImgPrint
ItemsTotal = strcountfiles
ItemsprPage = "12"
CurrentPage = request.querystring("id")
If CurrentPage = "" or CurrentPage = "0" then CurrentPage = "1"
CurrentPage = Int(CurrentPage)
CountPages = (ItemsTotal/ItemsprPage)
if CountPages > int(CountPages) then CountPages = int(CountPages) + 1
ImageArray = split(strfilearr,",")
StartImg = Int((CurrentPage-1)*(ItemsprPage))
If StartImg = 0 then StartImg = 1
EndImg = (ItemsTotal-StartImg)
if cint(EndImg) > cint(ItemsprPage) then
EndImg = round(StartImg-1) + round(ItemsprPage)
else
EndImg = (StartImg + EndImg)
End if
response.write "<table style='width:50%;'>"
CountImgPrint = 0
For I = StartImg to EndImg
CountImgPrint = CountImgPrint +1
If CountImgPrint = 1 then response.write "<tr>" & vbCrLf & vbCrLf
response.write "<td style='width:20%;text-align:center;'><a href=""java script: Popit('"&SiteName&"?execute=popup&id="&I&"')"" onfocus='blur()'><img src='"&strmappe&"/"&ImageArray(I-1)&"' border='0' style='width:41px;;height:41px;' /></a></td>" & vbCrLf
If CountImgPrint = 5 then
response.write "</tr>" & vbCrLf & vbCrLf
CountImgPrint = 0
end if
Next
response.write "</tr>" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td colspan=""5"" style='width:100%;text-align:center;'>" & vbCrLf
For I = 1 to CountPages
If NOT Cint(CurrentPage) = Cint(I) then
response.write "<a href=""default.asp?emne=pic&id="&I&"""> "&I&"</a><br>"
else
response.write "["&I&"]"
end if
Next
response.write "</td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>" & vbCrLf &_
"</body>" & vbCrLf &_
"</html>" & vbCrLf
end if
%>
</td>
</tr>
<tr>
<td width="100%" class="top"> </td>
</tr>
</table>
</center>
**************
