@nders skrev:
Finns det något script som jag ska lägga till eller ändra i koden?
Det beror ju på hur koden du använder ser ut...
Visa koden som listar filerna, så kan vi säkert få den att kasta bort allt som inte är bilder eller videofiler.
Okej, men jag tog filerna från en tjänst så det är inte jag som har gjort dem.
default.asp
<!--
---------------------------------------------------------------------------
Filuppladdning v.3 www.JoakimWeb.se
Denna applikation är skriven av Joakim på JoakimWeb.se. Du får använda
applikationen fritt, under förutsättning att denna copyrighttext förblir
intakt. Du får fritt modifiera/komplettera skriptet, du får dock inte
använda det för kommersiella syften. Du får inte lägga ut en modifierad
version av detta skript på ett sätt som gör att andra kan ladda ner det.
Om inte dessa kvar uppfylles så har du ingen rätt att använda skriptet.
--------------------------------------------------------------------------
-->
<!--#include file="koppling.asp" -->
<% IF Request("do") = "loggain" then
losenord = "nej nej och nej ni får inte se"
IF Request("losenord") <> losenord then
Session("felmess") = "Fel lösenord"
Response.Redirect Request.ServerVariables("SCRIPT_NAME")
ELSE
Session("laddaupp") = "ok"
Response.Redirect Request.ServerVariables("SCRIPT_NAME")
END IF
END IF
%>
<html>
<link href=style.css rel=stylesheet type=text/css>
<body>
<% IF Session("laddaupp") = "ok" then %>
<table width='285'>
<tr>
<td colspan=2><font face=verdana size=2>
<div align=center>FILUPPLADDNING</div>
</font></td>
</tr>
<tr>
<td colspan=2><hr size=1 color=#000000></td>
</tr>
<tr>
<td width=60%><font face=verdana size=1><b>Filnamn</b></font></td>
<td width=40%><font face=verdana size=1><b>Filstorlek</b></font></td>
</tr>
<%
' Här hämtas alla filerna
For Each filen In mapp.Files
%>
<tr>
<td width='60%'><font face=verdana size=1><a href="<%Response.Write mapp1 & "/" & filen.Name %>">
<%Response.Write filen.name%></a></font></td>
<td width='40%'><font face='verdana' size='1'> <%Response.Write Round(filen.Size/1024,2)%> Kb
</font></td>
</tr>
<%Next%>
<tr>
<td colspan='2'><hr size='1' color='#000000'></td>
</tr>
<tr>
<td align='left' colspan='2'>
<form name="frmUpload" method="post" enctype="multipart/form-data" action="laddaupp.asp?do=laddaupp">
<input type='file' name='upload' style='Border: 1px solid; font-family: verdana; font-size: 10px'> <input type='submit' value='Ladda upp' style='border: #000000 1px solid; font-family: verdana; font-size: 10px'>
</form>
</td>
</tr>
</table>
<%ELSE%>
<form name="form1" method="post" action="default.asp?do=loggain">
<table width="285">
<tr>
<td colspan="2">
<div align="center"><font size="2" face="Verdana">FILUPPLADDNING</font></div>
</td>
</tr>
<tr>
<td colspan="2">
<hr size=1 color=#000000>
</td>
</tr>
<tr>
<td>
<div align="left"><font face="Verdana" size="1"><b>Ange lösenordet:
</b> </font></div>
</td>
<td>
<input type="password" name="losenord" style='border: #000000 1px solid; font-family: verdana; font-size: 10px'>
</td>
</tr>
<tr>
<td colspan="2">
<input type='submit' value='Logga in' style='border: #000000 1px solid; font-family: verdana; font-size: 10px'>
</td>
</tr>
<tr>
<td colspan="2"><font face="Verdana" size="1"><%IF Len(Session("felmess")) <> 0 then
Response.Write Session("felmess")
Session("felmess") = ""
END IF%>
</font></td>
</tr>
</table>
</form>
<%END IF%>
<!-- Start JW GÄSTBOK kod -->
<iframe src="http://www.joakimweb.se/tjanster/index.asp?gbid=18162" align="center" name="jwgb" frameborder="0" marginwidth="1" marginheight="1" width="800" height="600" scrolling="auto"></iframe>
<!-- Slut JW GÄSTBOK kod -->
</body>
</html>
koppling.asp
<!--
---------------------------------------------------------------------------
Filuppladdning v.3 www.JoakimWeb.se
Denna applikation är skriven av Joakim på JoakimWeb.se. Du får använda
applikationen fritt, under förutsättning att denna copyrighttext förblir
intakt. Du får fritt modifiera/komplettera skriptet, du får dock inte
använda det för kommersiella syften. Du får inte lägga ut en modifierad
version av detta skript på ett sätt som gör att andra kan ladda ner det.
Om inte dessa kvar uppfylles så har du ingen rätt att använda skriptet.
--------------------------------------------------------------------------
-->
<%
' Välj mapp där filerna skall hamna
Dim mapp1, mapp2
mapp1 = "bilder"
mapp2 = Server.MapPath(mapp1)
' Skapar ett FileSystemObject
Dim filer, mapp
Set filer = Server.CreateObject("Scripting.FileSystemObject")
' Kollar om mappen existerar, gör den inte det så skapas den
If Not filer.FolderExists(mapp2) Then
filer.CreateFolder(mapp2)
End If
Set mapp = filer.getFolder(mapp2)
%>
laddaupp.asp
<!--
---------------------------------------------------------------------------
Filuppladdning v.3 www.JoakimWeb.se
Denna applikation är skriven av Joakim på JoakimWeb.se. Du får använda
applikationen fritt, under förutsättning att denna copyrighttext förblir
intakt. Du får fritt modifiera/komplettera skriptet, du får dock inte
använda det för kommersiella syften. Du får inte lägga ut en modifierad
version av detta skript på ett sätt som gör att andra kan ladda ner det.
Om inte dessa kvar uppfylles så har du ingen rätt att använda skriptet.
--------------------------------------------------------------------------
-->
<!--#include file="koppling.asp" -->
<%
' Uppladdningskoden
If Request("do") = "laddaupp" Then
' Startar en funktion som finns längre ner i koden
Dim fil
Set fil = get_upload_files()
' Koden som laddar upp filen med hjälp av funktionen
Dim plac, filen, innehall
innehall = fil("upload").Item("content")
Set filen = filer.CreateTextFile(mapp2 & "\" & extract_filename(fil("upload").Item("filename")))
For plac = 1 to LenB(innehall)
filen.Write chr(AscB(MidB(innehall, plac, 1)))
Next
filen.Close
Set filen = Nothing
Response.Redirect Request.ServerVariables("HTTP_REFERER")
END IF
%>
<%
' funktionen som används för uppladdning av filer
Function get_upload_files()
Dim upload_object, request_binaries
Dim position_start, position_end
Dim boundary, boundary_pos
Set upload_object = Server.CreateObject("Scripting.Dictionary")
request_binaries = Request.BinaryRead(Request.TotalBytes)
position_start = 1
position_end = InstrB(position_start, request_binaries, get_byte_string(chr(13)))
boundary = MidB(request_binaries, position_start, (position_end - position_start))
boundary_pos = InstrB(1, request_binaries, boundary)
Do Until (boundary_pos = InstrB(request_binaries, boundary & get_byte_string("--")))
' Om du stäng ner webbläsaren, då avslutas uppladdningen
If Not(Response.IsClientConnected) Then Response.End
Dim name, pos_file
position_start = (InstrB(InstrB(boundary_pos, request_binaries, get_byte_string("Content-Disposition")), request_binaries, get_byte_string("name=")) + 6)
position_end = InstrB(position_start, request_binaries, get_byte_string(chr(34)))
name = get_string(MidB(request_binaries, position_start, (position_end - position_start)))
pos_file = InstrB(boundary_pos, request_binaries, get_byte_string("filename="))
If ((pos_file <> 0) AND (pos_file < InstrB(position_end, request_binaries, boundary))) Then
upload_object.Add name, Server.CreateObject("Scripting.Dictionary")
position_start = (pos_file + 10)
position_end = InstrB(position_start, request_binaries, get_byte_string(chr(34)))
upload_object.item(name).Add "filename", get_string(MidB(request_binaries, position_start, (position_end - position_start)))
position_start = (InstrB(position_end, request_binaries, get_byte_string("Content-Type:")) + 14)
position_end = InstrB(position_start, request_binaries, get_byte_string(chr(13)))
upload_object.item(name).Add "content-type", get_string(MidB(request_binaries, position_start, (position_end - position_start)))
position_start = (position_end + 4)
position_end = InstrB(position_start, request_binaries, boundary) - 2
upload_object.item(name).Add "size", ((position_end - position_start))
upload_object.item(name).Add "content", MidB(request_binaries, position_start, (position_end - position_start))
End If
boundary_pos = InstrB(boundary_pos + LenB(boundary), request_binaries, boundary)
Loop
Set get_upload_files = upload_object
End Function
Function get_byte_string(str)
Dim cnt
For cnt = 1 to Len(str)
get_byte_string = get_byte_string & chrB(AscB(Mid(str, cnt, 1)))
Next
End Function
Function get_string(str)
Dim cnt
For cnt = 1 to LenB(str)
get_string = get_string & chr(AscB(MidB(str, cnt, 1)))
Next
End Function
Function extract_filename(filename)
extract_filename = Right(filename, Len(filename) - InStrRev(filename, "\", -1, 1))
End Function
%>
