lista/visa office-dok

13 svar · 230 visningar · startad av rollo 30 aug. 2001

rolloMedlem sedan aug. 2001203 inlägg

Trådstart30 aug. 2001 06:18#1

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

30 aug. 2001 06:46#2

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

30 aug. 2001 09:23#3

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">&nbsp;<p>&nbsp;</td>
    <td align="left">&nbsp;<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>&nbsp;</p>
    <p>&nbsp;</p>
    <p align="right">&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%
Set filsystemobjekt = Nothing
Set folder = Nothing
Set filer = Nothing
Set underkataloger = Nothing
%>

rolloMedlem sedan aug. 2001203 inlägg

30 aug. 2001 09:33#4

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

30 aug. 2001 09:44#5

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

30 aug. 2001 10:51#6

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

30 aug. 2001 10:54#7

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

rolloMedlem sedan aug. 2001203 inlägg

30 aug. 2001 11:00#8

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

30 aug. 2001 11:20#9

Oooops en blunder....

[Redigerat av Method den 30 aug 2001]

MethodMedlem sedan apr. 2001357 inlägg

30 aug. 2001 13:32#10

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.

rolloMedlem sedan aug. 2001203 inlägg

30 aug. 2001 13:36#11

testa den andra kodbiten som jag hittade, se mitt svar på mitt inlägg!

rollo

sundogMedlem sedan aug. 200189 inlägg

30 aug. 2001 13:56#12

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

31 aug. 2001 07:22#13

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

sundogMedlem sedan aug. 200189 inlägg

10 sep. 2001 08:08#14

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