raweb/wwwroot/Default.asp

92 lines
2.1 KiB
Plaintext
Raw Normal View History

2019-10-05 16:33:16 +02:00
<html>
<head>
<title>
RAWeb - Remote Applications
</title>
<style type="text/css">
a:link {color:#444444;text-decoration:none;}
a:visited {color:#444444;text-decoration:none;}
a:hover{color:#000000;text-decoration:underline;}
a:active {color:#000000;text-decoration:underline;}
#apptile
{
width:150px;
height:135px;
text-align:center;
vertical-align:bottom;
border-style:solid;
border-width:0px;
float:left;
font-size:14px;
font-weight:bold;
}
h1 {
font-family:Arial, Helvetica, sans-serif;
font-size: 30px;
font-style: italic;
color:rgb(0,0,0)
}
body
{
font-family:Arial,sans-serif;
}
</style>
<link rel="shortcut icon" href="favicon.ico">
</head>
<body>
<div style='text-align:left;'><h1>Remote<font style='color:rgb(100,100,100)'>Apps</font></h1></div><br>
<%
Whichfolder=server.mappath("rdp\") &"/"
Dim fs, f, f1, fc
set fs = CreateObject("Scripting.FileSystemObject")
set f = fs.GetFolder(Whichfolder)
set fc = f.files
For Each f1 in fc
if (LCase(Right(f1.name,4)) = ".rdp") then
if not GetRDPvalue(f1,"full address:s:") = "" then
appname = GetRDPvalue(f1,"remoteapplicationname:s:")
basefilename = Left(f1.name,Len(f1.name) - 4)
if appname = "" then appname = basefilename
pngname = basefilename & ".png"
set pngfs = CreateObject("Scripting.FileSystemObject")
If pngfs.FileExists(server.mappath("png\" & pngname)) Then
pngpath = "png/" & pngname
Else
pngpath = "rdpicon.png"
End If
Response.write "<div id=apptile>"
Response.write "<a href=""" & "rdp/" & f1.name & """><img border=0 height=64 width=64 src=""" & pngpath & """><br>" & appname & "</a>"
Response.write "</div>"
end if
end if
Next
function GetRDPvalue(f1,valuename)
Err.Clear
on error resume next
Dim ts
valuenamelen = Len(valuename)
set ts = f1.OpenAsTextStream(1,-2)
if Err.Number = 0 then
Do While Not ts.AtEndOfStream
Dim Line
Line = ts.readline
if (Lcase(Left(Line,valuenamelen)) = valuename) then
theName = Right(Line,Len(Line)-valuenamelen)
end if
Loop
theName = Replace(theName,"|","")
GetRDPvalue = theName
Else
GetRDPvalue = ""
end if
on error goto 0
end function
%>
</body>
</html>