Avatar billede fedtmuledk Nybegynder
30. april 2001 - 00:27 Der er 6 kommentarer og
1 løsning

hjælp til script - delete filer

hej
dette sletter det bibliotek man har valgt, men kan det laves, så det ikke sletter biblioteket, men KUN de filer der ligger i det?
og evt. hvordan?
----------------------------
<HTML>
<HEAD>
<TITLE>SLET</TITLE>
<SCRIPT LANGUAGE=\"javascript\">
function cancel()
{
self.close()
}
</SCRIPT>
</HEAD>
<% action = request.querystring(\"action\")
if action = \"\" then %>
<BODY>
<FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"000000\">Vil du slette <% =request.querystring(\"spec\") %></FONT><BR>
<FORM ACTION=\"delete.asp?action=delete\" METHOD=\"post\">
<INPUT TYPE=\"hidden\" NAME=\"method\" VALUE=\"<% =request.querystring(\"method\") %>\">
<INPUT TYPE=\"hidden\" NAME=\"spec\" VALUE=\"<% =request.querystring(\"spec\") %>\">
<INPUT TYPE=\"submit\" VALUE=\"OK\">&nbsp;&nbsp;&nbsp;<INPUT TYPE=\"button\" ONCLICK=\"cancel();\" VALUE=\"Annuller\">
</FORM>
<%
elseif action = \"delete\" then
on error resume next
method = request.form(\"method\")
spec = request.form(\"spec\")
Set fso = CreateObject(\"Scripting.FileSystemObject\")
if method = \"fil\" then
fso.DeleteFile(spec)
elseif method = \"mappe\" then
fso.deletefolder(spec)
end if
set fso = nothing %>
<% if err.number <> 0 then %>
<FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"000000\">
Adgang N&aelig;gtet. Filen er sandsynligvis Skrivebeskyttet.<BR></FONT>
<FORM>
<INPUT TYPE=\"button\" ONCLICK=\"cancel();\" VALUE=\"OK\">
</FORM>
<%else%>
<SCRIPT LANGUAGE=\"javascript\">
opener.location.reload()
self.close()
</SCRIPT>
<%end if %>
<% end if %>
</BODY>
</HTML>
---------------------------------------
Avatar billede netfreak14 Nybegynder
30. april 2001 - 00:35 #1
Prøv http://www.asp.dk/sources.asp?mode=view_source&id=1549&tech_id=1 - Der er der et script, hvor du kan oprette, slette, redigere filer !
Avatar billede fedtmuledk Nybegynder
30. april 2001 - 00:42 #2
det jeg ønsker er ikke noget ca -ligeved - og næsten.
det SKAL bare laves, så det sletter de filer der ligger i det pågældende bibliotek.
og intet andet.
denne slet funktion er en del af et komplet stifindersystem, som jeg bare er ved at funpudse.
Avatar billede fedtmuledk Nybegynder
30. april 2001 - 00:43 #3
ups-- FIN PUDSE ikke funpudse --ups
Avatar billede netsrac Praktikant
30. april 2001 - 07:50 #4
Hm...hvem har så lavet det fil system ? Det er jo en kopi af min...
Avatar billede netsrac Praktikant
30. april 2001 - 08:14 #5
Det kan gøres sådan hher, men husk lige at det script du har taget det fra er der copyright på:

<HTML>
<HEAD>
<TITLE>SLET</TITLE>
<SCRIPT LANGUAGE=\"javascript\">
function cancel()
{
self.close()
}
</SCRIPT>
</HEAD>
<% action = request.querystring(\"action\")
if action = \"\" then %>
<BODY>
<FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"000000\">Vil du slette <% =request.querystring(\"spec\") %></FONT><BR>
<FORM ACTION=\"delete.asp?action=delete\" METHOD=\"post\">
<INPUT TYPE=\"hidden\" NAME=\"method\" VALUE=\"<% =request.querystring(\"method\") %>\">
<INPUT TYPE=\"hidden\" NAME=\"spec\" VALUE=\"<% =request.querystring(\"spec\") %>\">
<INPUT TYPE=\"submit\" VALUE=\"OK\">&nbsp;&nbsp;&nbsp;<INPUT TYPE=\"button\" ONCLICK=\"cancel();\" VALUE=\"Annuller\">
</FORM>
<%
elseif action = \"delete\" then
on error resume next
method = request.form(\"method\")
spec = request.form(\"spec\")
Set fso = CreateObject(\"Scripting.FileSystemObject\")
if method = \"fil\" then
fso.DeleteFile(spec)
elseif method = \"mappe\" then
set mymap = fso.getfolder(spec)
for ecah file in mymap
fso.deleteFile(file.name)
next
set mymap = nothing
end if
set fso = nothing %>
<% if err.number <> 0 then %>
<FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"000000\">
Adgang N&aelig;gtet. Filen er sandsynligvis Skrivebeskyttet.<BR></FONT>
<FORM>
<INPUT TYPE=\"button\" ONCLICK=\"cancel();\" VALUE=\"OK\">
</FORM>
<%else%>
<SCRIPT LANGUAGE=\"javascript\">
opener.location.reload()
self.close()
</SCRIPT>
<%end if %>
<% end if %>
</BODY>
</HTML>
Avatar billede netsrac Praktikant
30. april 2001 - 08:15 #6
<HTML>
<HEAD>
<TITLE>SLET</TITLE>
<SCRIPT LANGUAGE=\"javascript\">
function cancel()
{
self.close()
}
</SCRIPT>
</HEAD>
<% action = request.querystring(\"action\")
if action = \"\" then %>
<BODY>
<FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"000000\">Vil du slette <% =request.querystring(\"spec\") %></FONT><BR>
<FORM ACTION=\"delete.asp?action=delete\" METHOD=\"post\">
<INPUT TYPE=\"hidden\" NAME=\"method\" VALUE=\"<% =request.querystring(\"method\") %>\">
<INPUT TYPE=\"hidden\" NAME=\"spec\" VALUE=\"<% =request.querystring(\"spec\") %>\">
<INPUT TYPE=\"submit\" VALUE=\"OK\">&nbsp;&nbsp;&nbsp;<INPUT TYPE=\"button\" ONCLICK=\"cancel();\" VALUE=\"Annuller\">
</FORM>
<%
elseif action = \"delete\" then
on error resume next
method = request.form(\"method\")
spec = request.form(\"spec\")
Set fso = CreateObject(\"Scripting.FileSystemObject\")
if method = \"fil\" then
fso.DeleteFile(spec)
elseif method = \"mappe\" then
set mymap = fso.getfolder(spec)
for each file in mymap
fso.deleteFile(file.name)
next
set mymap = nothing
end if
set fso = nothing %>
<% if err.number <> 0 then %>
<FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"000000\">
Adgang N&aelig;gtet. Filen er sandsynligvis Skrivebeskyttet.<BR></FONT>
<FORM>
<INPUT TYPE=\"button\" ONCLICK=\"cancel();\" VALUE=\"OK\">
</FORM>
<%else%>
<SCRIPT LANGUAGE=\"javascript\">
opener.location.reload()
self.close()
</SCRIPT>
<%end if %>
<% end if %>
</BODY>
</HTML>
Avatar billede netsrac Praktikant
30. april 2001 - 08:39 #7
Sådan her:

<HTML>
<HEAD>
<TITLE>SLET</TITLE>
<SCRIPT LANGUAGE=\"javascript\">
function cancel()
{
self.close()
}
</SCRIPT>
</HEAD>
<% action = request.querystring(\"action\")
if action = \"\" then %>
<BODY>
<FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"000000\">Vil du slette <% =request.querystring(\"spec\") %></FONT><BR>
<FORM ACTION=\"delete.asp?action=delete\" METHOD=\"post\">
<INPUT TYPE=\"hidden\" NAME=\"method\" VALUE=\"<% =request.querystring(\"method\") %>\">
<INPUT TYPE=\"hidden\" NAME=\"spec\" VALUE=\"<% =request.querystring(\"spec\") %>\">
<INPUT TYPE=\"submit\" VALUE=\"OK\">&nbsp;&nbsp;&nbsp;<INPUT TYPE=\"button\" ONCLICK=\"cancel();\" VALUE=\"Annuller\">
</FORM>
<%
elseif action = \"delete\" then
on error resume next
method = request.form(\"method\")
spec = request.form(\"spec\")
Set fso = CreateObject(\"Scripting.FileSystemObject\")
if method = \"fil\" then
fso.DeleteFile(spec)
elseif method = \"mappe\" then
set mymap = fso.getfolder(spec)
set filer = mymap.files
for each file in filer
fso.deleteFile(file)
next
set filer = nothing
set mymap = nothing
end if
set fso = nothing %>
<% if err.number <> 0 then %>
<FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"000000\">
Adgang N&aelig;gtet. Filen er sandsynligvis Skrivebeskyttet.<BR></FONT>
<FORM>
<INPUT TYPE=\"button\" ONCLICK=\"cancel();\" VALUE=\"OK\">
</FORM>
<%else%>
<SCRIPT LANGUAGE=\"javascript\">
opener.location.reload()
self.close()
</SCRIPT>
<%end if %>
<% end if %>
</BODY>
</HTML>
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester