Hej Michael
Helt fantastisk aften.
Jeg har nu et script der uploader word dokumenter. Derefter kan man klikke på dem for at læse dem.
-- og tilsidst skalman lige kunne slette dem på serveren.....
Scriptet fra før lister dem som links.
Men jeg er altså ikke god nok til at gøre som du siger...."sende videre til et script !!!"
Har du mulighed for at vise det ?? - Jeg vedlægger det gode script herunder, hvis du kan og det ikke er for besværligt, må du meget lige indsætte hvordan man "sender det videre.."
Mange tak
<I><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
</I>
<html>
<head>
<title></title>
<style>
A:link
{
COLOR: #000000;
TEXT-DECORATION: none;
Font-family:Verdana, Arial, Helvetica, sans-serif;
font-weight:bold;
}
A:visited
{
COLOR: #000000;
TEXT-DECORATION: none;
Font-family:Verdana, Arial, Helvetica, sans-serif;
font-weight:bold;
}
A:hover
{
COLOR: #669999;
TEXT-DECORATION: none;
Font-family:Verdana, Arial, Helvetica, sans-serif;
font-weight:bold;
}
BODY { SCROLLBAR-FACE-COLOR: #669999;
SCROLLBAR-HIGHLIGHT-COLOR: #cccccc;
SCROLLBAR-SHADOW-COLOR: #cccccc;
SCROLLBAR-3DLIGHT-COLOR: #669999;
SCROLLBAR-ARROW-COLOR: #000000;
SCROLLBAR-TRACK-COLOR: #ffffff;
SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
.link {
font-size:10px;
font-family:Verdana, Arial, Helvetica, sans-serif
}
.style2 {
font-size:10px;
color: #CCCCCC;
Font-family:Verdana, Arial, Helvetica, sans-serif;
font-weight:bold;
</style>
</head>
<body>
<i>
<%
sti = "../log/filupload"
ShowSub = sti & request("ShowSub")
ShowSubLink = request("ShowSub")
strPathInfo = ShowSub
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFSO = Nothing
%>
<img src="graphics/emne.gif" width="145" height="29"> </i>
<table border="0" cellpadding="0" cellspacing="5" width="90%" id="AutoNumber1">
<hr>
<%
'Response.Write ShowSub & "<br>"
'Response.Write strPhysicalPath
'Response.End
SiteName = request.servervariables("script_name")
strPhysicalPath = Server.MapPath(ShowSub)
If ShowSub > " " then
ShowSub = Replace(ShowSub, " ", "%20")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files
For Each objFileItem in objFolderContents
ShowPic = Replace(objFileItem.Name, " ", "%20")
Response.write "<tr><td>"
' Response.Write "<a href=""../log/filupload/" & objFileItem.Name &""">" & objFileItem.Name & "</a>"
' Response.write "</td></tr>"
' response.write "<span class=""link""><a href=""../log/filupload/" & objFileItem.Name &""">" & objFileItem.Name & "</a></span>"
' Response.Write "<span class=""link""><a href=""../log/filupload/" & objFileItem.Name &""">" & Left(objFileItem.Name, InStrRev(objFileItem.Name, ".")-1) & "</a></span>"'
' Response.Write "<span class=""link""><a href=""../log/filupload/" & objFileItem.Name &" target=""_blank""><img src=""graphics/max.gif"" alt=""Åben i nyt vindue"" border=""0""><a href=""../log/filupload/" & objFileItem.Name & """>" & Left(objFileItem.Name, InStrRev(objFileItem.Name, ".")-1) & "</a></span>"'
Response.Write "<span class=""link""><a href=""../log/filupload/" & objFileItem.Name &""" target=""_blank""><img src=""graphics/max.gif"" alt=""Åben i nyt vindue"" border=""0""> <a href=""../log/filupload/" & objFileItem.Name & """>" & Left(objFileItem.Name, InStrRev(objFileItem.Name, ".")-1) & "</a></span>"
Response.write "</td></tr>"
Next
Set objFSO = Nothing
End if
%>
</table>
<table border="0" cellpadding="0" cellspacing="5" style="border-collapse: collapse" bordercolor="#111111" width="90%" id="AutoNumber1">
<hr>
<strong><img src="graphics/max.gif" width="10" height="10"><span class="style2"> = åbner filen i et nyt vindue</span></strong>
</table>
<i>
</table>
<i>
</center>
</i>
</body>
</html>
