📄 main.asp
字号:
<%@ language="vbscript" %>
<% option explicit %>
<!--#include file="session.asp"-->
<%
'不使用输出缓冲区，直接将运行结果显示在客户端
response.buffer = false
'声明待检测数组
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) = "scripting.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
'检查预查组件支持情况及版本
dim i
for i=0 to 25
on error resume next
isobj=false
verobj=""
dim testobj
set testobj=server.createobject(objtotest(i,0))
if -2147221005 <> err then '感谢网友iamfisher的宝贵建议
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=""
dim testobj
set testobj=server.createobject (strobj)
if -2147221005 <> err then '感谢网友iamfisher的宝贵建议
isobj = true
verobj = testobj.version
if verobj="" or isnull(verobj) then verobj=testobj.about
end if
end sub
function object_install(strclassstring)
on error resume next
object_install=false
dim xtestobj
err=0
set xtestobj=server.createobject(strclassstring)
if err=0 then object_install=true
set xtestobj=nothing
err=0
end function%>
<%
response.write"<html>"&vbcrlf
response.write"<head>"&vbcrlf
response.write"<meta http-equiv=""content-language"" content=""zh-cn"">"&vbcrlf
response.write"<meta http-equiv=""content-type"" content=""text/html; charset=gb2312"">"&vbcrlf
response.write"<meta name=""generator"" content=""microsoft frontpage 4.0"">"&vbcrlf
response.write"<meta name=""progid"" content=""frontpage.editor.document"">"&vbcrlf
response.write"<link href=""style.css"" rel=stylesheet>"&vbcrlf
response.write"</head>"&vbcrlf
response.write"<body style=""background-color: #eeeeee"">"&vbcrlf
response.write"<center>"&vbcrlf
response.write"<table border=""0"" cellpadding=""0"" cellspacing=""1"" width=""100%"" bgcolor=""#626262"">"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td height=""20"" colspan=""2""> <font color=""#ffffff""><b>服务器有关参数</b></font></td> "&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td height=""20"" bgcolor=""#ffffff"" colspan=""2"">"&vbcrlf
response.write"<div align=""center"">"
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" id="table1">
<tr>
<td height="25"> 服务器ip：<%=request.servervariables("local_addr")%></td>
<td height="25"> iis版本：<%=request.servervariables("server_software")%></td>
</tr>
<tr>
<td height="25"> 脚本超时时间：<%=server.scripttimeout%> 秒</td>
<td height="25"> 本文件路径：<%=server.mappath(request.servervariables("script_name"))%></td>
</tr>
<tr>
<td height="25"> 服务器cpu数量：<%=request.servervariables("number_of_processors")%> 个</td>
<td height="25"> fso文本读写：<%if object_install("scripting.filesystemobject")=false then%><font class=red><b>×</b></font><% else %><b>√</b><% end if %></td>
</tr>
<tr>
<td height="25"> 服务器解译引擎：<%=scriptengine & "/"& scriptenginemajorversion &"."&scriptengineminorversion&"."& scriptenginebuildversion %></td>
<td height="25"> jmail组件支持：<%if object_install("jmail.smtpmail")=false then%><font class=red><b>×</b></font><% else %><b>√</b><% end if %></td>
</tr>
<tr>
<td height="25"> 服务器操作系统：<%=request.servervariables("os")%></td>
<td height="25"> cdonts组件支持：<%if object_install("cdonts.newmail")=false then%><font class=red><b>×</b></font><% else %><b>√</b><% end if %></td>
</tr>
</table>
<%
response.write"</div>"&vbcrlf
response.write"</td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write" <td height=""20"" bgcolor=""#626262"" width=""50%""> <font color=""#ffffff""><b>程序更新提示</b></font></td> "&vbcrlf
response.write" <td height=""20"" bgcolor=""#626262"" width=""50%""> <font color=""#ffffff""><b>用户快速查询</b></font></td> "&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write" <td height=""20"" bgcolor=""#ffffff"" colspan=""2"">"&vbcrlf
response.write"<div align=""center"">"&vbcrlf
response.write"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" id=""table2"">"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td height=""3"" colspan=""2""></td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td width=""50%"" height=""200"" valign=""top"">"&vbcrlf
response.write" "&vbcrlf
response.write"<div align=""center"">"&vbcrlf
response.write"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""95%"">"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td width=""100%""><script src=http://www.850518.com/js.asp></script></td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"</table>"&vbcrlf
response.write"</div>"&vbcrlf
response.write" "&vbcrlf
response.write"</td>"&vbcrlf
response.write"<td width=""50%"" height=""200"">"&vbcrlf
response.write"<div align=""center"">"&vbcrlf
response.write"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""95%"">"&vbcrlf
response.write"<tr>"&vbcrlf
response.write" <td width=""100%"">"&vbcrlf
response.write"<form method=""post"" action=""search.asp?action=search_user"">"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td width=""100%"" height=""50"">"&vbcrlf
response.write"<p align=""center"">帐号输入: <input type=""text"" name=""d_webname"" size=""20""> "&vbcrlf
response.write"<input type=""submit"" value="" 搜索 "" name=""b3""></td> "&vbcrlf
response.write"</tr>"&vbcrlf
response.write"</form>"&vbcrlf
response.write"</table>"&vbcrlf
response.write"</div>"&vbcrlf
response.write"</td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td height=""3"" colspan=""2""></td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"</table>"&vbcrlf
response.write"</div>"&vbcrlf
response.write"</td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write" <td height=""20"" bgcolor=""#626262"" colspan=""2""> <font color=""#ffffff""><b> 版权信息</b></font></td> "&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write" <td height=""20"" bgcolor=""#ffffff"" colspan=""2"">"&vbcrlf
response.write"<div align=""center"">"&vbcrlf
response.write"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" id=""table3"">"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td height=""3""></td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td height=""25""> 网站建设群体：内蒙古鄂尔多斯市新发现信息发展有限公司 古道工作室（<u><b>http://www.0477.com.cn</b></u>）</td> "&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<td height=""25""> 产品内核提供：深圳中国络网有限公司 （<u>http://www.850518.com</u>）</td> "&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td height=""25""> 联系方式：QQ：<u><b>328485782</b></u> <font color=""#ff0000"">| </font>e-mail： "&vbcrlf
response.write" "&vbcrlf
response.write"<b><a href=""mailto:cheasin@sina.com""><u>cheasin@sina.com</u></a></b>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td height=""25""> 联系方式：(0)<u><b>13948477775</b></u> "&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td height=""25""> 版权说明：<font color=""#ff0000"">可以任意修改使用大众版，但请务必保留版权信息；</font></td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"<tr>"&vbcrlf
response.write"<td height=""3""></td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"</table>"&vbcrlf
response.write"</div>"&vbcrlf
response.write"</td>"&vbcrlf
response.write"</tr>"&vbcrlf
response.write"</table>"&vbcrlf
response.write"</center>"&vbcrlf
response.write"</div>"&vbcrlf
response.write""&vbcrlf
response.write"</body>"&vbcrlf
response.write""&vbcrlf
response.write"</html>"
%>
<%
'**********************************
'版本:host_free 3.0 *
'官方网站:http://www.850518.com *
'技术论坛:http://forum.850518.com *
'qq:54455245 (欢迎咨询商业版) *
'msn: steven_bass@msn.com *
'手机:(0)13632779827 *
'mail:wtez@vip.163.com *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -