?? serverinfo.asp
字號:
<FORM action=<%=Request.ServerVariables("SCRIPT_NAME")%> method=post id=form1 name=form1>
<tr height="18" class=backq>
<td align=center height=30><input class=input type=text value="" name="classname" size=40>
<INPUT type=submit value=" 確 定 " class=backc id=submit1 name=submit1>
<INPUT type=reset value=" 重 填 " class=backc id=reset1 name=reset1>
</td>
</tr>
</FORM>
</table>
<%
Response.Flush
if ObjTest("Scripting.FileSystemObject") then
set fsoobj=server.CreateObject("Scripting.FileSystemObject")
%>
<br><font class=fonts>磁盤相關測試</font>
<br>■ 服務器磁盤信息
<table class=backq border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3F8805" width=100%>
<tr height="18" align=center class="backs">
<td width="100">盤符和磁盤類型</td>
<td width="50">就緒</td>
<td width="80">卷標</td>
<td width="60">文件系統</td>
<td width="80">可用空間</td>
<td width="80">總空間</td>
</tr>
<%
' 測試磁盤信息的想法來自“COCOON ASP 探針”
set drvObj=fsoobj.Drives
for each d in drvObj
%>
<tr height="18" align=center>
<td align="right"><%=cdrivetype(d.DriveType) & " " & d.DriveLetter%>:</td>
<%
if d.DriveLetter = "A" then '為防止影響服務器，不檢查軟驅
Response.Write "<td></td><td></td><td></td><td></td><td></td>"
else
%>
<td><%=cIsReady(d.isReady)%></td>
<td><%=d.VolumeName%></td>
<td><%=d.FileSystem%></td>
<td align="right"><%=cSize(d.FreeSpace)%></td>
<td align="right"><%=cSize(d.TotalSize)%></td>
<%
end if
%>
</tr>
<%
next
%>
</td></tr>
</table>
<br>■ 當前文件夾信息
<%
Response.Flush
dPath = server.MapPath("./")
set dDir = fsoObj.GetFolder(dPath)
set dDrive = fsoObj.GetDrive(dDir.Drive)
%>
文件夾: <%=dPath%>
<table class=backq border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3F8805" width=100%>
<tr height="18" align="center" class="backs">
<td width="75">已用空間</td>
<td width="75">可用空間</td>
<td width="75">文件夾數</td>
<td width="75">文件數</td>
<td width="150">創建時間</td>
</tr>
<tr height="18" align="center">
<td><%=cSize(dDir.Size)%></td>
<td><%=cSize(dDrive.AvailableSpace)%></td>
<td><%=dDir.SubFolders.Count%></td>
<td><%=dDir.Files.Count%></td>
<td><%=dDir.DateCreated%></td>
</tr>
</td></tr>
</table>
<br>■ 磁盤文件操作速度測試<br>
<%
Response.Flush
Response.Write "正在重復創建、寫入和刪除文本文件50次..."
dim thetime3,tempfile,iserr
iserr=false
t1=timer
tempfile=server.MapPath("./") & "\aspchecktest.txt"
for i=1 to 50
Err.Clear
set tempfileOBJ = FsoObj.CreateTextFile(tempfile,true)
if Err <> 0 then
Response.Write "創建文件錯誤！<br><br>"
iserr=true
Err.Clear
exit for
end if
tempfileOBJ.WriteLine "Only for test. Ajiang ASPcheck"
if Err <> 0 then
Response.Write "寫入文件錯誤！<br><br>"
iserr=true
Err.Clear
exit for
end if
tempfileOBJ.close
Set tempfileOBJ = FsoObj.GetFile(tempfile)
tempfileOBJ.Delete
if Err <> 0 then
Response.Write "刪除文件錯誤！<br><br>"
iserr=true
Err.Clear
exit for
end if
set tempfileOBJ=nothing
next
t2=timer
if iserr <> true then
thetime3=cstr(int(( (t2-t1)*10000 )+0.5)/10)
Response.Write "...已完成！<font color=red>" & thetime3 & "毫秒</font>。<br>"
Response.Flush
%>
<table class=backq border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3F8805" width=100%>
<tr height=18 align=center class="backs">
<td width=320>供 對 照 的 服 務 器</td>
<td width=130>完成時間(毫秒)</td>
</tr>
<tr height=18>
<td align=left> <a href="http://www.hdidc.com">華東數據hdidc.com主機<font color=#888888> 雙至強2.4,1GddrEcc,SCSI36.4G)</font></a></td><td> 32～75</td>
</tr>
<tr height=18>
<td align=left> <a href="http://www.gdxf.net/wzkj/index.htm">新豐信息港付費ASP+CGI空間</a></td><td> 46～62</td>
</tr>
<tr height=18>
<td align=left> <a href="http://www.68l.com/">68互聯</a></td><td> 78</td>
</tr>
<tr height=18>
<td align=left> <a href="http://www.diy5.com">第5空間diy5.com四至強主機<font color=#888888>(P42.4,2GddrEcc,SCSI72.8G)</font></a></td><td> 46～78</td>
</tr>
<tr height=18>
<td align=left> <a href="http://www.100u.com?come=aspcheck&keyword=虛擬主機"
>百優科技 100u 主機</a></td><td> 31～62</td>
</tr>
<tr height=18>
<td align=left> <a href="http://www.3366.com.cn"
>點擊網絡主機</a></td><td> 31～62</td>
</tr>
<tr height=18>
<td align=left> <font color=red>這臺服務器: <%=Request.ServerVariables("SERVER_NAME")%></font> </td><td> <font color=red><%=thetime3%></font></td>
</tr>
</table>
<%
end if
Response.Flush
set fsoobj=nothing
end if%>
<br>
<font class=fonts>ASP腳本解釋和運算速度測試</font><br>
<%
Response.Flush
'感謝網際同學錄 http://www.5719.net 推薦使用timer函數
'因為只進行50萬次計算，所以去掉了是否檢測的選項而直接檢測
Response.Write "整數運算測試，正在進行50萬次加法運算..."
dim t1,t2,lsabc,thetime,thetime2
t1=timer
for i=1 to 500000
lsabc= 1 + 1
next
t2=timer
thetime=cstr(int(( (t2-t1)*10000 )+0.5)/10)
Response.Write "...已完成！<font color=red>" & thetime & "毫秒</font>。<br>"
Response.Write "浮點運算測試，正在進行20萬次開方運算..."
t1=timer
for i=1 to 200000
lsabc= 2^0.5
next
t2=timer
thetime2=cstr(int(( (t2-t1)*10000 )+0.5)/10)
Response.Write "...已完成！<font color=red>" & thetime2 & "毫秒</font>。<br>"
%>
<table class=backq border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3F8805" width=100%>
<tr height=18 align=center class="backs">
<td width=320>供對照的服務器及完成時間(毫秒)</td>
<td width=65>整數運算</td><td width=65>浮點運算</td>
</tr>
<tr height=18>
<td align=left> <a href="http://www.100u.com?come=aspcheck&keyword=虛擬主機"
>百優科技 100u 主機, <font color=#888888>2003-11-1</font></a></td><td> 181～233</td><td> 156～218</td>
</tr>
<tr height=18>
<td align=left> <a href="http://www.west263.com/index.asp?ads=ajiang"
>西部數碼 west263 主機, <font color=#888888>2003-11-1</font></a></td><td> 171～233</td><td> 156～171</td>
</tr>
<tr height=18>
<td align=left> <a href="http://www.linkwww.com "
>聯網科技 linkwww 主機, <font color=#888888>2003-11-1</font></a></td><td> 181～203</td><td> 171</td>
</tr>
<tr height=18>
<td align=left> <a href="http://www.9s5.com/"
>就是我www.9s5.com全功能(ASP+PHP+JSP)主機,<font color=#888888>2003-11-1</font></a></td><td> 171～187</td><td> 156～171</td>
</tr>
<tr height=18>
<td align=left> <a href="http://www.dnsmy.com/"
>永訊網絡 Dnsmy 主機, <font color=#888888>2003-11-1</font></a></td><td> 155～180</td><td> 122～172</td>
</tr>
<tr height=18>
<td align=left> <a href="http://www.hostidc.net"
>數據互聯 Hostidc.net 主機, <font color=#888888>2004-3-28</font></a></td><td> 156～171</td><td> 140～156</td>
</tr>
<tr height=18>
<td align=left> <font color=red>這臺服務器: <%=Request.ServerVariables("SERVER_NAME")%></font> </td><td> <font color=red><%=thetime%></font></td><td> <font color=red><%=thetime2%></font></td>
</tr>
</table>
<br>
<div align="center"><a href="Admin_Index_Main.asp">【返回管理首頁】</a></div>
</BODY>
</HTML>
<%
function cdrivetype(tnum)
Select Case tnum
Case 0: cdrivetype = "未知"
Case 1: cdrivetype = "可移動磁盤"
Case 2: cdrivetype = "本地硬盤"
Case 3: cdrivetype = "網絡磁盤"
Case 4: cdrivetype = "CD-ROM"
Case 5: cdrivetype = "RAM 磁盤"
End Select
end function
function cIsReady(trd)
Select Case trd
case true: cIsReady="<font class=fonts><b>√</b></font>"
case false: cIsReady="<font color='red'><b>×</b></font>"
End Select
end function
function cSize(tSize)
if tSize>=1073741824 then
cSize=int((tSize/1073741824)*1000)/1000 & " GB"
elseif tSize>=1048576 then
cSize=int((tSize/1048576)*1000)/1000 & " MB"
elseif tSize>=1024 then
cSize=int((tSize/1024)*1000)/1000 & " KB"
else
cSize=tSize & "B"
end if
end function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -