Det skulle vara till att displaya en mapp med tekniska dokument
Här koden iaf, finns de något annat sätt?
Mappen = Server.MapPath("Z:/")
Set MappKoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = MappKoll.getFolder(Mappen)
PS = 9
If Mapp.Files.Count Mod PS Then
Sidor = Mapp.Files.Count \ PS + 1
Else
Sidor = Mapp.Files.Count \ PS
End If
Sida = Request.QueryString("sida")
If Sida = "" Then
Sida = 1
End If
Start = (Sida - 1) * PS
Slut = Start + PS
If Mapp.Files.Count = 0 Then%>
<tr>
<td>Ingen filer!</td>
</tr>
<%Else
For Each File In Mapp.Files
bild = InStrRev(LCase(File.Name), "." )
If bild < 1 Then bild = "" Else bild = Mid(LCase(File.Name),bild+1)
If X < Start Then
ElseIf X < Slut Then%>
<tr>
<td><%Response.Write(Server.MapPath("\"))%><a href="<%=Mappen%>/<%=File.Name%>" target="_blank"><%=File.Name%></b> - <%=Round(File.Size/1000, 1)%> kb</td>
</tr>
<%Else
Exit For
End If
X = X + 1
Next
End If
If Sidor > 1 Then%>
<tr>
<td height="2" width="100%" background="../include/images/bg_hr2.gif"></td>
</tr>
<tr>
<td>
<%For i = 1 To Sidor
If i = CInt(Sida) Then
Response.Write "<b>" & i & "</b>"
Else
Response.Write " <a href=lista.asp?sida=" & i & ">" & i & "</a> "
End If
Next%>
</td>
</tr>
<tr>
<td height="2" width="100%" background="../include/images/bg_hr2.gif"></td>
</tr>
<%End If%>
<tr>
<td height="100%"></td>
</tr>
<tr>
<td valign="bottom">
<table>
<tr>
<td height="2" width="100%" background="../include/images/bg_hr2.gif" colspan="2"></td>
</tr>
<tr>
<td ><b>Vælj fil:</b> <input type="file" name="upload" size="35"></td><td><input type="submit" value="Gem"></td>
</tr>
<tr>
<td height="2" width="100%" background="../include/images/bg_hr2.gif" colspan="2"></td>
</tr>
</table>
</td>
</tr>
<%If Session("mess") <> "" Then%>
<tr>
<td height="2" width="100%" background="../include/images/bg_hr2.gif"></td>
</tr>
<tr>
<td align="center"><b>
<%Response.Write Session("mess")
Session("mess") = ""%></b></td>
</tr>
<%End If%>
</form>
</table>
</td>
</tr>
</table>
</body>
</html>
<%If Request.QueryString("do") = "upload" Then
Response.Buffer=True
Response.Expires=0
Set Upload = Hamta_filer()
files = Upload("upload").Item("content")
If MappKoll.FileExists(Mappen & "\" & extract_filename(Upload("upload").Item("filename"))) Then
Session("mess") = "En fil med det namnet finns redan!"
Response.Redirect "lista.asp"
Else
Set File = MappKoll.CreateTextFile(Mappen & "\" & extract_filename(Upload("upload").Item("filename")))
End If
For i = 1 to LenB(files)
File.Write chr(AscB(MidB(files, i, 1)))
Next
Response.Redirect "lista.asp"
File.Close: Set File = Nothing
Function Hamta_filer()
Set filer = Server.CreateObject("Scripting.Dictionary")
Binaries = Request.BinaryRead(Request.TotalBytes)
start = 1
slut = InstrB(start, Binaries, hamta_strang_size(chr(13)))
boundary = MidB(Binaries, start, (slut - start))
b_position = InstrB(1, Binaries, boundary)
Do Until (b_position = InstrB(Binaries, boundary & hamta_strang_size("--")))
If Not(Response.IsClientConnected) Then Response.End
start = (InstrB(InstrB(b_position, Binaries, hamta_strang_size("Content-Disposition")), Binaries, hamta_strang_size("name=")) + 6)
slut = InstrB(start, Binaries, hamta_strang_size(chr(34)))
name = hamta_strang(MidB(Binaries, start, (slut - start)))
pos_file = InstrB(b_position, Binaries, hamta_strang_size("filename="))
If ((pos_file <> 0) AND (pos_file < InstrB(slut, Binaries, boundary))) Then
filer.Add name, Server.CreateObject("Scripting.Dictionary")
start = (pos_file + 10)
slut = InstrB(start, Binaries, hamta_strang_size(chr(34)))
filer.item(name).Add "filename", hamta_strang(MidB(Binaries, start, (slut - start)))
start = (InstrB(slut, Binaries, hamta_strang_size("Content-Type:")) + 14)
slut = InstrB(start, Binaries, hamta_strang_size(chr(13)))
filer.item(name).Add "content-type", hamta_strang(MidB(Binaries, start, (slut - start)))
start = (slut + 4)
slut = InstrB(start, Binaries, boundary) - 2
filer.item(name).Add "size", ((slut - start))
filer.item(name).Add "content", MidB(Binaries, start, (slut - start))
End If
b_position = InstrB(b_position + LenB(boundary), Binaries, boundary)
Loop
Set Hamta_filer = filer
End Function
Function hamta_strang_size(str)
For cnt = 1 to Len(str)
hamta_strang_size = hamta_strang_size & chrB(AscB(Mid(str, cnt, 1)))
Next
End Function
Function hamta_strang(str)
For cnt = 1 to LenB(str)
hamta_strang = hamta_strang & 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
End If%>