webForumDet fria alternativet
Logga in / Bli medlem

Visa inte .asp .asa mm

ASP

14 svar · 535 visningar · startad av tank82

tank82Medlem sedan feb. 2003210 inlägg
Frågan#1

Har här ett upload script som jag skulle vilja ha så att .asp .asa och några andra filer inte visas i själva scriptet.

Kan någon hjälpa mig med detta? tack på förhand :)

<% Response.Buffer = true%>

<!--#include file="admin_upload_koppling.asp" -->
                                      <%
' Här kollar vi hur många filer och mappar det finns
strFiler = antalfiler.Count
Set antalfiler = nothing
strMappar = antalmappar.Count
Set antalmappar = nothing

' Här skrivs utrymmesanvändningen ut
Response.Write "Mappen utnyttjar "
Dim stl, stl2
stl = mapp.Size
IF stl < 1024 then
Response.Write "<b>"&Round(stl)&"</b> bytes"
ELSE
	stl2 = stl/1024
	IF stl2 > 1024 then
		Response.Write "<b>"&Round(stl2/1024,2)&"</b> Mb"
	ELSE
		Response.Write "<b>"&Round(stl2,2)&"</b> Kb"
	END IF
END IF
%>
                                      <table width='100%' cellpadding="1" cellspacing="1">
                                        <%Dim sida, messe
sida = Request.ServerVariables("SCRIPT_NAME")
messe = Session("messe")

%>
                                        <tr> 
    <td colspan=6> <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
                                                <td width="50" valign="top"> 
                                                  </td>
                                                <td> </td>
          <td width="50">&nbsp;</td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td colspan=6> <hr size=1 color=#000000> </td>
  </tr>
  <%
 ' Kollar om det finns några filer eller mappar
  IF strFiler <> 0 Or strMappar <> 0 then%>
  <tr> 
    <td width=17> 
      <%
' Funktionen för att man ska gå till överordnad mapp
k = Request("kat")
k = Replace(k,"/","\")
IF Len(k) <> 0 then
	IF Instr(k,"\") then
		myArray = Split(k,"\")
		IF Ubound(myArray) <> 0 then
			IntUpper = Ubound(myArray)-1
			strKat = sida & "?kat="
			For i = 0 to intUpper
				strKat = strKat & myArray(i)
				IF i <> intUpper then
					strKat = strKat & "\"
				END IF
			Next
		ELSE
			strKat = sida
		END IF		
	ELSE
		strKat = sida
	END IF
	Response.Write "<a href='"&strKat&"'><img src='admin_upload_bilder\upp.gi?????f' width=13 height=16 border=0></a>"
END IF
%>
      </td>
    <td width=150>Namn</td>
    <td width=65>Storlek</td>
    <td width=150 colspan="3">Skapad</td>
  </tr>
  <%
' Här hämtas alla undermappar
For Each under In undermapp
%>
  <tr> 
    <td width='17'>
      <%
Response.Write "<img src='admin_upload_bilder\mapp.gif' height='16' width='16'>"
%>
      </td>
    <td width='150'><a href="<%=sida%>?kat=<%
	IF Len(Request("kat")) <> 0 then 
	Response.Write Request("kat") & "\"
	END IF
	Response.Write under.Name %>"> 
      <%Response.Write under.Name%>
      </a></td>
    <td width='65'>
      <%
storlek = under.Size/1024
IF storlek > 1024 then
Response.Write Round(storlek/1024,2) & " Mb"
ELSEIF storlek > 1048576 then
Response.Write Round(storlek/1024/1024,2) & " Gb"
ELSE
Response.Write Round(storlek,2) & " Kb"
END IF
%>
      </td>
    <td width='145'>
      <%Response.Write under.DateCreated%>
      </td>
    <td width='8'><a href="<%=sida%>?vad=raderamapp&mapp=<%
	IF Len(Request("kat")) <> 0 then 
	Response.Write Request("kat") & "\"
	END IF
	Response.Write under.Name %>"> <img src="admin_upload_bilder\radera.gif" width="15" height="14" border="0"></a></td>
    <td width='8'>&nbsp;</td>
  </tr>
  <%Next%>
  <%
' Här hämtas alla filerna
For Each filen In mapp.files
%>
  <tr> 
    <td width='17'>
      <%
' Funktionen som hämtar bild beroende på filtillägget
namn = LCase(filen.name)
IF Instr(namn,".") then
arrNamn = Split(namn, ".", -1)
valde = arrNamn(Ubound(arrNamn))
ELSE
arrNamn = "ingen"
valde = arrNamn
END IF
bild = "admin_upload_bilder\" & valde & ".gif"

IF NOT filer.FileExists(Server.MapPath(bild)) then
bild2 = "admin_upload_bilder\inget.gif"
ELSE
bild2 = bild
END IF
Response.Write "<img src='" & bild2 & "' height='16' width='16'>"
%>
      </td>
    <td width='150'><a href="<%Response.Write mapp1 & "\" & filen.Name %>"> 
      <%
Dim strFilnamn
strFilnamn = filen.Name
IF len(strFilnamn) > 19 then
	IF Instr(strFilnamn,".") t?????hen
		myArray = split(strFilnamn,".")
		Response.Write Left(myArray(0),15) & "~"
		Response.Write "." & myArray(Ubound(myArray))
	ELSE
		Response.Write Left(strFilnamn,19)
	END IF
ELSE
Response.Write filen.Name
END IF%>
      </a></td>
    <td width='65'> 
      <%
storlek = filen.Size/1024
IF storlek > 1024 then
Response.Write Round(storlek/1024,2) & " Mb"
ELSE
Response.Write Round(storlek,2) & " Kb"
END IF
%>
      </td>
    <td width='145'> 
      <%Response.Write filen.DateCreated%>
      </td>
    <td width='8'><a href="<%=sida%>?vad=raderafil&fil=<%
	IF Len(Request("kat")) <> 0 then 
	Response.Write Request("kat") & "\"
	END IF
	Response.Write filen.Name %>"><img src="admin_upload_bilder\radera.gif" width="15" height="14" border="0"></a></td>
    <td width='8'>&nbsp;</td>
  </tr>
  <%Next
  ELSE%>
  <tr> 
    <td colspan="6">Inga filer uppladdade 
      och inga mappar skapade &auml;nnu...</td>
  </tr>
  <%END IF%>
  <tr> 
    <td colspan='6'> <hr size='1' color='#000000'> </td>
  </tr>
  <tr> 
    <td colspan='6'> 
      <%
Response.Write "<form name='frmUpload' method='post' enctype='multipart/form-data'"
Response.Write "action='admin_upload_laddaupp.asp?do=laddaupp"
IF Len(Request("kat")) <> 0 then 
Response.Write "&kat=" & Request("kat") & "\"
END IF
Response.Write "'>"

Response.Write "<input type='file' name='upload' size=30 style = 'width: 100%; margin-top: 2px; margin-bottom: 2px;'><br>"
Response.Write "<input type='file' name='upload2' size=30 style = 'width: 100%; margin-top: 2px; margin-bottom: 2px;'><br>"
Response.Write "<input type='file' name='upload3' size=30 style = 'width: 100%; margin-top: 2px; margin-bottom: 2px;'><br>"
Response.Write "<input type='file' name='upload4' size=30 style = 'width: 100%; margin-top: 2px; margin-bottom: 2px;'><br>"
Response.Write "<input type='file' name='upload5' size=30 style = 'width: 100%; margin-top: 2px; margin-bottom: 2px;'><br>"
Response.Write "<input type='submit' value='Ladda upp 1-5 filer' "
Res?????ponse.Write "style='border: #000000 1px solid; font-family: verdana; font-size: 10px'>"
Response.Write "<br><i>Filerna laddas upp till den mapp du "
Response.Write "befinner dig i just nu.</i></form>"
%>
    </td>
  </tr>
  <tr> 
    <td align='left' colspan='6'> 
      <%
Response.Write "<form name='form1' method='post' action='" & sida & "?vad=skapa'>"
Response.Write "<input type=hidden name='mapp2' value='"
IF Len(Request("kat")) <> 0 then
Response.Write Request("kat") & "\"
END IF
Response.Write "'><input type=text name='mapp' "
Response.Write "style = 'width: 100%; margin-top: 2px; margin-bottom: 2px;'>"
Response.Write "&nbsp;<input type=submit name=Skicka value='Skapa mapp' "
Response.Write "style='border: #000000 1px solid; font-family: verdana; font-size: 10px'>"
Response.Write "<br><i>Mappen skapas i den mapp du "
Response.Write "befinner dig i just nu.</i></form>"
%>
    </td>
  </tr>
</table>
tank82Medlem sedan feb. 2003210 inlägg
#2

upp och hoppa

J.N.s avatarJ.N.Medlem sedan apr. 20031 660 inlägg
#3

HEJ!

Det var mycket kod...

Jag förstår inte vad du menar, men gissar att du inte vill visa vissa filtyoer när du listar vilka som finns i en folder, dvs det är inte själva uppladdningen som är problemet?

Hittar inte vilken komponent du använder, men oavsett vilken; läs suffixet på filen du tänker visa, och om det inte är de du vill stoppa, skriver du ut densamma.

Lägg till en if-sats på lämpligt ställe alltså.

tank82Medlem sedan feb. 2003210 inlägg
#4

Jepp det stämmer bra..

Ok men jag har "noll koll" på hur detta ska se ut, så om någon skulle kunna skriva ett par rader kod skulle det vara guld värt.

yohpopsMedlem sedan feb. 20011 198 inlägg
#5

Du kan ladda upp filerna i en underkatalog.
Bifoga koden för include filen också.

tank82Medlem sedan feb. 2003210 inlägg
#6

Du kan ladda upp filerna i en underkatalog.
Bifoga koden för include filen också.

Nej jag vill inte ha den i någon underkatalog.

Här kommer koden till includen, men där är väl inget man ska ändra på eller?

<%
Dim tillbaka
tillbaka = "admin_upload.asp"

'## Vill du att bekräftelse-rutor skall komma upp när man gjort något?
Dim bekrafta
bekrafta = "nej" 
' ja eller nej

'## Vill du ha applikationen lösenordsskyddad? (rekommenderas)
Dim losenskydd
losenskydd = "nej"
' ja eller nej

'## Om du vill ha lösenordsskydd, vilket lösenord ska det vara?
Dim losenord
losenord = "inget"
' Vad som helst, admin är standard och rekommenderas att bytas ut.

'## Välj huvudmappens namn
Dim huvud, kontroll
huvud = ".."
kontroll = Server.MapPath(huvud)

'__________________________________________________________________________________________
'| Här under rekommenderar jag dig inte att ändra på saker om du inte har goda kunskaper  |
'| om FileSystemObject. Kan ställa till med problem om du ändrar sånt som du inte förstår |
'| dig på.                                                                                |
'__________________________________________________________________________________________

' Välj mapp där filerna skall hamna
Dim mapp1, mapp2, katten
IF Len(Request("kat")) <> 0 AND Not Request("kat") = "huvud" then
katten = Replace(Request("kat"),"/","\")
katten = Replace(katten,"$","\")
mapp1 = huvud & "\" & katten
ELSE
mapp1 = huvud
END IF
mapp2 = Server.MapPath(mapp1)

' Skapar ett FileSystemObject
Dim filer, mapp, undermapp, undermapp2
Set filer = Server.CreateObject("Scripting.FileSystemObject")

' Kollar om mappen existerar, gör den inte det så skapas den
If  Not filer.FolderExists(kontroll) Then
filer.CreateFolder(kontroll)
End If

' Kod för att skapa mappar
Dim skapa, skapa2, rad, radera, radera2
IF Request("vad") = "skapa" then
skapa = huvud & "\" & Request("mapp2") & Request("mapp")
skapa2 = Server.MapPath(skapa)
filer.CreateFolder(skapa2)
IF bekrafta = "ja" then
Session("messe") = "Mappen är nu skapad."
END IF
Response.Redirect tillbaka

' Kod för att radera mappar
ELSEIF Request("vad") = "raderamapp" then
rad = huvud & "\" & Request("mapp") & "\"
radera = Server.MapPath(rad)
Set radera2 = filer.GetFolder(radera)
radera2.Delete [true]
IF bekrafta = "ja" then
Session("messe") = "Mappen är nu raderad."
END IF
Response.Redirect tillbaka

' Kod för att radera filer
ELSEIF Request("vad") = "raderafil" then
	rad = huvud & "\" & Request("fil") & "\"
	radera = Server.MapPath(rad)
	Set radera2 = filer.GetFile(radera)
		radera2.Delete [true]
	IF bekrafta = "ja" then
		Session("messe") = "Filen är nu raderad."
	END IF
	Response.Redirect tillbaka

ELSEIF Request("vad") = "bn_fil" then
	namn = Replace(Request("mapp"),"/","\")
	nya = huvud & "\" & namn & "\" & Request("nytt_namn")
	gamla = huvud & "\" & namn & "\" & Request("fil")
	nya = Replace(nya,"\\","\")
	gamla = Replace(gamla,"\\","\")
	IF filer.FileExists(Server.MapPath(nya)) then
		Set bnfil = filer.GetFile(Server.MapPath(nya))
		bnfil.Delete [true]
		Set bnfil = nothing
	END IF
	Set bnfil = filer.GetFile(Server.MapPath(gamla))
	bnfil.Move Server.MapPath(nya)
	Set bnfil = nothing
	IF bekrafta = "ja" then
		Session("messe") = "Filnamnet är nu ändrat."
	END IF
	Response.Redirect "bytnamn.asp?vad=fil&klart=ja&kat2="&Request("kat")
	
ELSEIF Request("vad") = "bn_mapp" then
	namn = Replace(Request("mapp"),"/","\")
	nya = huvud & "\" & namn & "\" & Request("nytt_namn")
	gamla = huvud & "\" & namn & "\" & Request("fil")
	nya = Replace(nya,"\\","\")
	gamla = Replace(gamla,"\\","\")
	IF filer.FolderExists(Server.MapPath(nya)) then
		Set bnfil = filer.GetFolder(Server.MapPath(nya))
		bnfil.Delete [true]
		Set bnfil = nothing
	END IF
	Set bnfil = filer.GetFolder(Server.MapPath(gamla))
	bnfil.Move (Server.MapPath(nya))
	Set bnfil = nothing
	IF bekrafta = "ja" then
		Session("messe") = "Mappnamnet är nu ändrat."
	END IF
	Response.Redirect "bytnamn.asp?vad=mapp&klart=ja&kat2="&Request("kat")
END IF

Dim antalfiler, antalmappar
Set mapp = filer.getFolder(mapp2)
Set undermapp = mapp.SubFolders  
Set undermapp2 = mapp.SubFolders 
Set antalfiler = mapp.Files  
Set antalmappar = mapp.SubFolders
%>
yohpopsMedlem sedan feb. 20011 198 inlägg
#7

Varför inte underkatalog?

Det är enklare att få översikt om man har mer kod.

Ändra här.

' Funktionen som hämtar bild beroende på filtillägget
namn = LCase(filen.name)
IF Instr(namn,".") then
arrNamn = Split(namn, ".", -1)
valde = arrNamn(Ubound(arrNamn))

till

' Funktionen som hämtar bild beroende på filtillägget
namn = LCase(filen.name)
IF Instr(namn,".") [B]and not (Instr(lcase(namn),".asp") or Instr(lcase(namn),".asa"))[/B] then
arrNamn = Split(namn, ".", -1)
valde = arrNamn(Ubound(arrNamn))
tank82Medlem sedan feb. 2003210 inlägg
#8

Nix pix detta fungerade inte, det enda som blev var att den tog bort bilden för .asp och .asa filer i uploaden

yohpopsMedlem sedan feb. 20011 198 inlägg
#9

aha

Ändra här

  <%
' Här hämtas alla filerna
For Each filen In mapp.files
%>
  <tr> 
    <td width='17'>
      <%

till

  <%
' Här hämtas alla filerna
For Each filen In mapp.files
[b]IF not (Instr(lcase(filen.name),".asp") or Instr(lcase(filen.name),".asa")) then[/b]
%>
  <tr> 
    <td width='17'>
      <%

och ändra här

  </tr>
  <%Next
  ELSE%>
  <tr> 
    <td colspan="6">Inga filer uppladdade 
      och inga mappar skapade ännu...</td>
  </tr>

till

  </tr>
<%[b]end if[/b]
Next
  ELSE%>
  <tr> 
    <td colspan="6">Inga filer uppladdade 
      och inga mappar skapade ännu...</td>
  </tr>

och ta bort det jag skrev först.

tank82Medlem sedan feb. 2003210 inlägg
#10

nej det fungerade inte heller.. får inga felmeddelanden eller nått, det är bara som vanligt att den visar "alla" filer.. :(

tank82Medlem sedan feb. 2003210 inlägg
#11

upp.. någon?

yohpopsMedlem sedan feb. 20011 198 inlägg
#12

Bifoga den nya koden.

tank82Medlem sedan feb. 2003210 inlägg
#13

den nya koden är ju bifogad ^^

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#14
IF not right(lcase(filen.name), 4) = ".asp" and not right(lcase(filen.name), 4) = ".asa" then

?

tank82Medlem sedan feb. 2003210 inlägg
#15

Kanoners yohpops (och @nders), nu rullar det på fint. tack!

387 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
250 ms — deklarationer (db)
0 ms — hämta statistik (cache)
134 ms — hämta tråd, inlägg och bilagor (db)
248 ms — ändringar (db)