?? right.asp
字號:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
<style type="text/css">
<!--
.style4 {font-size: 12}
.style6 {font-size: 12px}
.style7 {color: #0000FF}
body {
background-image: url(images/bg.gif);
}
-->
</style>
</head>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bgcolor="#7894AF" align="center">
<tr bgcolor="#eeeeee">
<td height="20"><%=why%> 歡迎來到 <%=bb%>!<%
RESPONSE.Write "CM提醒你---你來訪的時間是: " & YEAR(date()) & "年" & MONTH(date()) & "月" & DAY(date()) & "日"
%></td>
</tr>
</table>
<table width="707" height="33" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="707" class="style4"><tr>
<td height="25" bgcolor=ffffff class="style4" onmouseover="this.style.background='efefef'" onmouseout="this.style.background='#ffffff'"> 程序名稱：CM新聞發布系統v1.0</td>
</tr>
<tr><td height="25" bgcolor=ffffff class="style4" onmouseover="this.style.background='efefef'" onmouseout="this.style.background='#ffffff'"> 程序內核：CM新聞發布系統（僅80%，20%歸本人所有！）。</td>
</tr>
<tr>
<td height="25" class="style4" onmouseover="this.style.background='efefef'" onmouseout="this.style.background='#ffffff'"> 官方網站：<a href=http://yecao.fj126.net target=_blank>http://cm86.vicp.net</a></td>
</tr>
<tr>
<td height="25" class="style4" onmouseover="this.style.background='efefef'" onmouseout="this.style.background='#ffffff'"> 當前版本：V1.0</td>
</tr>
<tr><td height="25" class="style4" onmouseover="this.style.background='efefef'" onmouseout="this.style.background='#ffffff'"> 操作系統：推薦使用WINDOWS XP或更高的版本。</td></tr>
<tr><td height="25" class="style4" onmouseover="this.style.background='efefef'" onmouseout="this.style.background='#ffffff'"> IIS選擇：推薦使用IIS 5.1或更高的版本。</td></tr>
<tr><td height="25" class="style4" onmouseover="this.style.background='efefef'" onmouseout="this.style.background='#ffffff'"> 條件支持：您的服務器必須支持FSO和COOKIE功能。</td></tr>
<tr>
<td height="25" class="style4" onmouseover="this.style.background='efefef'" onmouseout="this.style.background='#ffffff'"> 聯系本人：我的QQ:280624467 E-MAIL：264295894@163.com 電話：0791-2187435（江西省信息應用職業技術學院04軟件二班）。</td>
</tr>
<tr><td height="20" class=title style6 style7 style6 style5 style4>
〖<a onclick="document.all.xx.style.display=(document.all.xx.style.display =='none')?'':'none'">占用空間情況</a>〗
〖<a onclick="document.all.yy.style.display=(document.all .yy.style.display =='none')?'':'none'">主機環境變量</a>〗
〖<a onclick="document.all.zz.style.display=(document.all.zz.style.display =='none')?'':'none'">組件支持情況</a>〗</td>
</tr>
</table>
<span class="style6">
<%call br%>
<%
sub othersize(names)
set fso=server.CreateObject("scripting.filesystemobject")
path=server.mappath("images")
ml=left(path,(instrrev(path,"\")-1))&"\"&names
set d=fso.getfolder(ml)
mlsize=d.size
size=mlsize
dx=size & " Byte"
if size>1024 then
size=(Size/1024)
dx=formatnumber(size,2) & " KB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " GB"
end if
response.write dx
end sub
sub allsize()
set fso=server.CreateObject("scripting.filesystemobject")
path=server.mappath("index.asp")
ml=left(path,(instrrev(path,"\")-1))
set d=fso.getfolder(ml)
mlsize=d.size
size=mlsize
dx=size & " Byte"
if size>1024 then
size=(Size/1024)
dx=size & " KB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " GB"
end if
response.write dx
end sub
Function Drawbar(drvpath)
dim fso,drvpathroot,d,size,totalsize,barsize
set fso=server.createobject("scripting.filesystemobject")
drvpathroot=server.mappath("images")
drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
set d=fso.getfolder(drvpathroot)
totalsize=d.size
drvpath=server.mappath(drvpath)
set d=fso.getfolder(drvpath)
size=d.size
barsize=cint((size/totalsize)*400)
Drawbar=barsize
End Function
%>
<table width=50% align="center" border="1" cellspacing="0" cellpadding="2" bordercolor=<%=border%> style="border-collapse: collapse" rules=rows id=xx style="display:none">
</span>
<tr>
<td height="5" colspan="2" class=title style6 style4> ※ 系統占用空間情況</td>
</tr>
<tr>
<td width="120" height="25" align="center" class="style6">系統占用空間總計：</td>
<td class="style6"><img src="images/bar.gif" width=10 height=10> <%allsize()%></td>
</tr>
<tr>
<td height="25" align="center" class="style6">系統圖片占用空間：</td>
<td class="style6"><img src="img/bar.gif" width=<%=Drawbar("img")%> height=10> <%othersize("img")%></td>
</tr>
<tr>
<td height="25" align="center" class="style6">系統皮膚占用空間：</td>
<td class="style6"><img src="img/bar.gif" width=<%=Drawbar("skin")%> height=10> <%othersize("skin")%></td>
</tr>
<tr>
<td height="25" align="center" class="style6">上傳圖片占用空間：</td>
<td class="style6"><img src="img/bar.gif" width=<%=Drawbar("up/pic")%> height=10> <%othersize("up/pic")%></td>
</tr>
<tr>
<td height="25" align="center" class="style6">上傳歌曲占用空間：</td>
<td class="style6"><img src="img/bar.gif" width=<%=Drawbar("up/dj")%> height=10> <%othersize("up/dj")%></td>
</tr><tr>
<td height="25" align="center" class="style6" >上傳軟件占用空間：</td>
<td class="style6"><img src="img/bar.gif" width=<%=Drawbar("up/down")%> height=10> <%othersize("up/down")%></td>
</tr><tr>
<td height="25" align="center" class="style6">論壇目錄占用空間：</td>
<td class="style6"><img src="img/bar.gif" width=<%=Drawbar("bbs")%> height=10> <%othersize("bbs")%></td>
</tr>
<span class="style6">
</table>
<%call br%>
<table width=50% align="center" border="1" cellspacing="0" cellpadding="2" bordercolor=<%=border%> style="border-collapse: collapse" rules=rows id=yy style="display:none">
</span>
<tr>
<td height="5" colspan="2" class=title style6 style4> ※ 主機環境變量</td>
</tr>
<tr>
<td width="57%" height="25" align="center" class="style6">項目</td>
<td align="center" class="style6"> 值</td>
</tr>
<tr>
<td width="57%" height="25" class="style6"> 服務器的域名</td>
<td height="25" class="style6"> <%=Request.ServerVariables("server_name")%> </td>
</tr>
<tr>
<td width="57%" height="25" class="style6"> 服務器的IP地址</td>
<td height="25" class="style6"> <%=Request.ServerVariables("LOCAL_ADDR")%> </td>
</tr>
<tr>
<td width="57%" height="25" class="style6"> 服務器操作系統</td>
<td height="25" class="style6"> <%=Request.ServerVariables("OS")%> </td>
</tr>
<tr>
<td width="57%" height="25" class="style6"> 服務器解譯引擎</td>
<td height="25" class="style6"> <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> </td>
</tr>
<tr>
<td width="57%" height="25" class="style6"> 服務器軟件的名稱及版本</td>
<td height="25" class="style6"> <%=Request.ServerVariables("SERVER_SOFTWARE")%> </td>
</tr>
<tr>
<td width="57%" height="25" class="style6"> 服務器正在運行的端口</td>
<td height="25" class="style6"> <%=Request.ServerVariables("server_port")%> </td>
</tr>
<tr>
<td width="57%" height="25" class="style6"> 服務器CPU數量</td>
<td height="25" class="style6"> <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 個</td>
</tr>
<tr>
<td width="57%" class="style6"> 服務器Application數量</td>
<td height="25" class="style6"> <%=Application.Contents.Count%> 個</td>
</tr>
<tr>
<td width="57%" height="25" class="style6"> 服務器Session數量</td>
<td class="style6" > <%=Session.Contents.Count%> 個</td>
</tr>
<tr>
<td width="57%" height="25" class="style6"> 請求的物理路徑</td>
<td height="25" class="style6"> <%=Request.ServerVariables("path_translated")%> </td>
</tr>
<tr>
<td width="57%" height="25" class="style6"> 請求的URL</td>
<td width="66%" height="25" class="style6"> http://<%=Request.ServerVariables("server_name")%><%=Request.ServerVariables("script_name")%></td>
</tr>
<tr>
<td width="57%" height="25" class="style6"> 服務器當前時間</td>
<td height="25" class="style6"> <%=now()%> </td>
</tr>
<tr>
<td width="57%" height="25" class="style6"> 腳本連接超時時間</td>
<td height="25" class="style6"> <%=Server.ScriptTimeout%> 秒</td>
</tr>
<span class="style6">
</table>
<%call br%>
<table width=50% align="center" border="1" cellspacing="0" cellpadding="2" bordercolor=<%=border%> style="border-collapse: collapse" rules=rows id=zz style="display:none">
</span>
<tr>
<td height="5" colspan="2" class=title style6 style4> ※ 組件支持情況</td>
</tr>
<tr>
<td width="57%" height=25 class="style6"> 組件名稱</td><td width="41%" class="style6">支持及版本</td>
</tr>
<p><span class="style6">
<%
Dim theInstalledObjects(16)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "MSWC.PermissionChecker"
theInstalledObjects(7) = "Scripting.FileSystemObject"
theInstalledObjects(8) = "adodb.connection"
theInstalledObjects(9) = "SoftArtisans.FileUp"
theInstalledObjects(10) = "SoftArtisans.FileManager"
theInstalledObjects(11) = "JMail.Message"
theInstalledObjects(12) = "CDONTS.NewMail"
theInstalledObjects(13) = "Persits.MailSender"
theInstalledObjects(14) = "LyfUpload.UploadFile"
theInstalledObjects(15) = "Persits.Upload.1"
theInstalledObjects(16) = "w3.upload"
For i=0 to 16
Response.Write "<TR ><TD> " & theInstalledObjects(i) & "<font color=888888> "
select case i
case 7
Response.Write "(FSO 文本文件讀寫)"
case 8
Response.Write "(ACCESS 數據庫)"
case 9
Response.Write "(SA-FileUp 文件上傳)"
case 10
Response.Write "(SA-FM 文件管理)"
case 11
Response.Write "(JMail 郵件發送)"
case 12
Response.Write "(WIN虛擬SMTP 發信)"
case 13
Response.Write "(ASPEmail 郵件發送)"
case 14
Response.Write "(LyfUpload 文件上傳)"
case 15
Response.Write "(ASPUpload 文件上傳)"
case 16
Response.Write "(w3 upload 文件上傳)"
end select
Response.Write "</font></td><td height=25>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<b>√</b> " & getver(theInstalledObjects(i)) & ""
End If
Response.Write "</td></TR>" & vbCrLf
Next
%>
</table>
<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
''''''''''''''''''''''''''''''
Function getver(Classstr)
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr)
If 0 = Err Then getver=xtestobj.version
Set xTestObj = Nothing
Err = 0
End Function
%>
</span><span class="style4">
</td>
<a href="admin.asp" target="_parent">（返回）</a></span><a href="main.asp">
</table>
</a></p>
<p align="center">Copyright 2006-2008 http://cm86.vicp.net All Rights Reserved </p>
<p align="center"><font color="#E3E9F1" size="6" face="華文行楷">CM 新 聞 發 布 系 統 V 1。0</font> </p>
<div align="center"></div>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -