13 svar · 402 visningar · startad av medialabs
Om ni går in på: http://www.tiomeg.com/demo/main.asp?init=1
Så ser ni en "mätare" som visar status för kontot hur många mb kontot tar upp. Jag har inte lyckats hitta nån sådan. har nån en sådan asp script liggandes på hårddisken så skulle jag vara oerhört tacksam.
Jag vet inte om du kan ASP, men det bör väl inte vara så svårt att fixa med FileSystemObject.
bort
Helt otestat men du kanske får en ide:
<%
Function ShowFolderSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
s = UCase(f.Name) & " uses " & f.size & " bytes."
ShowFolderSize = s
End Function
size = ShowFolderSize("din katalog")
usedSpace = (size / tillåtna värdet)
%>
<table>
<tr><td width="<% =usedSpace * 100 %>" bgcolor="#363964"> </td></tr></table>
ok! ska ta och testa den nu..
hmm... Fick detta felmeddelande:
Microsoft VBScript compilation error '800a0408'
Invalid character
/usage.asp, line 11
usedSpace = (size / tillåtna värdet)
Mitt fel.... Jag gjorde ett litet fel...
Nu får jag detta:
Microsoft VBScript runtime error '800a004c'
Path not found
/usage.asp, line 5
-------------------------
<%
Function ShowFolderSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
s = UCase(f.Name) & " uses " & f.size & " bytes."
ShowFolderSize = s
End Function
size = ShowFolderSize("temp")
usedSpace = (size / 15)
%>
<table>
<tr><td width="<% =usedSpace * 100 %>" bgcolor="#363964"> </td></tr></table>
^ ^
då har du fel sökväg till katalogen.
Du måste skicka in den fysiska sökvägen till katalogen.
ex.
<%
Function ShowFolderSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
s = UCase(f.Name) & " uses " & f.size & " bytes."
ShowFolderSize = s
End Function
size = ShowFolderSize(Server.MapPath("\"))
usedSpace = (size / 15)
%>
<table>
<tr><td width="<% =usedSpace * 100 %>" bgcolor="#363964"> </td></tr></table>
Server.MapPath("\") anger sökvägen till wwwroot, dvs sitens rot katalog.
cya,
PatrikB
Om nån skulle få detta igång så skulle jag vara oerhört tacksam
-----------------------------------------
<%
Function ShowFolderSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
s = UCase(f.Name) & " uses " & f.size & " bytes."
ShowFolderSize = s
End Function
size = ShowFolderSize(Server.MapPath("webb"))
usedSpace = (150000)
%>
<html>
<head>
<title>t</title>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="10" width="100%">
<tr>
<TBODY> <tr>
<td> </td>
<td><font size="1" face="Verdana"> Ledigt: 15,0
MB</font></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><table border="0" cellpadding="2"
cellspacing="1" width="140">
<TBODY> <tr>
<td bgcolor="#000000"><table border="0"
cellpadding="0" cellspacing="0"
width="100%">
<TBODY> <tr>
<td width="100%"
bgcolor="#FFFFFF"><img
src="pix_trans.gif"
width="1" height="5"></td>
</tr>
</TBODY></table>
</body>
</html>
--------------------------------------
Du använder ju inte värdet till någonting.
Response.write ShowFolderSize(Server.MapPath("webb"))
Mvh,
Jag satte in det i koden och fick fram:
WEBB uses 6561525 bytes.
Om ni kollar i denna kod:
-------------------
<%
Function ShowFolderSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
s = UCase(f.Name) & " uses " & f.size & " bytes."
ShowFolderSize = s
End Function
size = ShowFolderSize(Server.MapPath("webb"))
usedSpace = (150000)
%>
<html>
<head>
<title>t</title>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="10" width="100%">
<tr>
<TBODY> <tr>
<td> </td>
<td><font size="1" face="Verdana"> Ledigt: 15,0
MB</font></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><table border="0" cellpadding="2"
cellspacing="1" width="140">
<TBODY> <tr>
<td bgcolor="#000000"><table border="0"
cellpadding="0" cellspacing="0"
width="100%">
<TBODY> <tr>
<td width="100%"
bgcolor="#FFFFFF"><img
src="pix_trans.gif"
width="1" height="5"></td>
</tr>
</TBODY></table>
</body>
</html>
---------------
Hur ska jag få den att visa ett sträck i den rutan......
<%
Function ShowFolderSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
ShowFolderSize = f.size
End Function
size = ShowFolderSize(Server.MapPath("../spa"))
usedSpace = Round((size / 15e6), 2)
%>
<html>
<head>
<title>t</title>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" width="300">
<tr>
<td align="left">
<font size="1" face="Verdana">Ledigt:
<% =(15 - usedSpace) %>
MB</font>
</td>
</tr>
<tr>
<td align="left" bgcolor="#336699" height="5">
<img src="1black.gif" width="<% =usedSpace * 10 %>" height="30">
</td>
</tr>
</table>
</body>
</html>
