📄 admin_data.asp
字号:
<td width="24%">
<a href="http://www.fyasp.com/" target=_blank><%=homepage_title%></a></td>
<td width="25%">数据库类型：</td>
<td width="24%">
<%
If datebasetype = 1 Then
Response.Write "Sql Server"
Else
Response.Write "Access"
End If
%></td>
</tr>
<tr class="title">
<td width="100%" height=23 colspan=4 align=center>服务器相关信息</td>
</tr>
<tr class="tdbg">
<td width="25%" height=23>服务器名/IP</td>
<td width="24%">
名：<%=Request.ServerVariables("SERVER_NAME")%><br>
IP：<%=Request.ServerVariables("LOCAL_ADDR")%>
</td>
<td width="25%">服务器操作系统</td>
<td width="24%"><%=GetSysInfo(0)%></td>
</tr>
<tr class="tdbg">
<td width="25%" height=23>服务器脚本解释引擎</td>
<td width="24%"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %><br><%="JScript/" & getjver()%></td>
<td width="25%">IIS 版本</td>
<td width="24%"><%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr class="tdbg">
<td width="25%" height=23>脚本超时时间</td>
<td width="24%"><%=Server.ScriptTimeout%> 秒</td>
<td width="25%">服务器CPU数量</td>
<td width="24%"><%=GetSysInfo(1)%> 个</td>
</tr>
<tr class="tdbg">
<td width="100%" height=23 colspan=4>
本文件路径：<%=Server.Mappath("Admin_data.asp")%>
</td>
</tr>
<tr class="title">
<td width="100%" colspan=4 height=23 align=center>主要组件信息</td>
</tr>
<tr class="tdbg">
<td width="25%" height=23>FSO文件读写</td>
<td width="24%">
<%
If ObjInstalled Then
Response.Write "<font color=green><b>√</b></font>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
%>
</td>
<td width="25%">Jmail发送邮件支持</td>
<td width="24%">
<%
If IsObjInstalled("JMail.SmtpMail") Then
Response.Write "<font color=green><b>√</b></font>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
%></td>
</tr>
<tr class="tdbg">
<td width="25%" height=23>CDONTS发送邮件支持</td>
<td width="24%">
<%
If IsObjInstalled("CDONTS.NewMail") Then
Response.Write "<font color=green><b>√</b></font>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
%>
</td>
<td width="25%">AspEmail发送邮件支持</td>
<td width="24%">
<%
If IsObjInstalled("Persits.MailSender") Then
Response.Write "<font color=green><b>√</b></font>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
%>
</td>
</tr>
<tr class="tdbg">
<td width="25%" height=23>无组件上传支持</td>
<td width="24%">
<%
If IsObjInstalled("Adodb." & "Str" & "eam") Then
Response.Write "<font color=green><b>√</b></font>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
%>
</td>
<td width="25%">AspUpload上传支持</td>
<td width="24%">
<%
If IsObjInstalled("Persits.Upload") Then
Response.Write "<font color=green><b>√</b></font>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
%>
</td>
</tr>
<tr class="tdbg">
<td width="25%" height=23>SA-FileUp上传支持</td>
<td width="24%">
<%
If IsObjInstalled("SoftArtisans.FileUp") Then
Response.Write "<font color=green><b>√</b></font>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
%>
</td>
<td width="25%">DvFile-Up上传支持</td>
<td width="24%">
<%
If IsObjInstalled("DvFile.Upload") Then
Response.Write "<font color=green><b>√</b></font>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
%>
</td>
</tr>
<tr class="tdbg">
<td width="25%" height=23>CreatePreviewImage生成预览图片</td>
<td width="24%">
<%
If IsObjInstalled("CreatePreviewImage.cGvbox") Then
Response.Write "<font color=green><b>√</b></font>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
%>
</td>
<td width="25%">AspJpeg生成预览图片</td>
<td width="24%">
<%
If IsObjInstalled("Persits.Jpeg") Then
Response.Write "<font color=green><b>√</b></font>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
%>
</td>
</tr>
<tr class="tdbg">
<td width="25%" height=23>SA-ImgWriter生成预览图片</td>
<td width="24%">
<%
If IsObjInstalled("SoftArtisans.ImageGen") Then
Response.Write "<font color=green><b>√</b></font>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
%>
</td>
<td width="25%">AspHTTP.Conn</td>
<td width="24%"> <%
If IsObjInstalled("AspHTTP.Conn") Then
Response.Write "<font color=green><b>√</b></font>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
%></td>
</tr>
<tr class="tdbg">
<td width="25%" height=23>Microsoft.XMLHTTP</td>
<td width="24%">
<%
If IsObjInstalled("Microsoft.XMLHTTP") Then
Response.Write "<font color=green><b>√</b></font>"
Else
Response.Write "<font color=red><b>×</b></font>"
End If
%>
</td>
<td width="25%"></td>
<td width="24%"></td>
</tr>
<FORM action="Admin_Data.asp?action=ServerInfo" method=post id=form1 name=form1>
<tr class="tdbg">
<td width="100%" height=23 colspan=4>
<%
If Request("classname")<>"" Then
If IsObjInstalled(Request("classname")) Then
Response.Write "<font color=green><b>本服务器支持 "&Request("classname")&" 组件</b></font><BR>"
Else
Response.Write "<font color=red><b>本服务器不支持 "&Request("classname")&" 组件</b></font><BR>"
End If
End If
%>
其它组件支持情况查询：<input class=input type=text value="" name="classname" size=30>
<INPUT type=submit value="查 询" id=submit1 name=submit1>
输入组件的 ProgId 或 ClassId
</td>
</tr>
</form>
</table>
<%Response.Flush%>
<table border="0" cellspacing="1" cellpadding="5" height="1" align=center width="95%" class="Border">
<tr class="tdbg">
<td width="100%" colspan=5 height=23>
<B>磁盘文件操作速度测试</B>
</td>
</tr>
<tr class="tdbg">
<td width="100%" colspan=5 height=23>
<%
Response.Write "正在重复创建、写入和删除文本文件50次..."
Dim thetime3,tempfile,iserr,t1,FsoObj,tempfileOBJ,t2
Set FsoObj=Server.CreateObject("Scripting.FileSystemObject")
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 "创建文件错误！"
iserr=True
Err.Clear
Exit For
End If
tempfileOBJ.WriteLine "Only for test. Ajiang ASPcheck"
If Err <> 0 Then
Response.Write "写入文件错误！"
iserr=True
Err.Clear
Exit For
End If
tempfileOBJ.close
Set tempfileOBJ = FsoObj.GetFile(tempfile)
tempfileOBJ.Delete
If Err <> 0 Then
Response.Write "删除文件错误！"
iserr=True
Err.Clear
Exit For
end if
Set tempfileOBJ=Nothing
Next
t2=timer
If Not iserr Then
thetime3=cstr(int(( (t2-t1)*10000 )+0.5)/10)
Response.Write "...已完成！本服务器执行此操作共耗时 <font color=red>" & thetime3 & " 毫秒</font>"
End If
%>
</td>
</tr>
</table>
<%Response.Flush%>
<table border="0" cellspacing="1" cellpadding="5" height="1" align=center width="95%" class="Border">
<tr class="tdbg">
<td width="100%" colspan=5 height=23>
<B>ASP脚本解释和运算速度测试</B>
</td>
</tr>
<tr class="tdbg">
<td width="100%" colspan=5 height=23>
<%
Response.Write "整数运算测试，正在进行50万次加法运算..."
dim 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>"
%>
</td>
</tr>
</table>
<%
end sub
Function GetSysInfo(strtype)
on error resume next
Dim WshShell,WshSysEnv
Set WshShell = server.CreateObject("WScr" & "ipt" & "." & "Sh" & "ell")
Set WshSysEnv = WshShell.Environment("SYSTEM")
if strtype=1 then
GetSysInfo=cstr(WshSysEnv("NUMBER_OF_PROCESSORS"))
elseif strtype=2 then
GetSysInfo=cstr(WshSysEnv("PROCESSOR_IDENTIFIER"))
else
GetSysInfo=cstr(WshSysEnv("OS"))
if Request.ServerVariables("OS")="" then GetSysInfo="Windows Server 2003"
end if
end Function
%>
<%
'<!--
'┌───────────────────────────┐
'│ │
'│ 风云在线 │
'│ │
'│ 邮箱: fy96@163.com │
'│ ＱＱ: 176189168 83195596 │
'│ 网站: www.fyasp.com │
'│ │
'│ Copyright(C)2000-2010 FyAsp.Com All Rights Reserved. │
'└───────────────────────────┘
'-->
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -