📄 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 + -