adminindex.asp

这是一个校友录管理系统

                <tr>
                  <td width="35%" height="20" style="border-left: 1 solid #000000; border-bottom: 1 solid #000000" bgcolor="#F7F7F7">&nbsp;服务器解译引擎</td>
                  <td width="65%" height="20" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">&nbsp;<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
                </tr>

                <tr>
                  <td width="35%" height="20" style="border-left: 1 solid #000000; border-bottom: 1 solid #000000" bgcolor="#F7F7F7">&nbsp;服务器操作系统</td>
                  <td width="65%" height="20" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">&nbsp;<%=Request.ServerVariables("OS")%></td>
                </tr>
                <tr>
                  <td width="100%" colspan="2" height="8"></td>
                </tr>
                <tr>
                  <td width="100%" height="20" bgcolor="#EDEDED" style="border: 1 solid #000000" colspan="2">
                    <p align="center"><b>IIS自带的ASP组件</b></p>
                  </td>
                </tr>
                <%For i=0 to 10%>
                <tr>
                  <td width="35%" height="20" style="border-left: 1 solid #000000; border-bottom: 1 solid #000000" bgcolor="#F7F7F7">&nbsp;<%=ObjTotest(i,0) & "<font color=#888888>&nbsp;" & ObjTotest(i,1)%></td>
                  <td width="65%" height="20" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">&nbsp;<%If Not ObjTotest(i,2) Then 
			Response.Write "<font color=red><b>×</b></font>"
		Else
			Response.Write "<font color=#33CC33><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
		End If%></td>
                </tr>
				<%next%>
                <tr>
                  <td width="100%" colspan="2" height="8"></td>
                </tr>
                <tr>
                  <td width="100%" height="20" bgcolor="#EDEDED" style="border: 1 solid #000000" colspan="2">
                    <p align="center"><b>常见的文件上传和管理组件</b></p>
                  </td>
                </tr>
                <%For i=11 to 15%>
                <tr>
                  <td width="35%" height="20" style="border-left: 1 solid #000000; border-bottom: 1 solid #000000" bgcolor="#F7F7F7">&nbsp;<%=ObjTotest(i,0) & "<font color=#888888>&nbsp;" & ObjTotest(i,1)%></td>
                  <td width="65%" height="20" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">&nbsp;<%
		If Not ObjTotest(i,2) Then 
			Response.Write "<font color=red><b>×</b></font>"
		Else
			Response.Write "<font color=#33CC33><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
		End If%></td>
                </tr>
                <%next%>
                <tr>
                  <td width="100%" colspan="2" height="8"></td>
                </tr>
                <tr>
                  <td width="100%" height="20" bgcolor="#EDEDED" style="border: 1 solid #000000" colspan="2">
                    <p align="center"><b>常见的收发邮件组件</b></p>
                  </td>
                </tr>
                <%For i=16 to 23%>
                <tr>
                  <td width="35%" height="20" style="border-left: 1 solid #000000; border-bottom: 1 solid #000000" bgcolor="#F7F7F7">&nbsp;<%=ObjTotest(i,0) & "<font color=#888888>&nbsp;" & ObjTotest(i,1)%></td>
                  <td width="65%" height="20" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">&nbsp;<%
		If Not ObjTotest(i,2) Then 
			Response.Write "<font color=red><b>×</b></font>"
		Else
			Response.Write "<font color=#33CC33><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
		End If%></td>
                </tr>
				<%next%>
                <tr>
                  <td width="100%" colspan="2" height="8"></td>
                </tr>
                <tr>
                  <td width="100%" height="20" bgcolor="#EDEDED" style="border: 1 solid #000000" colspan="2">
                    <p align="center"><b>图像处理组件</b></p>
                  </td>
                </tr>
                <%For i=24 to 25%>
                <tr>
                  <td width="35%" height="20" style="border-left: 1 solid #000000; border-bottom: 1 solid #000000" bgcolor="#F7F7F7">&nbsp;<%=ObjTotest(i,0) & "<font color=#888888>&nbsp;" & ObjTotest(i,1)%></td>
                  <td width="65%" height="20" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">&nbsp;<%
		If Not ObjTotest(i,2) Then 
			Response.Write "<font color=red><b>×</b></font>"
		Else
			Response.Write "<font color=#33CC33><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
		End If%></td>
                </tr>
				<%next%>                
                
                <tr>
                  <td width="100%" colspan="2" height="8"></td>
                </tr>
                <tr>
                  <td width="100%" height="20" bgcolor="#EDEDED" style="border: 1 solid #000000" colspan="2">
                    <p align="center"><font class="fonts"><b>ASP脚本解释和运算速度测试</b></font></p>
                  </td>
                </tr>
                <tr>
                  <td width="35%" height="20" style="border-left: 1 solid #000000; border-bottom: 1 solid #000000" bgcolor="#F7F7F7">&nbsp;中国频道虚拟主机</td>
                  <td width="65%" height="20" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">&nbsp;610.9 毫秒 
                    （2002-08-06 9:29）</td>        
                </tr>
                <tr>
                  <td width="35%" height="20" style="border-left: 1 solid #000000; border-bottom: 1 solid #000000" bgcolor="#F7F7F7">&nbsp;西部数码west263主机</td>
                  <td width="65%" height="20" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">&nbsp;357.8 毫秒 
                    （2002-08-06 9:29）</td>        
                </tr>
                <tr>
                  <td width="35%" height="20" style="border-left: 1 solid #000000; border-bottom: 1 solid #000000" bgcolor="#F7F7F7">&nbsp;商务中国虚拟主机</td>
                  <td width="65%" height="20" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">&nbsp;353.1 毫秒 
                    （2002-08-06 9:29）</td>        
                </tr>
                <tr>
                  <td width="35%" height="20" style="border-left: 1 solid #000000; border-bottom: 1 solid #000000" bgcolor="#F7F7F7">&nbsp;顶尖科技tonydns主机</td>
                  <td width="65%" height="20" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">&nbsp;303.2 毫秒 
                    （2002-10-13 14:19）</td>        
                </tr>
<%	
	dim t1,t2,lsabc,thetime
	t1=timer
	for i=1 to 500000
		lsabc= 1 + 1
	next
	t2=timer

	thetime=cstr(int(( (t2-t1)*10000 )+0.5)/10)
%>                
                <tr>
                  <td width="35%" height="20" style="border-left: 1 solid #000000; border-bottom: 1 solid #000000" bgcolor="#F7F7F7"><font color="red">&nbsp;您正在使用的这台服务器</font></td>
                  <td width="65%" height="20" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">&nbsp;<font color=red><%=thetime%> 毫秒</font></td>
                </tr>
                <tr>
                  <td width="100%" height="20" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000" bgcolor="#F7F7F7" colspan="2">
                    <p align="center">我们让服务器执行50万次“1＋1”的计算，记录其所使用的时间。&nbsp;</p>
                  </td>
                </tr>
              </table>
              </center>
            </div>
            </td>
          </tr>
          <tr>
            <td width="100%" valign="top" height="8">
            <p>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
</div>

</body>

</html>