rolloMedlem sedan aug. 2001203 inlägg Hej!
Håller på och bygga ett intranät och har kommit till avdelningen befintliga office-dokuement, vi har hela vår handbok i office-dokument som skall vara åtkomlig via intranätet.
Jag söker en "filhanterare" som kan hantera dokumenten och har sökt i forumet och hittat http://cgi.webforum.nu/wf/Forum11/HTML/005013.html . Men denna klarar bara 8 tecken i filnamnet och dokumenten har fler än 8 tecken i namnet.
Har sökt med ljus och lykta på olika ASP-sidor där ute, men inte hittat något bra! Kan någon tips om ett bra script?!
tackar!
rollo
rolloMedlem sedan aug. 2001203 inlägg dubbeltumme!
jag hittade ett script som heter AgroBrowse http://apollyon.net/?p=argobrowse
funkar perfekt till mina ändamål!
rollo
BjMedlem sedan sep. 2000314 inlägg Kommer inte ihåg var jag hittade detta en gång i tiden men det funkar bra.
<%
If Request.QueryString("path") = "" Then
StartMapp = "C:\InetPub\wwwroot\till\den\mapp\som\denna\fil\ligger\i" 'fysisk sökväg
StartMappUrl = "http://www.minsida.se/till/den/mapp/som/denna/fil/ligger/i" 'url
Else
StartMapp = Request.QueryString("path")
StartMappUrl = Request.QueryString("url")
End If
Set filsystemobjekt = CreateObject("Scripting.FileSystemObject")
Set folder = filsystemobjekt.GetFolder(StartMapp)
Set filer = folder.Files
Set underkataloger = folder.SubFolders
%>
<html>
<head>
<title>Dokument </title>
<base target="_blank">
</head>
<body bgcolor="#FFFFFF">
<table border="0" width="500">
<tr>
<td width="110"></td>
<td align="center"></td>
</tr>
<tr>
<td width="110"> <p> </td>
<td align="left"> <p><font face="Arial"><small>Följande dokument finns.</font></small></font></p>
<table border="0" width="100%">
<tr>
<td width="90%" bgcolor="#FFFFDF"><font face="Verdana"><strong><small>Filnamn</small></strong></font></td>
<td width="10%" bgcolor="#FFFFDF"><font face="Verdana"><strong><small>Storlek</small></strong></font></td>
</tr>
<tr>
<%
For Each folder in underkataloger
' Nedan kontrollerar vi så att det inte visas några mappar med konstiga attribut
If folder.Attributes < 50 then
%>
<td width="90%"><strong><small><small><font face="Verdana"><img src="images/folder.gif" align="absmiddle" WIDTH="15" HEIGHT="13"> <% Response.Write "<a href=index.asp?url=" & StartMappUrl & "/" & folder.name & "&path=" & StartMapp & "\" & folder.name & ">" & folder.name & "</a> <br>" %> </font></small></small></strong></td>
<td width="10%"><small><small><font face="Verdana"><%= folder.Size %> </font></small></small></td>
</tr>
<%
end if
Next
%>
<%
For Each folder in filer
' Nedan kontrollerar vi så att det inte visas några filer med konstiga attribut
If folder.Attributes < 50 then
%>
<tr>
<td width="90%"><img src="images/dokument.gif" align="absmiddle" WIDTH="13" HEIGHT="16"><small><small><font face="Verdana"> <% Response.Write "<a href=" & StartMappUrl & "/" & folder.name & ">" & folder.name & "</a> <br>" %> </font></small></small></td>
<td width="10%"><small><small><font face="Verdana"><%= folder.Size %> </font></small></small></td>
</tr>
<%
end if
Next
%>
</table>
<p> </p>
<p> </p>
<p align="right"> </td>
</tr>
</table>
</body>
</html>
<%
Set filsystemobjekt = Nothing
Set folder = Nothing
Set filer = Nothing
Set underkataloger = Nothing
%>
rolloMedlem sedan aug. 2001203 inlägg Tack Bj!
Det är samma som fanns på länken jag la in, det kommer från MikroDatorn och
jag har inte fått det till att funka om man har fler än 8 tecken i namnet på mapp och fil!
rollo
BjMedlem sedan sep. 2000314 inlägg Just det! Mikrodatorn var det.
Men visst funkar det med fler än 8 tecken. http://www.hogstorp.nu/styrelse/protokoll/index.asp
rolloMedlem sedan aug. 2001203 inlägg rätt!
det funkar med fler än 8 tecken, men inte om man har mellanslag med i fil/mappnamn!
rollo
MethodMedlem sedan apr. 2001357 inlägg Kan denna koden bara visa worddokument eller visar den det som ligger i mappen ?
För jag behöver antingen denna lr en liknande kod men vill gära att den visar andra filer än word.
kolla på mitt inlägg angående detta
http://cgi.webforum.nu/wf/Forum11/HTML/006046.html
Tack på förhand
Jonas
------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd
rolloMedlem sedan aug. 2001203 inlägg båda koderna kan visa mappar i den mappen som skall visas samt alla filer som finns i mapparna!
rollo
MethodMedlem sedan apr. 2001357 inlägg Oooops en blunder....
[Redigerat av Method den 30 aug 2001]
MethodMedlem sedan apr. 2001357 inlägg Det verkar inte funka att öppna den om det finns mellanslag i wordfilen finns det något sätt att komma förbi detta?
(förutom att namnge utan mellaslag)
Jag får filerna uppladdade så det e inte säkert att folk laddar upp utan mellanslag.
------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd
rolloMedlem sedan aug. 2001203 inlägg testa den andra kodbiten som jag hittade, se mitt svar på mitt inlägg!
rollo
sundogMedlem sedan aug. 200189 inlägg Testa det här, borde funka.
<%
Dim Parts, fso, Dir
Set fso = CreateObject("Scripting.FileSystemObject")
folder = "c:\fysisk\sökväg\till\mapp\"
Set Dir = fso.GetFolder(folder)
For Each File In Dir.Files
Parts = Split(file, folder, -1, 1)
docu = Replace(Parts(1), " ", "")
Response.Write docu
Next
%>
MethodMedlem sedan apr. 2001357 inlägg sundog jag antar att din kod löser mellanslag i filnamnet?
Om det är det koden gör hur skall man göra för att få in den i BJ´s kod?
Tack på förhand
Jonas
------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd
[Redigerat av Method den 31 aug 2001]
sundogMedlem sedan aug. 200189 inlägg Sorry, såg inte att jag fått en fråga...
Om det bara är ta-bort-mellanslags-funktionen du vill använda i koden så gör du det med replace.
docu = Replace("Texten du vill ändra", " ", "")
docu blir då = Textenduvilländra
