<%=server.mappath(Request.ServerVariables(\
服务器CPU数量<%=Request.ServerVariables(\个
服务器解译引擎 <%=ScriptEngine & \ersion &\ersion&\ersion %>
服务器操作系统 <%=Request.ServerVariables(\
组件支持情况 <% Dim strClass
strClass = Trim(Request.Form(\If \
Response.Write \您指定的组件的检查结果：\Dim Verobj1 ObjTest(strClass)
If Not IsObj then
Response.Write \color=red>很遗憾，该服务器不支持 \& strclass & \组件！\Else
if VerObj=\erObj) then Verobj1=\无法取得该组件版本\
Else
Verobj1=\该组件版本是：\erObj End If
Response.Write \恭喜！该服务器支持 \组件。\& \End If
Response.Write \end if %>
■ IIS自带的ASP组件
cellspacing=\
style=\
collapse\
组 件 名 称支持及版本
<%For i=0 to 10%>
<%=ObjTotest(i,0) & \ <% If Not ObjTotest(i,2) Then
Response.Write \\Else
Response.Write \class=fonts>√
<%next%>
■ 常见的文件上传和管理组件
组 件 名 称支持及版本 <%For i=11 to 15%>
<%=ObjTotest(i,0) & \ <%
If Not ObjTotest(i,2) Then
Response.Write \\Else
Response.Write \class=fonts>√
<%next%>
■ 常见的收发邮件组件
组 件 名 称支持及版本 <%For i=16 to 23%>
<%=ObjTotest(i,0) & \ <%
If Not ObjTotest(i,2) Then
Response.Write \\
Else
Response.Write \class=fonts>√ <%next%>
■ 图像处理组件
cellspacing=\style=\collapse\
bordercolor=\
组 件 名 称支持及版本
<%For i=24 to 25%>
<%=ObjTotest(i,0) & \ <%
If Not ObjTotest(i,2) Then
Response.Write \\Else
Response.Write \class=fonts>√
<%next%>
其他组件支持情况检测
在下面的输入框中输入你要检测的组件的ProgId或ClassId。
cellspacing=\
style=\
collapse\
ASP脚本解释和运算速度测试
<%
'感谢网际同学录 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 \已完成！\毫秒。
\
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 \已完成！\毫秒。
\%>
供 对 照 的 服 务 器 完成时间(毫秒)
整数运算浮点运算
250 234
187 156
187 177
10次,最大值） 187 171
您正在使用的这台服务器 <%=thetime%> <%=thetime2%>