Blame contrib/nt_n_cisco/default.asp
|
Packit |
667938 |
<%@ LANGUAGE="VBSCRIPT" %>
|
|
Packit |
667938 |
<html>
|
|
Packit |
667938 |
|
|
Packit |
667938 |
<head>
|
|
Packit |
667938 |
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0">
|
|
Packit |
667938 |
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
|
|
Packit |
667938 |
<title>MRTG DATA</title>
|
|
Packit |
667938 |
</head>
|
|
Packit |
667938 |
|
|
Packit |
667938 |
<body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#0000FF" alink="#0000FF">
|
|
Packit |
667938 |
|
|
Packit |
667938 |
Your-Router-Name_here
|
|
Packit |
667938 |
Ports on Router
|
|
Packit |
667938 |
<%
|
|
Packit |
667938 |
Set fs = CreateObject("Scripting.FileSystemObject")
|
|
Packit |
667938 |
Dim fs, f, f1, fc, fstr, linklen, bufflink
|
|
Packit |
667938 |
Set fs = CreateObject("Scripting.FileSystemObject")
|
|
Packit |
667938 |
Set f = fs.GetFolder("e:\inetpub\wwwroot\mrtg\pages\Your-Router-Name_here")
|
|
Packit |
667938 |
Set fc = f.Files
|
|
Packit |
667938 |
For Each f1 in fc
|
|
Packit |
667938 |
fstr = LCase(f1.name)
|
|
Packit |
667938 |
If Right(fstr, 8) = "-day.gif" Then
|
|
Packit |
667938 |
linklen = Len(fstr)
|
|
Packit |
667938 |
buffLink = Mid(fstr,1,(linklen - 8))
|
|
Packit |
667938 |
|
|
Packit |
667938 |
Response.Write ("
|
|
Packit |
667938 |
|
|
Packit |
667938 |
Response.Write("")
|
|
Packit |
667938 |
Response.Write (" ")
|
|
Packit |
667938 |
Response.write ("")
|
|
Packit |
667938 |
Response.write (bufflink & "
")
|
|
Packit |
667938 |
Response.Write VbCrLf
|
|
Packit |
667938 |
Response.write "" & VbCrLf
|
|
Packit |
667938 |
End If
|
|
Packit |
667938 |
Next
|
|
Packit |
667938 |
%>
|
|
Packit |
667938 |
</body>
|
|
Packit |
667938 |
</html>
|